#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.1
 Author:         mataran

 Script Function:
	Example1 Language UDF

#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#include <LanguageSupport.au3>
_LangInit('strings.xml')

;~ Example1()
Example2()

Func Example1()
MsgBox(64, s('TestTitleMsg'), s('ExampleText'))
$sTestString = s('Example') & ' ' & s('TestTitleMsg')
MsgBox(0,'', $sTestString)
EndFunc



Func Example2()
Local $aChar[1]
$aChar[0] = 98.8
$var1 = 'some data'
$var3 = 'this is the end'
;=================================================================
;Once you have installed the Language Transmitter, try it on this line! (select everything after the = and press Alt+A by default)
$sTESTME = "Hello & you & me I'm a Test!" & @CRLF & @CRLF & "Aren't ya havin' a nice day?" & ' "Test" ' & "my chars' hp: " & $aChar[0] & ' Take this "switch"!' & " And these last vars: "&$var1&$var1& @crlf&$var3
;=================================================================

$Form1 = GUICreate(s('GUI_Title'), 615, 400)
GUISetFont(9, 400, 0, "MS Reference Sans Serif")
$MenuItem1 = GUICtrlCreateMenu(s('File'))
$MenuItem2 = GUICtrlCreateMenuItem(s('MenuItem1'), $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem(s('Ende'), $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu(s('MenuItem2'))
$MenuItem5 = GUICtrlCreateMenuItem(s('About'), $MenuItem4)
GUICtrlCreateLabel(s('ExampleLabel1'), 257, 16, 100, 23)
GUICtrlSetFont(-1, 11, 400, 0, "MS Reference Sans Serif")
$Label1 = GUICtrlCreateLabel(s('ExampleLabel2'), 30, 64)
$Button1 = GUICtrlCreateButton(s('ButtonOpen'), 430, 56)
$Checkbox1 = GUICtrlCreateCheckbox(s('Text1'), 115, 104)
$Radio1 = GUICtrlCreateRadio(s('Text2'), 115, 136)
$Edit1 = GUICtrlCreateEdit("", 25, 176, 569, 180);, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, StringFormat(s('Philosophy')) & $sTESTME)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			ShellExecute("strings.xml")
		Case $MenuItem2
			MsgBox(0, '', s('ExampleText'))
		Case $MenuItem3
			Exit
		Case $MenuItem5
			MsgBox(64, s('About'), s('AboutInfoText'))
	EndSwitch
WEnd
EndFunc