diff --git a/inter/tha/xml/multi/page_catalog.lxml b/inter/tha/xml/multi/page_catalog.lxml index f7c65c5f..1ad02a5e 100644 --- a/inter/tha/xml/multi/page_catalog.lxml +++ b/inter/tha/xml/multi/page_catalog.lxml @@ -188,15 +188,19 @@ - DEBUGVAR $51-03-01-0035.Price + Var PromotionIDCurrentOrder = 0 RootLayoutVisible 3 "show" - Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentXPosition = 1005 Var ButtonLanguageCurrentYPosition = 458 - 38 Var ButtonLanguageListXPosition = 970 Var ButtonLanguageListYPosition = 450 - 38 + + Var SelectedMenu = "" + Var MultiProcess = "Invisible" + 1000 @@ -233,6 +237,69 @@ Var buttonRemoveCup = "Invisible" EndIf EndIf + + + If MultiProcess = "Enable" Then + If SelectedMenu = "coffee" Then + If Inst5MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 2 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + EndIf + EndIf + + If SelectedMenu = "tea" Then + If Inst6MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 3 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + EndIf + EndIf + + If SelectedMenu = "caramel" Then + If Inst7MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 4 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + EndIf + EndIf + + If SelectedMenu = "kidmenu" Then + If Inst8MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 5 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + EndIf + EndIf + + If SelectedMenu = "healthy" Then + If Inst9MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 6 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + EndIf + EndIf + + If SelectedMenu = "pepsi" Then + If Inst10MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 8 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + EndIf + EndIf + + If SelectedMenu = "soda" Then + If Inst11MenuLoaded = "done" Then + Var MultiProcess = "Invisible" + TabMenuVisibleInst 7 + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + EndIf + EndIf + + + EndIf + Refresh @@ -353,7 +420,7 @@ Var OpenFromMulti = 1 - TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev" + TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev" RootLayoutVisible 3 "hide" RootLayoutVisible 13 "hide" @@ -376,10 +443,14 @@ SoundVolume - TabMenuVisibleInst 2 - - RootLayoutVisible 13 "show" - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + If Inst5MenuLoaded = "done" Then + TabMenuVisibleInst 2 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "coffee" + EndIf @@ -401,8 +472,15 @@ SoundVolume - TabMenuVisibleInst 3 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + If Inst6MenuLoaded = "done" Then + TabMenuVisibleInst 3 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "tea" + EndIf + 000006 @@ -421,8 +499,15 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - TabMenuVisibleInst 4 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + + If Inst7MenuLoaded = "done" Then + TabMenuVisibleInst 4 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "caramel" + EndIf 000007 @@ -443,8 +528,15 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - TabMenuVisibleInst 5 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + + If Inst8MenuLoaded = "done" Then + TabMenuVisibleInst 5 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "kidmenu" + EndIf 000011 @@ -464,8 +556,14 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - TabMenuVisibleInst 5 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + If Inst8MenuLoaded = "done" Then + TabMenuVisibleInst 5 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "appfast" + EndIf @@ -486,8 +584,15 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - TabMenuVisibleInst 7 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + + If Inst11MenuLoaded = "done" Then + TabMenuVisibleInst 7 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "soda" + EndIf 000009 @@ -534,8 +639,15 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - TabMenuVisibleInst 6 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + + If Inst9MenuLoaded = "done" Then + TabMenuVisibleInst 6 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "healthy" + EndIf @@ -579,8 +691,15 @@ "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - TabMenuVisibleInst 8 - OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + + If Inst10MenuLoaded = "done" Then + TabMenuVisibleInst 8 + + OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" + Else + Var MultiProcess = "Enable" + Var SelectedMenu = "pepsi" + EndIf @@ -606,7 +725,6 @@ Open CheckMemberPage - - - - - - - - + + + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_coffee.skt b/inter/tha/xml/multi/page_catalog_group_coffee.skt index c0a62f27..53b1887d 100644 --- a/inter/tha/xml/multi/page_catalog_group_coffee.skt +++ b/inter/tha/xml/multi/page_catalog_group_coffee.skt @@ -26,7 +26,7 @@ Var Menu2Selected = "PressForever" - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" Var Timeout = 0 @@ -153,6 +153,12 @@ 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 diff --git a/inter/tha/xml/multi/page_catalog_group_forkid.lxml b/inter/tha/xml/multi/page_catalog_group_forkid.lxml index fa9d8ba9..1b6bdda7 100644 --- a/inter/tha/xml/multi/page_catalog_group_forkid.lxml +++ b/inter/tha/xml/multi/page_catalog_group_forkid.lxml @@ -1,179 +1,185 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - - SetInstanceIgnoreTouch - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 5 Then - Var SlientRefreshIndex = 6 - EndIf - - - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - ; protein - If AppFastEnable = "true" Then - Var Menu11Selected = "PressForever" - Var Menu7Selected = "Invisible" - Var Menu21Selected = "Invisible" - Else - Var Menu11Selected = "Invisible" - Var Menu7Selected = "Invisible" - Var Menu21Selected = "PressForever" - EndIf - - RootLayoutVisible 12 "show" - - Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - SetInstanceIgnoreTouch - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - 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 inst_show5 = 1 Then - If langnext4 = "true" Then - Var langnext4 = "false" - DEBUGVAR langnext - RefreshAll - 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/page_catalog_group_forkid.lxml" - EndIf - EndIf - EndIf - - If Inst8CountDownForOpenXML > 0 Then - Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 - DEBUGVAR Inst8CountDownForOpenXML - If Inst8CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + + SetInstanceIgnoreTouch + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 5 Then + Var SlientRefreshIndex = 6 + EndIf + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + ; protein + If AppFastEnable = "true" Then + Var Menu11Selected = "PressForever" + Var Menu7Selected = "Invisible" + Var Menu21Selected = "Invisible" + Else + Var Menu11Selected = "Invisible" + Var Menu7Selected = "Invisible" + Var Menu21Selected = "PressForever" + EndIf + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + 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 inst_show5 = 1 Then + If langnext4 = "true" Then + Var langnext4 = "false" + DEBUGVAR langnext + RefreshAll + 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/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/page_catalog_group_forkid.lxml" + EndIf + EndIf + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -5073,8 +5079,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_forkid.skt b/inter/tha/xml/multi/page_catalog_group_forkid.skt index ce78258f..8e2372fe 100644 --- a/inter/tha/xml/multi/page_catalog_group_forkid.skt +++ b/inter/tha/xml/multi/page_catalog_group_forkid.skt @@ -38,7 +38,7 @@ RootLayoutVisible 12 "show" Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" SetInstanceIgnoreTouch @@ -148,6 +148,7 @@ Var Inst8CountDownForOpenXML = 10 EndIf EndIf + If Inst8CountCurrentMenuEnable = 0 Then @@ -162,6 +163,12 @@ 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 diff --git a/inter/tha/xml/multi/page_catalog_group_health.lxml b/inter/tha/xml/multi/page_catalog_group_health.lxml index 38c39e34..2ab05a79 100644 --- a/inter/tha/xml/multi/page_catalog_group_health.lxml +++ b/inter/tha/xml/multi/page_catalog_group_health.lxml @@ -1,167 +1,173 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 6 Then - Var SlientRefreshIndex = 7 - EndIf - - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - - Var Menu22Selected = "PressForever" - - RootLayoutVisible 12 "show" - - Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - SetInstanceIgnoreTouch - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show6 - ;DEBUGVAR inst_show6 - - - - If inst_show6 = 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 = 6 Then - If inst_show6 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile6 - Open CurrentOpenFile6 - Else - Var SlientRefreshIndex = 7 - EndIf - EndIf - - If inst_show6 = 1 Then - If langnext5 = "true" Then - Var langnext5 = "false" - RefreshAll - EndIf - EndIf - - - Var Inst9CountMenuEnable = 0 - Var Inst9CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst9CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst9CountMenuEnable - - ;DEBUGVAR Inst9CountMenuEnable - ;DEBUGVAR Inst9CountMenuEnablePrev - ;DEBUGVAR Inst9CountCurrentMenuEnable - - If Inst9CountMenuEnablePrev = "" Then - Var Inst9CountMenuEnablePrev = Inst9CountMenuEnable - Var Inst9CountDownForOpenXML = 0 - Var Inst9CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst9CountMenuEnable = Inst9CountMenuEnablePrev Then - - Else - SAVELOG "Inst9 Refresh ===================================================================== Refresh" - Var Inst9CountDownForOpenXML = 10 - Var Inst9CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then - - Else - If Inst9CountDownForOpenXML = 0 Then - SAVELOG "Inst9 Refresh =======================Inst9CountMenuEnable / Inst9CountCurrentMenuEnable ============================================== Refresh" - Var Inst9CountDownForOpenXML = 10 - EndIf - EndIf - - If Inst9CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst9CountDownOpenXMLFromMenuZero - - If Inst9CountDownOpenXMLFromMenuZero > 0 Then - Var Inst9CountDownOpenXMLFromMenuZero = Inst9CountDownOpenXMLFromMenuZero - 1 - If Inst9CountDownOpenXMLFromMenuZero = 0 Then - Var Inst9CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" - EndIf - EndIf - EndIf - - If Inst9CountDownForOpenXML > 0 Then - Var Inst9CountDownForOpenXML = Inst9CountDownForOpenXML - 1 - DEBUGVAR Inst9CountDownForOpenXML - If Inst9CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" - EndIf - EndIf - - - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 6 Then + Var SlientRefreshIndex = 7 + EndIf + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + + Var Menu22Selected = "PressForever" + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show6 + ;DEBUGVAR inst_show6 + + + + If inst_show6 = 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 = 6 Then + If inst_show6 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile6 + Open CurrentOpenFile6 + Else + Var SlientRefreshIndex = 7 + EndIf + EndIf + + If inst_show6 = 1 Then + If langnext5 = "true" Then + Var langnext5 = "false" + RefreshAll + EndIf + EndIf + + + Var Inst9CountMenuEnable = 0 + Var Inst9CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst9CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst9CountMenuEnable + + ;DEBUGVAR Inst9CountMenuEnable + ;DEBUGVAR Inst9CountMenuEnablePrev + ;DEBUGVAR Inst9CountCurrentMenuEnable + + If Inst9CountMenuEnablePrev = "" Then + Var Inst9CountMenuEnablePrev = Inst9CountMenuEnable + Var Inst9CountDownForOpenXML = 0 + Var Inst9CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst9CountMenuEnable = Inst9CountMenuEnablePrev Then + + Else + SAVELOG "Inst9 Refresh ===================================================================== Refresh" + Var Inst9CountDownForOpenXML = 10 + Var Inst9CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then + + Else + If Inst9CountDownForOpenXML = 0 Then + SAVELOG "Inst9 Refresh =======================Inst9CountMenuEnable / Inst9CountCurrentMenuEnable ============================================== Refresh" + Var Inst9CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst9CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst9CountDownOpenXMLFromMenuZero + + If Inst9CountDownOpenXMLFromMenuZero > 0 Then + Var Inst9CountDownOpenXMLFromMenuZero = Inst9CountDownOpenXMLFromMenuZero - 1 + If Inst9CountDownOpenXMLFromMenuZero = 0 Then + Var Inst9CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" + EndIf + EndIf + EndIf + + If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then + If Inst9CountCurrentMenuEnable > 0 Then + Var Inst9MenuLoaded = "done" + EndIf + EndIf + + If Inst9CountDownForOpenXML > 0 Then + Var Inst9CountDownForOpenXML = Inst9CountDownForOpenXML - 1 + DEBUGVAR Inst9CountDownForOpenXML + If Inst9CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" + EndIf + EndIf + + + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + 10 497 @@ -10255,8 +10261,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_health.skt b/inter/tha/xml/multi/page_catalog_group_health.skt index 30295f1b..165ef564 100644 --- a/inter/tha/xml/multi/page_catalog_group_health.skt +++ b/inter/tha/xml/multi/page_catalog_group_health.skt @@ -26,7 +26,7 @@ RootLayoutVisible 12 "show" Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" SetInstanceIgnoreTouch @@ -137,6 +137,12 @@ EndIf EndIf + If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then + If Inst9CountCurrentMenuEnable > 0 Then + Var Inst9MenuLoaded = "done" + EndIf + EndIf + If Inst9CountCurrentMenuEnable = 0 Then DEBUGVAR Inst9CountDownOpenXMLFromMenuZero diff --git a/inter/tha/xml/multi/page_catalog_group_milk.lxml b/inter/tha/xml/multi/page_catalog_group_milk.lxml index 394b99b3..e3bb4606 100644 --- a/inter/tha/xml/multi/page_catalog_group_milk.lxml +++ b/inter/tha/xml/multi/page_catalog_group_milk.lxml @@ -1,169 +1,175 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 4 Then - Var SlientRefreshIndex = 5 - EndIf - - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu4Selected = "PressForever" - - RootLayoutVisible 12 "show" - - Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - SetInstanceIgnoreTouch - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - 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 inst_show4 = 1 Then - If langnext3 = "true" Then - Var langnext3 = "false" - DEBUGVAR langnext - RefreshAll - 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/page_catalog_group_milk.lxml" - EndIf - EndIf - EndIf - - If Inst7CountDownForOpenXML > 0 Then - Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1 - DEBUGVAR Inst7CountDownForOpenXML - If Inst7CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 4 Then + Var SlientRefreshIndex = 5 + EndIf + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu4Selected = "PressForever" + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + 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 inst_show4 = 1 Then + If langnext3 = "true" Then + Var langnext3 = "false" + DEBUGVAR langnext + RefreshAll + 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 Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then + If Inst7CountCurrentMenuEnable > 0 Then + Var Inst7MenuLoaded = "done" + 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/page_catalog_group_milk.lxml" + EndIf + EndIf + EndIf + + If Inst7CountDownForOpenXML > 0 Then + Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1 + DEBUGVAR Inst7CountDownForOpenXML + If Inst7CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" + EndIf + EndIf + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -10787,15 +10793,15 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - - RefreshAll - - - - + + + + + + + + RefreshAll + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_milk.skt b/inter/tha/xml/multi/page_catalog_group_milk.skt index b4de54ee..d9df05f6 100644 --- a/inter/tha/xml/multi/page_catalog_group_milk.skt +++ b/inter/tha/xml/multi/page_catalog_group_milk.skt @@ -25,7 +25,7 @@ RootLayoutVisible 12 "show" Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" SetInstanceIgnoreTouch @@ -151,6 +151,12 @@ 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 diff --git a/inter/tha/xml/multi/page_catalog_group_other_other.lxml b/inter/tha/xml/multi/page_catalog_group_other_other.lxml index 161ea788..3f5832c2 100644 --- a/inter/tha/xml/multi/page_catalog_group_other_other.lxml +++ b/inter/tha/xml/multi/page_catalog_group_other_other.lxml @@ -1,163 +1,169 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 7 Then - Var SlientRefreshIndex = 8 - EndIf - - - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - ; soda and other - Var Menu62Selected = "PressForever" - - RootLayoutVisible 12 "show" - - Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - SetInstanceIgnoreTouch - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 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_show9 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile5 - Open CurrentOpenFile5 - Else - Var SlientRefreshIndex = 8 - EndIf - 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 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 - - - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 7 Then + Var SlientRefreshIndex = 8 + EndIf + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + ; soda and other + Var Menu62Selected = "PressForever" + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show + ;DEBUGVAR inst_show + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show = 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_show9 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile5 + Open CurrentOpenFile5 + Else + Var SlientRefreshIndex = 8 + EndIf + 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 + + + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -13595,8 +13601,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_other_other.skt b/inter/tha/xml/multi/page_catalog_group_other_other.skt index b4f26ec8..9a75beba 100644 --- a/inter/tha/xml/multi/page_catalog_group_other_other.skt +++ b/inter/tha/xml/multi/page_catalog_group_other_other.skt @@ -27,7 +27,7 @@ RootLayoutVisible 12 "show" Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" SetInstanceIgnoreTouch @@ -143,6 +143,13 @@ 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 diff --git a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml index 4d4d9c2f..93e32772 100644 --- a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml +++ b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml @@ -1,172 +1,178 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 8 Then - Var SlientRefreshIndex = 9 - EndIf - - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu61Selected = "PressForever" - - - - Var Timeout = 0 - - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - 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 inst_show9 = 1 Then - If langnext8 = "true" Then - Var langnext8 = "false" - DEBUGVAR langnext - RefreshAll - 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/page_catalog_group_pepsi_7up.lxml" - EndIf - EndIf - EndIf - - If Inst10CountDownForOpenXML > 0 Then - Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1 - DEBUGVAR Inst10CountDownForOpenXML - If Inst10CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" - EndIf - EndIf - - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 8 Then + Var SlientRefreshIndex = 9 + EndIf + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu61Selected = "PressForever" + + + + Var Timeout = 0 + + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + 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 inst_show9 = 1 Then + If langnext8 = "true" Then + Var langnext8 = "false" + DEBUGVAR langnext + RefreshAll + 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/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/page_catalog_group_pepsi_7up.lxml" + EndIf + EndIf + + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -8458,8 +8464,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt index 44889ed1..ac34e685 100644 --- a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt +++ b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt @@ -27,7 +27,7 @@ Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" @@ -153,6 +153,12 @@ 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 diff --git a/inter/tha/xml/multi/page_catalog_group_recommend.lxml b/inter/tha/xml/multi/page_catalog_group_recommend.lxml index ef0d7e3b..b4d19f82 100644 --- a/inter/tha/xml/multi/page_catalog_group_recommend.lxml +++ b/inter/tha/xml/multi/page_catalog_group_recommend.lxml @@ -1,200 +1,200 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - - Var Menu1Selected = "PressForever" - - Var OreoBigButtonEnable = "Enable" - - If $12-01-01-0001.Button = "Invisible" Then - Var esp102101001Enable = "Invisible" - Var esp122101001Enable = "Enable" - - Else - Var esp102101001Enable = "Enable" - Var esp122101001Enable = "Invisible" - - EndIf - - SAVELOG PreviseXMLFileName2 - - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - Var Timeout = 0 - - If show_eng = "true" Then - - Var text_unavailable = "UNAVAILABLE###size=16" - Else - Var text_unavailable = "หมด###size=32" - - EndIf - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - RootLayoutVisible 13 "show" - - - SetInstanceIgnoreTouch - - - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Enable" - - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - RefreshAll - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 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 - - Var Timeout = Timeout + 1 - - ;include="ROOT/taobin_project/inter/tha/xml/multi/EventTimeOutWihtOutMultiInstance.ev" - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Enable" - - - - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + + Var Menu1Selected = "PressForever" + + Var OreoBigButtonEnable = "Enable" + + If $12-01-01-0001.Button = "Invisible" Then + Var esp102101001Enable = "Invisible" + Var esp122101001Enable = "Enable" + + Else + Var esp102101001Enable = "Enable" + Var esp122101001Enable = "Invisible" + + EndIf + + SAVELOG PreviseXMLFileName2 + + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + Var Timeout = 0 + + If show_eng = "true" Then + + Var text_unavailable = "UNAVAILABLE###size=16" + Else + Var text_unavailable = "หมด###size=32" + + EndIf + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + RootLayoutVisible 13 "show" + + + SetInstanceIgnoreTouch + + + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Enable" + + OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + RefreshAll + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show + ;DEBUGVAR inst_show + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show = 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 + + Var Timeout = Timeout + 1 + + ;include="ROOT/taobin_project/inter/tha/xml/multi/EventTimeOutWihtOutMultiInstance.ev" + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Enable" + + + + OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + + + 16 10 @@ -16286,28 +16286,28 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - -;BigLogoLayout - - - - + + + + + + + +;BigLogoLayout + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_recommend.skt b/inter/tha/xml/multi/page_catalog_group_recommend.skt index 61d66644..c8a2d352 100644 --- a/inter/tha/xml/multi/page_catalog_group_recommend.skt +++ b/inter/tha/xml/multi/page_catalog_group_recommend.skt @@ -28,7 +28,7 @@ SAVELOG PreviseXMLFileName2 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" Var Timeout = 0 diff --git a/inter/tha/xml/multi/page_catalog_group_tea.lxml b/inter/tha/xml/multi/page_catalog_group_tea.lxml index 22da2591..e726504a 100644 --- a/inter/tha/xml/multi/page_catalog_group_tea.lxml +++ b/inter/tha/xml/multi/page_catalog_group_tea.lxml @@ -1,168 +1,168 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - - SetInstanceIgnoreTouch - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 3 Then - Var SlientRefreshIndex = 4 - - EndIf - - - - - - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu3Selected = "PressForever" - - - SAVELOG PreviseXMLFileName2 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - Var Timeout = 0 - - RootLayoutVisible 10 "show" - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - 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 inst_show3 = 1 Then - If langnext2 = "true" Then - Var langnext2 = "false" - DEBUGVAR langnext - RefreshAll - 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 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/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/page_catalog_group_tea.lxml" - EndIf - EndIf - - - TimerReset - - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + + SetInstanceIgnoreTouch + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 3 Then + Var SlientRefreshIndex = 4 + + EndIf + + + + + + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu3Selected = "PressForever" + + + SAVELOG PreviseXMLFileName2 + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + Var Timeout = 0 + + RootLayoutVisible 10 "show" + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + 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 inst_show3 = 1 Then + If langnext2 = "true" Then + Var langnext2 = "false" + DEBUGVAR langnext + RefreshAll + 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 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/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/page_catalog_group_tea.lxml" + EndIf + EndIf + + + TimerReset + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + + + + 10 497 @@ -12588,8 +12588,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_tea.skt b/inter/tha/xml/multi/page_catalog_group_tea.skt index 8616bf88..a3ed3cb0 100644 --- a/inter/tha/xml/multi/page_catalog_group_tea.skt +++ b/inter/tha/xml/multi/page_catalog_group_tea.skt @@ -31,7 +31,7 @@ SAVELOG PreviseXMLFileName2 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" Var Timeout = 0 diff --git a/inter/tha/xml/multi/page_catalog_group_whey.lxml b/inter/tha/xml/multi/page_catalog_group_whey.lxml index fbde8e30..2653fbb2 100644 --- a/inter/tha/xml/multi/page_catalog_group_whey.lxml +++ b/inter/tha/xml/multi/page_catalog_group_whey.lxml @@ -1,185 +1,185 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 5 Then - Var SlientRefreshIndex = 6 - EndIf - - - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - If AppFastEnable = "true" Then - Var Menu11Selected = "PressForever" - Var Menu7Selected = "Invisible" - Else - Var Menu11Selected = "Invisible" - Var Menu7Selected = "PressForever" - EndIf - - RootLayoutVisible 12 "show" - - Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - SetInstanceIgnoreTouch - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - DEBUGVAR SlientRefreshIndex - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show8 - ;DEBUGVAR inst_show8 - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show8 = 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_show8 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile8 - Open CurrentOpenFile8 - Else - Var SlientRefreshIndex = 6 - EndIf - EndIf - - If inst_show8 = 1 Then - If langnext7 = "true" Then - Var langnext7 = "false" - DEBUGVAR langnext - RefreshAll - 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 Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then - - Else - If Inst6CountDownForOpenXML = 0 Then - SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" - Var Inst6CountDownForOpenXML = 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/page_catalog_group_whey.lxml" - EndIf - EndIf - EndIf - - If Inst8CountDownForOpenXML > 0 Then - Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 - DEBUGVAR Inst8CountDownForOpenXML - If Inst8CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" - EndIf - EndIf - - - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 5 Then + Var SlientRefreshIndex = 6 + EndIf + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + If AppFastEnable = "true" Then + Var Menu11Selected = "PressForever" + Var Menu7Selected = "Invisible" + Else + Var Menu11Selected = "Invisible" + Var Menu7Selected = "PressForever" + EndIf + + RootLayoutVisible 12 "show" + + Var Timeout = 0 + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + SetInstanceIgnoreTouch + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + DEBUGVAR SlientRefreshIndex + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show8 + ;DEBUGVAR inst_show8 + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show8 = 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_show8 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile8 + Open CurrentOpenFile8 + Else + Var SlientRefreshIndex = 6 + EndIf + EndIf + + If inst_show8 = 1 Then + If langnext7 = "true" Then + Var langnext7 = "false" + DEBUGVAR langnext + RefreshAll + 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 Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then + + Else + If Inst6CountDownForOpenXML = 0 Then + SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" + Var Inst6CountDownForOpenXML = 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/page_catalog_group_whey.lxml" + EndIf + EndIf + EndIf + + If Inst8CountDownForOpenXML > 0 Then + Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 + DEBUGVAR Inst8CountDownForOpenXML + If Inst8CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" + EndIf + EndIf + + + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -4766,8 +4766,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_whey.skt b/inter/tha/xml/multi/page_catalog_group_whey.skt index 82d1cd22..86d8331f 100644 --- a/inter/tha/xml/multi/page_catalog_group_whey.skt +++ b/inter/tha/xml/multi/page_catalog_group_whey.skt @@ -32,7 +32,7 @@ RootLayoutVisible 12 "show" Var Timeout = 0 - ;include=""ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" SetInstanceIgnoreTouch