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

148
inter/tha/xml/multi/instance11.inc Normal file
View file

@ -0,0 +1,148 @@
GetVisible inst_show7
;DEBUGVAR inst_show7
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show7 = 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
; 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 = 7 Then
If inst_show7 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile7
Else
Var SlientRefreshIndex = 8
EndIf
EndIf
If langnext6 = "true" Then
Var langnext6 = "false"
DEBUGVAR langnext6
RefreshAll
EndIf
Var Inst11CountMenuEnable = 0
Var Inst11CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst11CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnablePrev
;DEBUGVAR Inst11CountCurrentMenuEnable
If Inst11CountMenuEnablePrev = "" Then
Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
Var Inst11CountDownForOpenXML = 0
Var Inst11CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
Else
SAVELOG "Inst11 Refresh ===================================================================== Refresh"
Var Inst11CountDownForOpenXML = 10
Var Inst11CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
Else
If Inst11CountDownForOpenXML = 0 Then
SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
Var Inst11CountDownForOpenXML = 10
EndIf
EndIf
If Inst11CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero
If Inst11CountDownOpenXMLFromMenuZero > 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1
If Inst11CountDownOpenXMLFromMenuZero = 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
EndIf
EndIf
EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
If Inst11CountCurrentMenuEnable > 0 Then
Var Inst11MenuLoaded = "done"
EndIf
EndIf
If Inst11CountDownForOpenXML > 0 Then
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1
DEBUGVAR Inst11CountDownForOpenXML
If Inst11CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
EndIf
EndIf
; setvarint RefreshOtherMenu 1
If RefreshOtherMenu = 1 Then
Var RefreshOtherMenu = 0
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
EndIf
If OtherOtherRefreshTimeOut > 15 Then
Var OtherOtherRefreshTimeOut = 0
Script "-" "-"
EndIf
Var OtherOtherRefreshTimeOut = OtherOtherRefreshTimeOut + 1