pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

do multi

Browse source
This commit is contained in:
wanlop run 2025-03-25 10:41:36 +07:00
parent 6d1dc5797b
commit 927831f9e1
17 changed files with 716 additions and 1176 deletions
Download patch file Download diff file Expand all files Collapse all files

62
inter/tha/xml/multi/instance5.inc
View file

@ -1,6 +1,4 @@
GetVisible inst_show2
GetVisible inst_show2
;DEBUGVAR inst_show2
@ -12,10 +10,20 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
@ -29,10 +37,20 @@
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
@ -64,16 +82,16 @@
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf
@ -86,9 +104,11 @@
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnablePrev
;DEBUGVAR Inst5CountCurrentMenuEnable
If XMLMultiDebug = 1 Then
DEBUGVAR Inst5CountMenuEnable
DEBUGVAR Inst5CountMenuEnablePrev
DEBUGVAR Inst5CountCurrentMenuEnable
EndIf
If Inst5CountMenuEnablePrev = "" Then
Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
@ -122,7 +142,7 @@
If Inst5CountDownOpenXMLFromMenuZero = 0 Then
Var Inst5CountDownOpenXMLFromMenuZero = 20
SAVELOG "OPEN FROM 1"
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
EndIf
EndIf
EndIf
@ -138,7 +158,7 @@
DEBUGVAR Inst5CountDownForOpenXML
If Inst5CountDownForOpenXML = 0 Then
SAVELOG "OPEN FROM 2"
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
@ -146,16 +166,16 @@
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf
@ -163,7 +183,7 @@
If RefreshCoffeeMenu = 1 Then
Var RefreshCoffeeMenu = 0
SAVELOG "OPEN FROM 3"
;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
;Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
RefreshAll
EndIf