137 lines
No EOL
3.7 KiB
HTML
137 lines
No EOL
3.7 KiB
HTML
|
|
GetVisible inst_show5
|
|
;DEBUGVAR inst_show5
|
|
|
|
|
|
If inst_show5 = 1 Then
|
|
InstanceGetString SaveStringInst
|
|
;DEBUGVAR SaveStringInst
|
|
If SaveStringInst = "RefreshNow" Then
|
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
Open CurrentOpenFile
|
|
|
|
If show_eng = "true" Then
|
|
InstanceSetString "ShowEng"
|
|
Else
|
|
InstanceSetString "ShowThai"
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
|
|
; setvarint SlientRefreshEnable 1
|
|
;DEBUGVAR SlientRefreshEnable
|
|
|
|
If SlientRefreshEnable = 1 Then
|
|
If SaveStringInst = "RefreshNow" Then
|
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
Open CurrentOpenFile
|
|
|
|
If show_eng = "true" Then
|
|
InstanceSetString "ShowEng"
|
|
Else
|
|
InstanceSetString "ShowThai"
|
|
EndIf
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
If SlientRefreshIndex = 5 Then
|
|
If inst_show5 = 0 Then
|
|
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
|
Open CurrentOpenFile5
|
|
Else
|
|
Var SlientRefreshIndex = 6
|
|
EndIf
|
|
EndIf
|
|
|
|
If langnext4 = "true" Then
|
|
Var langnext4 = "false"
|
|
DEBUGVAR langnext4
|
|
RefreshAll
|
|
EndIf
|
|
|
|
If inst_show5 = 1 Then
|
|
|
|
|
|
InstanceGetString SaveStringInst
|
|
If SaveStringInst = "RefreshNow" Then
|
|
|
|
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
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
Var Inst8CountMenuEnable = 0
|
|
Var Inst8CountCurrentMenuEnable = 0
|
|
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
|
|
GetCurrentEnableBlockCount Inst8CountMenuEnable
|
|
|
|
;DEBUGVAR Inst8CountMenuEnable
|
|
;DEBUGVAR Inst8CountMenuEnablePrev
|
|
;DEBUGVAR Inst8CountCurrentMenuEnable
|
|
|
|
If Inst8CountMenuEnablePrev = "" Then
|
|
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
|
|
Var Inst8CountDownForOpenXML = 0
|
|
Var Inst8CountDownOpenXMLFromMenuZero = 20
|
|
EndIf
|
|
|
|
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
|
|
|
|
Else
|
|
SAVELOG "Inst8 Refresh ===================================================================== Refresh"
|
|
Var Inst8CountDownForOpenXML = 10
|
|
Var Inst8CountMenuEnablePrev = CountMenuEnable
|
|
EndIf
|
|
|
|
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
|
|
|
|
Else
|
|
If Inst8CountDownForOpenXML = 0 Then
|
|
SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
|
|
Var Inst8CountDownForOpenXML = 10
|
|
EndIf
|
|
EndIf
|
|
|
|
|
|
If Inst8CountCurrentMenuEnable = 0 Then
|
|
|
|
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
|
|
|
|
If Inst8CountDownOpenXMLFromMenuZero > 0 Then
|
|
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"
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
|
|
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
|
|
If Inst8CountCurrentMenuEnable > 0 Then
|
|
Var Inst8MenuLoaded = "done"
|
|
EndIf
|
|
EndIf
|
|
|
|
If Inst8CountDownForOpenXML > 0 Then
|
|
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
|
|
DEBUGVAR Inst8CountDownForOpenXML
|
|
If Inst8CountDownForOpenXML = 0 Then
|
|
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
|
|
EndIf
|
|
EndIf
|
|
|