ChkDskGui (PureBasic)

; -----------------------------------------------------------------------------
;  Simple Multi Languages Hello World Exemple
;
;  Create "Russian.pref" file (UTF8 + BOM) in the same foler with
;    [Example]
;    HelloQuestion = Передавай привет
;    HelloReply = Здравствуйте, мир!
; -----------------------------------------------------------------------------
EnableExplicit
; Include MultiLanguages Module and UseModule = Language::GetUserLanguage() -> GetUserLanguage()
XIncludeFile "MultiLanguages.pbi"
UseModule Language
Enumeration Window
  #Window_0
EndEnumeration
Enumeration Gadgets
  #Button_1
EndEnumeration
Define iEvent.i
Declare Open_Window_0(X = 0, Y = 0, Width = 160, Height = 80)
Procedure Open_Window_0(X = 0, Y = 0, Width = 160, Height = 80)
  If OpenWindow(#Window_0, X, Y, Width, Height, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(#Button_1, 20, 20, 120, 40, Get("Example","HelloQuestion"))   ; Get HelloQuestion value
  EndIf
EndProcedure
;- START
; SubFolder for Language Files (ex: sLangFolder = "Lang") or "" to put it next to the exe, in the same folder
sLangFolder = ""
; Get User Locale Default Language
Define.s LocalUserDefault = GetUserLanguage()
; For Testing other Languagues
;LocalUserDefault = GetUserLanguage($0419)   ; Russian
;LocalUserDefault = GetUserLanguage($0409)   ; English
; Load MultiLanguages in Map
If sLangFolder <> "" And Left(sLangFolder,1) <>"\" : sLangFolder + "\" :EndIf
If FileSize(sLangFolder + LocalUserDefault + ".pref") > 0
  Load(?English,LocalUserDefault + ".pref")
Else
  Load(?English)
EndIf
Open_Window_0()
Repeat
  iEvent = WaitWindowEvent()
  Select iEvent
    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Button_1   ;Say Hello
          MessageRequester("", Get("Example","HelloReply"))   ; Get HelloReply value
      EndSelect
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver
; MultiLanguages below
DataSection
  English:
  ; ===================================================
  Data.s "_GROUP_",            "Example"
  ; ===================================================
  Data.s "HelloQuestion",      "Say Hello"
  Data.s "HelloReply",         "Hello World!"
  ; ===================================================
  Data.s "_END_",              ""
  ; ===================================================
EndDataSection