#Include BinaryEncodingDecoding.ahk

IniVar=
(
[lang]
actualLang=fr
possibleLangs=de,en,fr,es,jp,ru

[de]
MenulanguageTitel=Sprachauswahl
testvar  =deutsch

[en]
MenulanguageTitel =Languages E
testvar =english

[fr]
MenulanguageTitel =LanguageF
testvar =francais

[es]
MenulanguageTitel =La LenguaE
testvar =espaniol 

[ru]
unicode =true
MenulanguageTitel =LanguagesR
testvar =1804200034043E043F043E043B043D0435043D043804350420003D043004200040044304410441043A043E043C042E0000

[jp]
unicode =true
MenulanguageTitel =Languages J
testvar =A430F330C830ED30C030AF30B730E730F330200000
)

;------------------------------------------
LangHelp_LoadLanguageVars(IniVar,"updateLang")
;------------------------------------------
Gui, Font,s10, Arial Unicode MS
Gui,Add, text, ,testvar=
Gui,Add, text, HWNDhTest vtestvar yp xp+60 w300, %testvar%
Gui,Add, text,
;------------------------------------------
oldtitel1 := LangHelp_showLangTrayMenu(possibleLangs, MenulanguageTitel)
;LangHelp_showLangMenu(possibleLangs, MenulanguageTitel)
LangHelp_showLangRadioMenu(possibleLangs, actualLang)
;------------------------------------------
Gui,Show, ,Language - Sprache
Return

updateLang:
ConvertesChars := Hex2Bin(nstrng,testvar)
if (unicode)
  SetUnicodetext(nstrng,hTest)
else
 GuiControl, ,testvar, %testvar%
unicode:=false

If (oldtitel1<>MenulanguageTitel)
  Menu,Tray,Rename,%oldtitel1%,%MenulanguageTitel%
oldtitel1=%MenulanguageTitel%
return  

esc::
GuiEscape:
GuiClose:
  ExitApp
Return 

#include LangHelp.ahk


SetUnicodetext(ByRef ptrUnicodeText,hWnd)
{
   static WM_SETTEXT := 0x0C
   DllCall("SendMessageW", "UInt",hWnd, "UInt",WM_SETTEXT, "UInt",0, "Uint",&ptrUnicodeText)
}