This commit is contained in:
wanlop run 2024-12-12 10:51:27 +07:00
parent 410f802f51
commit 5f6b94ccf6
15 changed files with 14 additions and 275 deletions

View file

@ -106,7 +106,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -109,7 +109,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -184,63 +184,6 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

View file

@ -186,63 +186,6 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

View file

@ -113,7 +113,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -116,7 +116,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -107,7 +107,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -110,7 +110,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -121,7 +121,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -124,7 +124,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -1,3 +1,2 @@
OpenInst 13 "ROOT/taobin_project/inter/tha/xml/multi/tab_menu.lxml"
Refresh
OpenInst 13 "ROOT/taobin_project/inter/tha/xml/multi/tab_menu.lxml"