183 lines
No EOL
4.9 KiB
HTML
183 lines
No EOL
4.9 KiB
HTML
|
|
|
|
GetVisible inst_show2
|
|
;DEBUGVAR inst_show2
|
|
|
|
|
|
If inst_show2 = 1 Then
|
|
InstanceGetString SaveStringInst
|
|
;DEBUGVAR SaveStringInst
|
|
If SaveStringInst = "RefreshNow" Then
|
|
SAVELOG "OPEN slient Refresh"
|
|
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
|
|
SAVELOG "OPEN slient 2"
|
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
Open CurrentOpenFile
|
|
|
|
If show_eng = "true" Then
|
|
InstanceSetString "ShowEng"
|
|
Else
|
|
InstanceSetString "ShowThai"
|
|
EndIf
|
|
|
|
EndIf
|
|
EndIf
|
|
|
|
If SlientRefreshIndex = 2 Then
|
|
If inst_show2 = 0 Then
|
|
SAVELOG "OPEN slient 1"
|
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
|
Open CurrentOpenFile2
|
|
|
|
Else
|
|
Var SlientRefreshIndex = 3
|
|
EndIf
|
|
EndIf
|
|
|
|
If langnext1 = "true" Then
|
|
DEBUGVAR langnext1
|
|
Var langnext1 = "false"
|
|
RefreshAll
|
|
EndIf
|
|
|
|
If inst_show2 = 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 Inst5CountMenuEnable = 0
|
|
Var Inst5CountCurrentMenuEnable = 0
|
|
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
|
|
GetCurrentEnableBlockCount Inst5CountMenuEnable
|
|
|
|
;DEBUGVAR Inst5CountMenuEnable
|
|
;DEBUGVAR Inst5CountMenuEnablePrev
|
|
;DEBUGVAR Inst5CountCurrentMenuEnable
|
|
|
|
If Inst5CountMenuEnablePrev = "" Then
|
|
Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
|
|
Var Inst5CountDownForOpenXML = 0
|
|
Var Inst5CountDownOpenXMLFromMenuZero = 20
|
|
EndIf
|
|
|
|
If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then
|
|
|
|
Else
|
|
SAVELOG "Inst5 Refresh ===================================================================== Refresh"
|
|
Var Inst5CountDownForOpenXML = 10
|
|
Var Inst5CountMenuEnablePrev = CountMenuEnable
|
|
EndIf
|
|
|
|
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
|
|
|
|
Else
|
|
If Inst5CountDownForOpenXML = 0 Then
|
|
SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh"
|
|
Var Inst5CountDownForOpenXML = 10
|
|
EndIf
|
|
EndIf
|
|
|
|
If Inst5CountCurrentMenuEnable = 0 Then
|
|
|
|
DEBUGVAR Inst5CountDownOpenXMLFromMenuZero
|
|
|
|
If Inst5CountDownOpenXMLFromMenuZero > 0 Then
|
|
Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1
|
|
If Inst5CountDownOpenXMLFromMenuZero = 0 Then
|
|
Var Inst5CountDownOpenXMLFromMenuZero = 20
|
|
SAVELOG "OPEN FROM 1"
|
|
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
|
|
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
|
|
If Inst5CountCurrentMenuEnable > 0 Then
|
|
Var Inst5MenuLoaded = "done"
|
|
EndIf
|
|
EndIf
|
|
|
|
If Inst5CountDownForOpenXML > 0 Then
|
|
Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1
|
|
DEBUGVAR Inst5CountDownForOpenXML
|
|
If Inst5CountDownForOpenXML = 0 Then
|
|
SAVELOG "OPEN FROM 2"
|
|
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
|
|
EndIf
|
|
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
|
|
|
|
; setvarint RefreshCoffeeMenu 1
|
|
If RefreshCoffeeMenu = 1 Then
|
|
Var RefreshCoffeeMenu = 0
|
|
SAVELOG "OPEN FROM 3"
|
|
;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
|
|
RefreshAll
|
|
EndIf
|
|
|
|
; setvarint ScriptCoffeeMenu 1
|
|
If ScriptCoffeeMenu = 1 Then
|
|
Var ScriptCoffeeMenu = 0
|
|
SAVELOG "Runscript 3"
|
|
Script "-" "-"
|
|
EndIf
|
|
|
|
If CoffeeRefreshTimeOut > 15 Then
|
|
Var CoffeeRefreshTimeOut = 0
|
|
Script "-" "-"
|
|
EndIf
|
|
|
|
Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
|
|
|