diff --git a/inter/tha/xml/multi/page_catalog_group_coffee.lxml b/inter/tha/xml/multi/page_catalog_group_coffee.lxml index 267761b8..64039cad 100644 --- a/inter/tha/xml/multi/page_catalog_group_coffee.lxml +++ b/inter/tha/xml/multi/page_catalog_group_coffee.lxml @@ -1,245 +1,245 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - - - If SlientRefreshIndex = 2 Then - Var SlientRefreshIndex = 3 - - EndIf - - Var CoffeeRefreshTimeOut = 0 - - - - - - - - SAVELOG "Onshow 1" - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu2Selected = "PressForever" - - SAVELOG "Onshow 2" - ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" - - Var Timeout = 0 - - SAVELOG "Onshow 3" - ;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 - SAVELOG "OPEN slient Refresh" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - SAVELOG "OPEN slient 2" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - If SlientRefreshIndex = 2 Then - If inst_show2 = 0 Then - SAVELOG "OPEN slient 1" - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - - Else - Var SlientRefreshIndex = 3 - EndIf - EndIf - - If inst_show2 = 1 Then - If langnext1 = "true" Then - Var langnext1 = "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 Inst5CountMenuEnable = 0 - Var Inst5CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst5CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst5CountMenuEnable - - ;DEBUGVAR Inst5CountMenuEnable - ;DEBUGVAR Inst5CountMenuEnablePrev - ;DEBUGVAR Inst5CountCurrentMenuEnable - - If Inst5CountMenuEnablePrev = "" Then - Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable - Var Inst5CountDownForOpenXML = 0 - Var Inst5CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then - - Else - SAVELOG "Inst5 Refresh ===================================================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - Var Inst5CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - - Else - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - EndIf - EndIf - - If Inst5CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst5CountDownOpenXMLFromMenuZero - - If Inst5CountDownOpenXMLFromMenuZero > 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 - If Inst5CountDownOpenXMLFromMenuZero = 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = 20 - SAVELOG "OPEN FROM 1" - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" - EndIf - EndIf - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - If Inst5CountCurrentMenuEnable > 0 Then - Var Inst5MenuLoaded = "done" - EndIf - EndIf - - If Inst5CountDownForOpenXML > 0 Then - Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 - DEBUGVAR Inst5CountDownForOpenXML - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "OPEN FROM 2" - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" - EndIf - InstanceGetString SaveStringInst - If SaveStringInst = "RefreshNow" Then - - Else - If LanguageShow = "ENG" Then - Var SaveStringInst = "ShowEng" - Var show_eng = "false" - EndIf - If LanguageShow = "THAI" Then - Var SaveStringInst = "ShowThai" - Var show_eng = "true" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "false" - Var SaveStringInst = "ShowMYANMAR" - EndIf - EndIf - EndIf - - ; setvarint RefreshCoffeeMenu 1 - If RefreshCoffeeMenu = 1 Then - Var RefreshCoffeeMenu = 0 - SAVELOG "OPEN FROM 3" - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" - EndIf - - ; setvarint ScriptCoffeeMenu 1 - If ScriptCoffeeMenu = 1 Then - Var ScriptCoffeeMenu = 0 - SAVELOG "Runscript 3" - Script "-" "-" - EndIf - - If CoffeeRefreshTimeOut > 15 Then - Var CoffeeRefreshTimeOut = 0 - Script "-" "-" - EndIf - - Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1 - - - TimerReset - - - -;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 + + Var CoffeeRefreshTimeOut = 0 + + + + + + + + SAVELOG "Onshow 1" + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu2Selected = "PressForever" + + SAVELOG "Onshow 2" + ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" + + Var Timeout = 0 + + SAVELOG "Onshow 3" + ;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 + SAVELOG "OPEN slient Refresh" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + SAVELOG "OPEN slient 2" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + If SlientRefreshIndex = 2 Then + If inst_show2 = 0 Then + SAVELOG "OPEN slient 1" + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + + Else + Var SlientRefreshIndex = 3 + EndIf + EndIf + + If inst_show2 = 1 Then + If langnext1 = "true" Then + Var langnext1 = "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 Inst5CountMenuEnable = 0 + Var Inst5CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst5CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst5CountMenuEnable + + ;DEBUGVAR Inst5CountMenuEnable + ;DEBUGVAR Inst5CountMenuEnablePrev + ;DEBUGVAR Inst5CountCurrentMenuEnable + + If Inst5CountMenuEnablePrev = "" Then + Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable + Var Inst5CountDownForOpenXML = 0 + Var Inst5CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then + + Else + SAVELOG "Inst5 Refresh ===================================================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + Var Inst5CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + + Else + If Inst5CountDownForOpenXML = 0 Then + SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst5CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst5CountDownOpenXMLFromMenuZero + + If Inst5CountDownOpenXMLFromMenuZero > 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 + If Inst5CountDownOpenXMLFromMenuZero = 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = 20 + SAVELOG "OPEN FROM 1" + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" + EndIf + EndIf + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + If Inst5CountCurrentMenuEnable > 0 Then + Var Inst5MenuLoaded = "done" + EndIf + EndIf + + If Inst5CountDownForOpenXML > 0 Then + Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 + DEBUGVAR Inst5CountDownForOpenXML + If Inst5CountDownForOpenXML = 0 Then + SAVELOG "OPEN FROM 2" + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" + EndIf + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf + EndIf + + ; setvarint RefreshCoffeeMenu 1 + If RefreshCoffeeMenu = 1 Then + Var RefreshCoffeeMenu = 0 + SAVELOG "OPEN FROM 3" + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" + EndIf + + ; setvarint ScriptCoffeeMenu 1 + If ScriptCoffeeMenu = 1 Then + Var ScriptCoffeeMenu = 0 + SAVELOG "Runscript 3" + Script "-" "-" + EndIf + + If CoffeeRefreshTimeOut > 15 Then + Var CoffeeRefreshTimeOut = 0 + Script "-" "-" + EndIf + + Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1 + + + TimerReset + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -36780,10 +36780,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 24a4f264..4faf947f 100644 --- a/inter/tha/xml/multi/page_catalog_group_coffee.skt +++ b/inter/tha/xml/multi/page_catalog_group_coffee.skt @@ -123,7 +123,7 @@ Var SaveStringInst = "ShowThai" Var show_eng = "true" EndIf - If LanguageShow "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var show_eng = "false" Var SaveStringInst = "ShowMYANMAR" EndIf diff --git a/inter/tha/xml/multi/page_catalog_group_forkid.lxml b/inter/tha/xml/multi/page_catalog_group_forkid.lxml index e3ff9bc5..cb23f712 100644 --- a/inter/tha/xml/multi/page_catalog_group_forkid.lxml +++ b/inter/tha/xml/multi/page_catalog_group_forkid.lxml @@ -1,279 +1,279 @@ - - - - "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 - - 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 - - - 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 - - InstanceGetString SaveStringInst - If SaveStringInst = "RefreshNow" Then - - Else - If LanguageShow = "ENG" Then - Var SaveStringInst = "ShowEng" - Var show_eng = "false" - EndIf - If LanguageShow = "THAI" Then - Var SaveStringInst = "ShowThai" - Var show_eng = "true" - EndIf - If LanguageShow "MYANMAR" Then - Var show_eng = "false" - Var SaveStringInst = "ShowMYANMAR" - EndIf - EndIf - EndIf - - - Var Inst8CountMenuEnable = 0 - Var Inst8CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst8CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst8CountMenuEnable - - ;DEBUGVAR Inst8CountMenuEnable - ;DEBUGVAR Inst8CountMenuEnablePrev - ;DEBUGVAR Inst8CountCurrentMenuEnable - - If Inst8CountMenuEnablePrev = "" Then - Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable - Var Inst8CountDownForOpenXML = 0 - Var Inst8CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then - - Else - SAVELOG "Inst8 Refresh ===================================================================== Refresh" - Var Inst8CountDownForOpenXML = 10 - Var Inst8CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then - - Else - If Inst8CountDownForOpenXML = 0 Then - SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" - Var Inst8CountDownForOpenXML = 10 - EndIf - EndIf - - - If Inst8CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst8CountDownOpenXMLFromMenuZero - - If Inst8CountDownOpenXMLFromMenuZero > 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 - If Inst8CountDownOpenXMLFromMenuZero = 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/tha/xml/multi/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 - - - - 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 + + ; 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 + + 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 + + + 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 + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf + EndIf + + + Var Inst8CountMenuEnable = 0 + Var Inst8CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst8CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst8CountMenuEnable + + ;DEBUGVAR Inst8CountMenuEnable + ;DEBUGVAR Inst8CountMenuEnablePrev + ;DEBUGVAR Inst8CountCurrentMenuEnable + + If Inst8CountMenuEnablePrev = "" Then + Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable + Var Inst8CountDownForOpenXML = 0 + Var Inst8CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then + + Else + SAVELOG "Inst8 Refresh ===================================================================== Refresh" + Var Inst8CountDownForOpenXML = 10 + Var Inst8CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then + + Else + If Inst8CountDownForOpenXML = 0 Then + SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" + Var Inst8CountDownForOpenXML = 10 + EndIf + EndIf + + + If Inst8CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst8CountDownOpenXMLFromMenuZero + + If Inst8CountDownOpenXMLFromMenuZero > 0 Then + Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 + If Inst8CountDownOpenXMLFromMenuZero = 0 Then + Var Inst8CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/tha/xml/multi/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 + + + + 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 @@ -7073,8 +7073,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 9373473a..261c4711 100644 --- a/inter/tha/xml/multi/page_catalog_group_forkid.skt +++ b/inter/tha/xml/multi/page_catalog_group_forkid.skt @@ -145,7 +145,7 @@ Var SaveStringInst = "ShowThai" Var show_eng = "true" EndIf - If LanguageShow "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var show_eng = "false" Var SaveStringInst = "ShowMYANMAR" EndIf 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 91ea08c2..c9539de0 100644 --- a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml +++ b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml @@ -1,198 +1,198 @@ - - - - "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 inst_show9 = "true" Then - Var inst_show9 = "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 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" - - - - + + + + "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 inst_show9 = "true" Then + Var inst_show9 = "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 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 @@ -10869,8 +10869,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 22c87bb8..5bf9f289 100644 --- a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt +++ b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt @@ -119,7 +119,7 @@ Var SaveStringInst = "ShowThai" Var show_eng = "true" EndIf - If LanguageShow "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var show_eng = "false" Var SaveStringInst = "ShowMYANMAR" EndIf