Try to fix v3
This commit is contained in:
wanlop run
parent
3c05684c63
commit
0a93c8251e
24 changed files with 268 additions and 1848 deletions
|
|
@ -4,6 +4,8 @@ If CatalogLayoutV3 = 1 Then
|
|||
Var layoutVersion = "v3/"
|
||||
EndIf
|
||||
|
||||
SAVELOG "=================== Control language and switch instance ========================="
|
||||
|
||||
OpenRedirect "/taobin_project/inter/tha/xml/page_catalog_group_coffee.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/coffee.ev"
|
||||
Var InstanceTabOpenFile2 = "ROOT/taobin_project/inter/tha/xml/multi/" + layoutVersion
|
||||
Var InstanceTabOpenFile2 = InstanceTabOpenFile2 + "/page_catalog_group_coffee.lxml"
|
||||
|
|
@ -30,11 +32,15 @@ EndIf
|
|||
If WheyButtonState = "Enable" Then
|
||||
OpenRedirect "/taobin_project/inter/tha/xml/page_catalog_group_whey.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/kidandwhey.ev"
|
||||
Var InstanceTabOpenFile5 = "ROOT/taobin_project/inter/tha/xml/multi/" + layoutVersion
|
||||
Var InstanceTabOpenFile5 = InstanceTabOpenFile5 + "/page_catalog_group_whey.lxml"
|
||||
Var InstanceTabOpenFile5 = InstanceTabOpenFile5 + "/page_catalog_group_whey.lxml"
|
||||
Else
|
||||
OpenRedirect "/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/kidandwhey.ev"
|
||||
Var InstanceTabOpenFile5 = "ROOT/taobin_project/inter/tha/xml/multi/" + layoutVersion
|
||||
Var InstanceTabOpenFile5 = InstanceTabOpenFile5 + "/page_catalog_group_forkid.lxml"
|
||||
EndIf
|
||||
|
||||
If MenuKidButtonState = "Enable" Then
|
||||
OpenRedirect "/taobin_project/inter/tha/xml/page_catalog_group_forkid.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/kidandwhey.ev"
|
||||
OpenRedirect "/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/kidandwhey.ev"
|
||||
Var InstanceTabOpenFile5 = "ROOT/taobin_project/inter/tha/xml/multi/" + layoutVersion
|
||||
Var InstanceTabOpenFile5 = InstanceTabOpenFile5 + "/page_catalog_group_forkid.lxml"
|
||||
EndIf
|
||||
|
|
@ -51,7 +57,7 @@ Else
|
|||
EndIf
|
||||
|
||||
|
||||
OpenRedirect "/taobin_project/inter/tha/xml/page_catalog_group_pepsi_7up.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/pepsi7up.ev"
|
||||
OpenRedirect "/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_pepsi_7up.lxml" "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/pepsi7up.ev"
|
||||
Var InstanceTabOpenFile8 = "ROOT/taobin_project/inter/tha/xml/multi/" + layoutVersion
|
||||
Var InstanceTabOpenFile8 = InstanceTabOpenFile8 + "/page_catalog_group_pepsi_7up.lxml"
|
||||
|
||||
|
|
|
|||
|
|
@ -142,7 +142,7 @@
|
|||
If Inst5CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst5CountDownOpenXMLFromMenuZero = 20
|
||||
SAVELOG "OPEN FROM 1"
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
;Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -158,7 +158,7 @@
|
|||
DEBUGVAR Inst5CountDownForOpenXML
|
||||
If Inst5CountDownForOpenXML = 0 Then
|
||||
SAVELOG "OPEN FROM 2"
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
;Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
EndIf
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
|
|
|||
|
|
@ -139,7 +139,7 @@
|
|||
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst8CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst8CountDownOpenXMLFromMenuZero = 20
|
||||
Open CurrentXMLFileName8
|
||||
;Open CurrentXMLFileName8
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -154,7 +154,7 @@
|
|||
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst8CountDownForOpenXML
|
||||
If Inst8CountDownForOpenXML = 0 Then
|
||||
Open CurrentXMLFileName8
|
||||
;Open CurrentXMLFileName8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
|
|||
|
|
@ -282,8 +282,19 @@
|
|||
DEBUGVAR Inst11MenuLoaded
|
||||
|
||||
DEBUGVAR MultiProcessTimer
|
||||
DEBUGVAR CatalogLayoutV3
|
||||
If CatalogLayoutV3 = 1 Then
|
||||
Var Inst5MenuLoaded = "done"
|
||||
Var Inst6MenuLoaded = "done"
|
||||
Var Inst7MenuLoaded = "done"
|
||||
Var Inst8MenuLoaded = "done"
|
||||
Var Inst9MenuLoaded = "done"
|
||||
Var Inst10MenuLoaded = "done"
|
||||
Var Inst11MenuLoaded = "done"
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
If MultiProcess = "Enable" Then
|
||||
If SelectedMenu = "coffee" Then
|
||||
Var MultiProcessTimer = MultiProcessTimer + 1
|
||||
|
|
|
|||
|
|
@ -406,15 +406,15 @@
|
|||
Var menu_desc_thai_blender = DescLang[2][1]
|
||||
DEBUGVAR menu_name_thai_cold
|
||||
DEBUGVAR menu_desc_thai_cold
|
||||
Var NameDrink = aliasName[0]
|
||||
Var DrinkDescription = aliasDesc[0]
|
||||
Var NameDrinkTH = aliasName[1]
|
||||
Var DrinkDescriptionTH = aliasDesc[1]
|
||||
If LanguageShow = "THAI" Then
|
||||
Var show_eng = "false"
|
||||
Else
|
||||
Var show_eng = "true"
|
||||
EndIf
|
||||
Var NameDrink = aliasName[0]
|
||||
Var DrinkDescription = aliasDesc[0]
|
||||
Var NameDrinkTH = aliasName[1]
|
||||
Var DrinkDescriptionTH = aliasDesc[1]
|
||||
If LanguageShow = "THAI" Then
|
||||
Var show_eng = "false"
|
||||
Else
|
||||
Var show_eng = "true"
|
||||
EndIf
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_topping_select7.xml"
|
||||
Else
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_topping_select6.lxml"
|
||||
|
|
|
|||
|
|
@ -61,7 +61,9 @@
|
|||
Var ice_tab_process_show = "Invisible"
|
||||
EndIf
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/instance8.inc"
|
||||
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
|
|
|||
|
|
@ -170,6 +170,7 @@
|
|||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
Var NextPage = "-"
|
||||
SAVELOG "============================ Click For Kids "============================ "
|
||||
TabMenuVisibleInst 5
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@
|
|||
Var ice_tab_process_show = "Invisible"
|
||||
EndIf
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/coffee_instance.inc"
|
||||
|
||||
|
||||
|
||||
TimerReset
|
||||
|
|
|
|||
|
|
@ -54,7 +54,7 @@
|
|||
Var ice_tab_process_show = "Invisible"
|
||||
EndIf
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/coffee_instance.inc"
|
||||
|
||||
|
||||
|
||||
TimerReset
|
||||
|
|
|
|||
|
|
@ -46,141 +46,7 @@
|
|||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show4
|
||||
;DEBUGVAR inst_show4
|
||||
|
||||
If inst_show4 = 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 = 4 Then
|
||||
If inst_show4 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile4
|
||||
Open CurrentOpenFile4
|
||||
|
||||
Else
|
||||
Var SlientRefreshIndex = 5
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext3 = "true" Then
|
||||
Var langnext3 = "false"
|
||||
DEBUGVAR langnext3
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show4 = 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 Inst7CountMenuEnable = 0
|
||||
Var Inst7CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst7CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst7CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst7CountMenuEnable
|
||||
;DEBUGVAR Inst7CountMenuEnablePrev
|
||||
;DEBUGVAR Inst7CountCurrentMenuEnable
|
||||
|
||||
If Inst7CountMenuEnablePrev = "" Then
|
||||
Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable
|
||||
Var Inst7CountDownForOpenXML = 0
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst7 Refresh ===================================================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
Var Inst7CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst7CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst7CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst7CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst7CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
If Inst7CountCurrentMenuEnable > 0 Then
|
||||
Var Inst7MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountDownForOpenXML > 0 Then
|
||||
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst7CountDownForOpenXML
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
|
|
|||
|
|
@ -48,141 +48,7 @@
|
|||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show4
|
||||
;DEBUGVAR inst_show4
|
||||
|
||||
If inst_show4 = 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 = 4 Then
|
||||
If inst_show4 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile4
|
||||
Open CurrentOpenFile4
|
||||
|
||||
Else
|
||||
Var SlientRefreshIndex = 5
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext3 = "true" Then
|
||||
Var langnext3 = "false"
|
||||
DEBUGVAR langnext3
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show4 = 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 Inst7CountMenuEnable = 0
|
||||
Var Inst7CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst7CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst7CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst7CountMenuEnable
|
||||
;DEBUGVAR Inst7CountMenuEnablePrev
|
||||
;DEBUGVAR Inst7CountCurrentMenuEnable
|
||||
|
||||
If Inst7CountMenuEnablePrev = "" Then
|
||||
Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable
|
||||
Var Inst7CountDownForOpenXML = 0
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst7 Refresh ===================================================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
Var Inst7CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst7CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst7CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst7CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst7CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
If Inst7CountCurrentMenuEnable > 0 Then
|
||||
Var Inst7MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountDownForOpenXML > 0 Then
|
||||
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst7CountDownForOpenXML
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
|
|
|||
|
|
@ -42,153 +42,6 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show7
|
||||
;DEBUGVAR inst_show7
|
||||
|
||||
|
||||
If inst_show7 = 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 = 7 Then
|
||||
If inst_show7 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||
Open CurrentOpenFile7
|
||||
Else
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
If langnext6 = "true" Then
|
||||
Var langnext6 = "false"
|
||||
DEBUGVAR langnext
|
||||
;GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
DEBUGVAR CurrentOpenFile4
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_other.lxml"
|
||||
RefreshAll
|
||||
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
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
<EventOnShow>
|
||||
InstanceGetString SaveStringInst
|
||||
DEBUGVAR SaveStringInst
|
||||
DEBUGVAR show_eng
|
||||
|
||||
|
||||
Var ButtonLanguageCurrentXPosition = 1005
|
||||
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||
|
||||
Var ButtonLanguageListXPosition = 970
|
||||
Var ButtonLanguageListYPosition = 450 - 38
|
||||
|
||||
DEBUGVAR EnabledBlockUpdateInst6
|
||||
DEBUGVAR EnabledBlocksDrawInst6
|
||||
|
||||
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
Else
|
||||
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
|
||||
Var StatusRefresh = "NoRefresh"
|
||||
DEBUGVAR StatusRefresh
|
||||
Else
|
||||
Var StatusRefresh = "Refresh"
|
||||
DEBUGVAR StatusRefresh
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||
Open CurrentOpenFile2
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
DEBUGVAR LanguageShow
|
||||
|
||||
|
||||
If SaveStringInst = "ShowThai" Then
|
||||
If LanguageShow = "THAI" Then
|
||||
|
||||
Else
|
||||
Var show_eng = "true"
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SaveStringInst = "ShowMYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
|
||||
Else
|
||||
Var show_eng = "false"
|
||||
InstanceSetString "ShowEng"
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SaveStringInst = "ShowEng" Then
|
||||
If LanguageShow = "ENG" Then
|
||||
|
||||
Else
|
||||
Var show_eng = "false"
|
||||
InstanceSetString "ShowThai"
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -45,153 +45,6 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show7
|
||||
;DEBUGVAR inst_show7
|
||||
|
||||
|
||||
If inst_show7 = 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 = 7 Then
|
||||
If inst_show7 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||
Open CurrentOpenFile7
|
||||
Else
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
If langnext6 = "true" Then
|
||||
Var langnext6 = "false"
|
||||
DEBUGVAR langnext
|
||||
;GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
DEBUGVAR CurrentOpenFile4
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_other.lxml"
|
||||
RefreshAll
|
||||
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
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
<EventOnShow>
|
||||
InstanceGetString SaveStringInst
|
||||
DEBUGVAR SaveStringInst
|
||||
DEBUGVAR show_eng
|
||||
|
||||
|
||||
Var ButtonLanguageCurrentXPosition = 1005
|
||||
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||
|
||||
Var ButtonLanguageListXPosition = 970
|
||||
Var ButtonLanguageListYPosition = 450 - 38
|
||||
|
||||
DEBUGVAR EnabledBlockUpdateInst6
|
||||
DEBUGVAR EnabledBlocksDrawInst6
|
||||
|
||||
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
Else
|
||||
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
|
||||
Var StatusRefresh = "NoRefresh"
|
||||
DEBUGVAR StatusRefresh
|
||||
Else
|
||||
Var StatusRefresh = "Refresh"
|
||||
DEBUGVAR StatusRefresh
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||
Open CurrentOpenFile2
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
DEBUGVAR LanguageShow
|
||||
|
||||
|
||||
If SaveStringInst = "ShowThai" Then
|
||||
If LanguageShow = "THAI" Then
|
||||
|
||||
Else
|
||||
Var show_eng = "true"
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SaveStringInst = "ShowMYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
|
||||
Else
|
||||
Var show_eng = "false"
|
||||
InstanceSetString "ShowEng"
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SaveStringInst = "ShowEng" Then
|
||||
If LanguageShow = "ENG" Then
|
||||
|
||||
Else
|
||||
Var show_eng = "false"
|
||||
InstanceSetString "ShowThai"
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -48,124 +48,6 @@
|
|||
|
||||
|
||||
|
||||
GetVisible inst_show7
|
||||
;DEBUGVAR inst_show7
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
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 = 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/v3/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/v3/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/v3/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -51,124 +51,6 @@
|
|||
|
||||
|
||||
|
||||
GetVisible inst_show7
|
||||
;DEBUGVAR inst_show7
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
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 = 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/v3/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/v3/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/v3/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -49,140 +49,6 @@
|
|||
|
||||
|
||||
|
||||
GetVisible inst_show9
|
||||
;DEBUGVAR inst_show9
|
||||
|
||||
|
||||
|
||||
If inst_show9 = 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 = 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"
|
||||
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 Inst10CountMenuEnable = 0
|
||||
Var Inst10CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst10CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst10CountMenuEnable
|
||||
;DEBUGVAR Inst10CountMenuEnablePrev
|
||||
;DEBUGVAR Inst10CountCurrentMenuEnable
|
||||
|
||||
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/v3/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/v3/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
|
|
|||
|
|
@ -52,140 +52,6 @@
|
|||
|
||||
|
||||
|
||||
GetVisible inst_show9
|
||||
;DEBUGVAR inst_show9
|
||||
|
||||
|
||||
|
||||
If inst_show9 = 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 = 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"
|
||||
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 Inst10CountMenuEnable = 0
|
||||
Var Inst10CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst10CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst10CountMenuEnable
|
||||
;DEBUGVAR Inst10CountMenuEnablePrev
|
||||
;DEBUGVAR Inst10CountCurrentMenuEnable
|
||||
|
||||
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/v3/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/v3/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
|
|
|||
|
|
@ -52,130 +52,9 @@
|
|||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show3
|
||||
;DEBUGVAR inst_show3
|
||||
|
||||
|
||||
|
||||
If inst_show3 = 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 SlientRefreshIndex = 3 Then
|
||||
If inst_show3 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile3
|
||||
Open CurrentOpenFile3
|
||||
Else
|
||||
Var SlientRefreshIndex = 4
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext2 = "true" Then
|
||||
Var langnext2 = "false"
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show3 = 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 Inst6CountMenuEnable = 0
|
||||
Var Inst6CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst6CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst6CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst6CountMenuEnable
|
||||
;DEBUGVAR Inst6CountMenuEnablePrev
|
||||
;DEBUGVAR Inst6CountCurrentMenuEnable
|
||||
|
||||
If Inst6CountMenuEnablePrev = "" Then
|
||||
Var Inst6CountMenuEnablePrev = Inst6CountMenuEnable
|
||||
Var Inst6CountDownForOpenXML = 0
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst6 Refresh ===================================================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
Var Inst6CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
If Inst6CountCurrentMenuEnable > 0 Then
|
||||
Var Inst6MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst6CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst6CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst6CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = Inst6CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst6CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountDownForOpenXML > 0 Then
|
||||
Var Inst6CountDownForOpenXML = Inst6CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst6CountDownForOpenXML
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
|
|
|||
|
|
@ -55,130 +55,9 @@
|
|||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show3
|
||||
;DEBUGVAR inst_show3
|
||||
|
||||
|
||||
|
||||
If inst_show3 = 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 SlientRefreshIndex = 3 Then
|
||||
If inst_show3 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile3
|
||||
Open CurrentOpenFile3
|
||||
Else
|
||||
Var SlientRefreshIndex = 4
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext2 = "true" Then
|
||||
Var langnext2 = "false"
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show3 = 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 Inst6CountMenuEnable = 0
|
||||
Var Inst6CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst6CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst6CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst6CountMenuEnable
|
||||
;DEBUGVAR Inst6CountMenuEnablePrev
|
||||
;DEBUGVAR Inst6CountCurrentMenuEnable
|
||||
|
||||
If Inst6CountMenuEnablePrev = "" Then
|
||||
Var Inst6CountMenuEnablePrev = Inst6CountMenuEnable
|
||||
Var Inst6CountDownForOpenXML = 0
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst6 Refresh ===================================================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
Var Inst6CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
If Inst6CountCurrentMenuEnable > 0 Then
|
||||
Var Inst6MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst6CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst6CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst6CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = Inst6CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst6CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountDownForOpenXML > 0 Then
|
||||
Var Inst6CountDownForOpenXML = Inst6CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst6CountDownForOpenXML
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
|
|
|||
|
|
@ -51,153 +51,6 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show5
|
||||
;DEBUGVAR inst_show5
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
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 langnext7 = "true" Then
|
||||
Var langnext7 = "false"
|
||||
DEBUGVAR langnext7
|
||||
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 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_whey.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_whey.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
|
|
|||
|
|
@ -54,153 +54,6 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show5
|
||||
;DEBUGVAR inst_show5
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
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 langnext7 = "true" Then
|
||||
Var langnext7 = "false"
|
||||
DEBUGVAR langnext7
|
||||
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 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_whey.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_whey.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue