PureBasic Forum

EnableExplicit

Enumeration
  #Mainform
  #Text1
  #Name
  #Update
  #Language
EndEnumeration

Global PreferenceLanguage.i

Procedure.s SetText(Local.s, International.s)
  Select PreferenceLanguage
     
    Case 1 ;Local
      ProcedureReturn local
   
    Case 2;International
      ProcedureReturn International
   
  EndSelect
EndProcedure


Procedure ChangeLanguage(Value.i)
  PreferenceLanguage=Value

  SetWindowTitle(#Mainform, SetText("Titre en français", "English Title"))
  SetGadgetText(#Text1, SetText("Nom","Name"))
  SetGadgetText(#Name, SetText("Entrez votre nom","Enter your name"))
  SetGadgetText(#Update, SetText("Mise à jour","Update"))
EndProcedure


OpenWindow(#Mainform, 0, 0, 500, 300, "", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
TextGadget(#Text1, 10, 20, 80, 20, "")
StringGadget(#Name, 90, 20, 100, 20, "")
ButtonGadget(#Update, 200, 20, 80, 20, "")

ButtonGadget(#Language, 470, 270, 30, 30, "Fr")
SetGadgetData(#Language, 2)

ChangeLanguage(2)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Language
          If GetGadgetData(#language)=1
            SetGadgetData(#language, 2)
            SetGadgetText(#Language, "Fr")
            ChangeLanguage(2)
           
          Else
           
            SetGadgetData(#language, 1)
            SetGadgetText(#Language, "En")
            ChangeLanguage(1)
          EndIf
         
        Case #Update
          MessageRequester(SetText("Mise à jour","Update"), Settext("Mise à jour effectuée","Update performed"))
         
      EndSelect
       
    Case #PB_Event_CloseWindow
      End
  EndSelect
 
ForEver