translating pb language

[zikitrake]

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:

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 

Will be

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