diff --git a/inter/tha/xml/multi/page_catalog.lxml b/inter/tha/xml/multi/page_catalog.lxml index 166bc8b0..cead610c 100644 --- a/inter/tha/xml/multi/page_catalog.lxml +++ b/inter/tha/xml/multi/page_catalog.lxml @@ -18,6 +18,20 @@ DEBUGVAR ToppingNewShow + DEBUGVAR OpenFromPageBoard + If OpenFromPageBoard = 1 Then + Var OpenFromPageBoard = 0 + Var langnext1 = "true" + Var langnext2 = "true" + Var langnext3 = "true" + Var langnext4 = "true" + Var langnext5 = "true" + Var langnext6 = "true" + Var langnext7 = "true" + Var langnext8 = "true" + SAVELOG "======================================= RefreshAll Languages ================================" + EndIf + Var NextPage = "-" Var Seeker.thankLidFlag = 0 diff --git a/inter/tha/xml/multi/page_catalog_group_coffee.lxml b/inter/tha/xml/multi/page_catalog_group_coffee.lxml index 130352ee..0379d666 100644 --- a/inter/tha/xml/multi/page_catalog_group_coffee.lxml +++ b/inter/tha/xml/multi/page_catalog_group_coffee.lxml @@ -1,255 +1,256 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - - - If SlientRefreshIndex = 2 Then - Var SlientRefreshIndex = 3 - - EndIf - - - - - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu2Selected = "PressForever" - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - Var Timeout = 0 - - - ;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_show2 - ;DEBUGVAR inst_show2 - - - If inst_show2 = 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 = 2 Then - If inst_show2 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - - Else - Var SlientRefreshIndex = 3 - EndIf - EndIf - - If inst_show2 = 1 Then - If langnext1 = "true" Then - Var langnext1 = "false" - DEBUGVAR langnext - EndIf - EndIf - - - - - - Var Inst5CountMenuEnable = 0 - Var Inst5CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst5CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst5CountMenuEnable - - ;DEBUGVAR Inst5CountMenuEnable - ;DEBUGVAR Inst5CountMenuEnablePrev - ;DEBUGVAR Inst5CountCurrentMenuEnable - - If Inst5CountMenuEnablePrev = "" Then - Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable - Var Inst5CountDownForOpenXML = 0 - Var Inst5CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then - - Else - SAVELOG "Inst5 Refresh ===================================================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - Var Inst5CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - - Else - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - EndIf - EndIf - - If Inst5CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst5CountDownOpenXMLFromMenuZero - - If Inst5CountDownOpenXMLFromMenuZero > 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 - If Inst5CountDownOpenXMLFromMenuZero = 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" - EndIf - EndIf - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - If Inst5CountCurrentMenuEnable > 0 Then - Var Inst5MenuLoaded = "done" - EndIf - EndIf - - If Inst5CountDownForOpenXML > 0 Then - Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 - DEBUGVAR Inst5CountDownForOpenXML - If Inst5CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" - EndIf - InstanceGetString SaveStringInst - If SaveStringInst = "RefreshNow" Then - - Else - If LanguageShow = "ENG" Then - Var SaveStringInst = "ShowEng" - Var show_eng = "false" - EndIf - If LanguageShow = "THAI" Then - Var SaveStringInst = "ShowThai" - Var show_eng = "true" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "false" - Var SaveStringInst = "ShowMYANMAR" - EndIf - EndIf - EndIf - - TimerReset - - - - 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 - 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 - - - - - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + + + If SlientRefreshIndex = 2 Then + Var SlientRefreshIndex = 3 + + EndIf + + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu2Selected = "PressForever" + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + Var Timeout = 0 + + + ;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_show2 + ;DEBUGVAR inst_show2 + + + If inst_show2 = 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 = 2 Then + If inst_show2 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + + Else + Var SlientRefreshIndex = 3 + EndIf + EndIf + + If inst_show2 = 1 Then + If langnext1 = "true" Then + Var langnext1 = "false" + DEBUGVAR langnext + RefreshAll + EndIf + EndIf + + + + + + Var Inst5CountMenuEnable = 0 + Var Inst5CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst5CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst5CountMenuEnable + + ;DEBUGVAR Inst5CountMenuEnable + ;DEBUGVAR Inst5CountMenuEnablePrev + ;DEBUGVAR Inst5CountCurrentMenuEnable + + If Inst5CountMenuEnablePrev = "" Then + Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable + Var Inst5CountDownForOpenXML = 0 + Var Inst5CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then + + Else + SAVELOG "Inst5 Refresh ===================================================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + Var Inst5CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + + Else + If Inst5CountDownForOpenXML = 0 Then + SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst5CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst5CountDownOpenXMLFromMenuZero + + If Inst5CountDownOpenXMLFromMenuZero > 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 + If Inst5CountDownOpenXMLFromMenuZero = 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" + EndIf + EndIf + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + If Inst5CountCurrentMenuEnable > 0 Then + Var Inst5MenuLoaded = "done" + EndIf + EndIf + + If Inst5CountDownForOpenXML > 0 Then + Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 + DEBUGVAR Inst5CountDownForOpenXML + If Inst5CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" + EndIf + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf + EndIf + + TimerReset + + + + 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 + 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 + + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -30472,10 +30473,10 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - + + + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_coffee.skt b/inter/tha/xml/multi/page_catalog_group_coffee.skt index 6eb1e6c5..fb5498bc 100644 --- a/inter/tha/xml/multi/page_catalog_group_coffee.skt +++ b/inter/tha/xml/multi/page_catalog_group_coffee.skt @@ -101,6 +101,7 @@ If langnext1 = "true" Then Var langnext1 = "false" DEBUGVAR langnext + RefreshAll EndIf EndIf 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 76e81de6..49fe1bb7 100644 --- a/inter/tha/xml/multi/page_catalog_group_other_other.lxml +++ b/inter/tha/xml/multi/page_catalog_group_other_other.lxml @@ -1,232 +1,243 @@ - - - - "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 - - - - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - - - - - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - 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 - - - - - - -;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_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 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/page_catalog_group_other_other.lxml" + RefreshAll + 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 + + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + 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 + + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -14322,8 +14333,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 f3788544..4bd2fb9c 100644 --- a/inter/tha/xml/multi/page_catalog_group_other_other.skt +++ b/inter/tha/xml/multi/page_catalog_group_other_other.skt @@ -51,13 +51,13 @@ - GetVisible inst_show - ;DEBUGVAR inst_show + GetVisible inst_show7 + ;DEBUGVAR inst_show7 InstanceGetString SaveStringInst ;DEBUGVAR SaveStringInst - If inst_show = 1 Then + If inst_show7 = 1 Then If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile @@ -89,13 +89,24 @@ EndIf If SlientRefreshIndex = 7 Then - If inst_show9 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile5 - Open CurrentOpenFile5 + 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/page_catalog_group_other_other.lxml" + RefreshAll + EndIf + EndIf Var Inst11CountMenuEnable = 0 diff --git a/inter/tha/xml/multi/page_catalog_group_whey.lxml b/inter/tha/xml/multi/page_catalog_group_whey.lxml index de94c6bf..4d02cd70 100644 --- a/inter/tha/xml/multi/page_catalog_group_whey.lxml +++ b/inter/tha/xml/multi/page_catalog_group_whey.lxml @@ -1,275 +1,281 @@ - - - - "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 - - 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 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 - - - - 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 - - - - - - -;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_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 inst_show5 = 1 Then + If langnext7 = "true" Then + Var langnext7 = "false" + DEBUGVAR langnext + 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 + + + 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/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/page_catalog_group_whey.lxml" + EndIf + EndIf + + + + TimerReset + + + + 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 + + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -5080,8 +5086,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 8e5017a0..d9dcc2c6 100644 --- a/inter/tha/xml/multi/page_catalog_group_whey.skt +++ b/inter/tha/xml/multi/page_catalog_group_whey.skt @@ -56,13 +56,13 @@ - GetVisible inst_show8 - ;DEBUGVAR inst_show8 + GetVisible inst_show5 + ;DEBUGVAR inst_show5 InstanceGetString SaveStringInst ;DEBUGVAR SaveStringInst - If inst_show8 = 1 Then + If inst_show5 = 1 Then InstanceGetString SaveStringInst ;DEBUGVAR SaveStringInst If SaveStringInst = "RefreshNow" Then @@ -97,15 +97,15 @@ If SlientRefreshIndex = 5 Then - If inst_show8 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile8 - Open CurrentOpenFile8 + If inst_show5 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile5 + Open CurrentOpenFile5 Else Var SlientRefreshIndex = 6 EndIf EndIf - If inst_show8 = 1 Then + If inst_show5 = 1 Then If langnext7 = "true" Then Var langnext7 = "false" DEBUGVAR langnext @@ -161,12 +161,12 @@ Var Inst8CountMenuEnablePrev = CountMenuEnable EndIf - If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then Else - If Inst6CountDownForOpenXML = 0 Then - SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" - Var Inst6CountDownForOpenXML = 10 + If Inst8CountDownForOpenXML = 0 Then + SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" + Var Inst8CountDownForOpenXML = 10 EndIf EndIf @@ -183,6 +183,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/xml/page_catalog.lxml b/xml/page_catalog.lxml index 9b02f171..0e1d633c 100644 --- a/xml/page_catalog.lxml +++ b/xml/page_catalog.lxml @@ -14,6 +14,7 @@ If CountryName = "Thailand" Then If InternationalEnable = 1 Then If EnableMultiInstance = "true" Then + Var OpenFromPageBoard = 1 OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_catalog.lxml" EndIf