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

156
inter/tha/xml/multi/instace10.inc Normal file
View file

@ -0,0 +1,156 @@
GetVisible inst_show9
;DEBUGVAR inst_show9
If inst_show9 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "THAI" Then
InstanceSetString "ShowThai"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MYANMAR" Then
InstanceSetString "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 8 Then
If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5
Else
Var SlientRefreshIndex = 9
EndIf
EndIf
If langnext9 = "true" Then
Var langnext9 = "false"
RefreshAll
EndIf
If inst_show9 = 1 Then
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
EndIf
If LanguageShow = "MYANMAR" Then
Var SaveStringInst = "ShowMYANMAR"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf
Var Inst10CountMenuEnable = 0
Var Inst10CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst10CountMenuEnable
If XMLMultiDebug = 1 Then
DEBUGVAR Inst10CountMenuEnable
DEBUGVAR Inst10CountMenuEnablePrev
DEBUGVAR Inst10CountCurrentMenuEnable
EndIf
If Inst10CountMenuEnablePrev = "" Then
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
Var Inst10CountDownForOpenXML = 0
Var Inst10CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
Else
SAVELOG "Inst10 Refresh ===================================================================== Refresh"
Var Inst10CountDownForOpenXML = 10
Var Inst10CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
Else
If Inst10CountDownForOpenXML = 0 Then
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
Var Inst10CountDownForOpenXML = 10
EndIf
EndIf
If Inst10CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
If Inst10CountDownOpenXMLFromMenuZero > 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
If Inst10CountDownOpenXMLFromMenuZero = 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf
EndIf
EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
If Inst10CountCurrentMenuEnable > 0 Then
Var Inst10MenuLoaded = "done"
EndIf
EndIf
If Inst10CountDownForOpenXML > 0 Then
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
DEBUGVAR Inst10CountDownForOpenXML
If Inst10CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf
EndIf