148 lines
4.2 KiB
HTML
148 lines
4.2 KiB
HTML
|
|
|
|
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
|
|
|