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

View file

@ -1,4 +1,6 @@
GetVisible inst_show5
;DEBUGVAR inst_show5
@ -10,10 +12,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
@ -26,10 +38,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
@ -60,17 +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
@ -80,9 +101,11 @@
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable
If XMLMultiDebug = 1 Then
DEBUGVAR Inst8CountMenuEnable
DEBUGVAR Inst8CountMenuEnablePrev
DEBUGVAR Inst8CountCurrentMenuEnable
EndIf
If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
@ -116,7 +139,7 @@
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
If Inst8CountDownOpenXMLFromMenuZero = 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
Open CurrentXMLFileName8
EndIf
EndIf
EndIf
@ -131,7 +154,15 @@
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML
If Inst8CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
Open CurrentXMLFileName8
EndIf
EndIf
If ForKidRefreshTimeOut > 15 Then
Var ForKidRefreshTimeOut = 0
Script "-" "-"
EndIf
Var ForKidRefreshTimeOut = ForKidRefreshTimeOut + 1