translating pb language
Posted: Tue Jul 27, 2004 7:57 pm
I DON'T KNOW TO SPEAK INGLES MUCH, SO I HAVE THOUGHT THAT SOMEBODY COULD TRANSLATE PUREBASIC FOR ME AND ALL THOSE THAT SPEAK SPANISH. YOU WANT TO HELP?:lol:
Sample:
Will be
Sample:
Code: Select all
wnd = OpenWindow(0,0,0,200,200,#ws_popup | #PB_Window_ScreenCentered | #PB_Window_WindowCentered, "Test")
CreateGadgetList(WindowID())
StringGadget(0,0,40,200,200,"String Gadget",#PB_String_MultiLine|#PB_String_BorderLess|#ES_AUTOVSCROLL|#ESB_DISABLE_LEFT|#ESB_DISABLE_RIGHT)
ButtonGadget(1,0,0,80,20,"Close")
Repeat
EventID.l = WindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()
Case 1
End
EndSelect
EndIf
If EventID = #WM_LBUTTONDOWN
;ReleaseCapture_()
SendMessage_(wnd,#WM_NCLBUTTONDOWN, #HTCAPTION,0)
EndIf
Until quit = 1
End Code: Select all
wnd = AbreVentana(0,0,0,200,200,#ws_ArribaPop | #PB_Ventana_CentradaEnPantalla, "Testeo")
CrearListaDeGadgets(IDVentana())
CadenaGadget(0,0,40,200,200,"Cadena Gadget",#PB_Cadena_MultiLinea|#PB_Cadena_SinBordes|#ES_AUTOVDesplazamiento|#ESB_DESACTIVAR_IZQUIERDA|#ESB_DESACTIVAR_DERECHA)
BotonGadget(1,0,0,80,20,"Cerrar")
Repetir
EventoID.l = EventoVentana()
Si EventoID = #PB_EventoGadget
Seleccion EventoGadgetID()
Caso 1
Fin
FinSeleccion
FinSi
Si EventoID = #WM_LBOTONABAJO
;ReleaseCapture_()
EnviaMensaje_(wnd,#WM_NCLBOTONABAJO, #HTCAPTADO,0)
FinSi
Hasta Quitar =1
Fin