pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

Thai Inter: add loading screen for multi-instance

Browse source
This commit is contained in:
thanawat saiyota 2024-12-04 14:35:52 +07:00
parent ecdf9a316f
commit a9dcdb9f88
19 changed files with 1868 additions and 1653 deletions
Download patch file Download diff file Expand all files Collapse all files

187
inter/tha/xml/multi/page_catalog.lxml
View file

@ -188,15 +188,19 @@
DEBUGVAR $51-03-01-0035.Price
Var PromotionIDCurrentOrder = 0 Var PromotionIDCurrentOrder = 0
RootLayoutVisible 3 "show" RootLayoutVisible 3 "show"
Var ButtonLanguageCurrentXPosition = 1005 Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38 Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970 Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38 Var ButtonLanguageListYPosition = 450 - 38
Var SelectedMenu = ""
Var MultiProcess = "Invisible"
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
@ -233,6 +237,69 @@
Var buttonRemoveCup = "Invisible" Var buttonRemoveCup = "Invisible"
EndIf EndIf
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 Refresh
@ -353,7 +420,7 @@
<EventClick> <EventClick>
Var OpenFromMulti = 1 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 3 "hide"
RootLayoutVisible 13 "hide" RootLayoutVisible 13 "hide"
@ -376,10 +443,14 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
TabMenuVisibleInst 2 If Inst5MenuLoaded = "done" Then
TabMenuVisibleInst 2
RootLayoutVisible 13 "show"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else
Var MultiProcess = "Enable"
Var SelectedMenu = "coffee"
EndIf
</EventClick> </EventClick>
<Language> <Language>
@ -401,8 +472,15 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
TabMenuVisibleInst 3 If Inst6MenuLoaded = "done" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" TabMenuVisibleInst 3
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else
Var MultiProcess = "Enable"
Var SelectedMenu = "tea"
EndIf
</EventClick> </EventClick>
<Language> <Language>
<ID> 000006 </ID> <ID> 000006 </ID>
@ -421,8 +499,15 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
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
</EventClick> </EventClick>
<Language> <Language>
<ID> 000007 </ID> <ID> 000007 </ID>
@ -443,8 +528,15 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
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
</EventClick> </EventClick>
<Language> <Language>
<ID> 000011 </ID> <ID> 000011 </ID>
@ -464,8 +556,14 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
TabMenuVisibleInst 5 If Inst8MenuLoaded = "done" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml" TabMenuVisibleInst 5
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
Else
Var MultiProcess = "Enable"
Var SelectedMenu = "appfast"
EndIf
</EventClick> </EventClick>
<Language> <Language>
@ -486,8 +584,15 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
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
</EventClick> </EventClick>
<Language> <Language>
<ID> 000009 </ID> <ID> 000009 </ID>
@ -534,8 +639,15 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
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
</EventClick> </EventClick>
<Language> <Language>
@ -579,8 +691,15 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
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
</EventClick> </EventClick>
<Language> <Language>
@ -606,7 +725,6 @@
Open CheckMemberPage Open CheckMemberPage
</EventClick> </EventClick>
</Button>
<Button> <Button>
<X> 696 </X> <X> 696 </X>
@ -623,6 +741,13 @@
Open "ROOT/taobin_project/xml/page_back_to_topup.xml" Open "ROOT/taobin_project/xml/page_back_to_topup.xml"
</EventClick> </EventClick>
<Language>
<ID> 002004 </ID>
<X> 70 </X>
<Y> 25 </Y>
<Width> 200 </Width>
<Height> 72 </Height>
</Language>
</Button> </Button>
<Button> <Button>
@ -712,7 +837,21 @@
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> MultiProcess </State>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 968 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> MultiProcess </State>
<Filename> "ROOT/taobin_project/image/page_payment/loading.gif" </Filename>
</GIF>
<Image> <Image>
@ -776,7 +915,9 @@
</EventUnitTest2> </EventUnitTest2>
; Initial for jump to page_brewing3.xml ; Initial for jump to page_brewing3.xml
<EventUnitTest3> <EventUnitTest3>
</EventUnitTest3> </EventUnitTest3>
</Popup> </Popup>

356
inter/tha/xml/multi/page_catalog_group_coffee.lxml
View file

@ -1,171 +1,177 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever" 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 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show2 GetVisible inst_show2
;DEBUGVAR inst_show2 ;DEBUGVAR inst_show2
If inst_show2 = 1 Then If inst_show2 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
If inst_show2 = 0 Then If inst_show2 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile2 GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2 Open CurrentOpenFile2
Else Else
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
EndIf EndIf
If inst_show2 = 1 Then If inst_show2 = 1 Then
If langnext1 = "true" Then If langnext1 = "true" Then
Var langnext1 = "false" Var langnext1 = "false"
DEBUGVAR langnext DEBUGVAR langnext
EndIf EndIf
EndIf EndIf
Var Inst5CountMenuEnable = 0 Var Inst5CountMenuEnable = 0
Var Inst5CountCurrentMenuEnable = 0 Var Inst5CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst5CountMenuEnable GetCurrentEnableBlockCount Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnable ;DEBUGVAR Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnablePrev ;DEBUGVAR Inst5CountMenuEnablePrev
;DEBUGVAR Inst5CountCurrentMenuEnable ;DEBUGVAR Inst5CountCurrentMenuEnable
If Inst5CountMenuEnablePrev = "" Then If Inst5CountMenuEnablePrev = "" Then
Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
Var Inst5CountDownForOpenXML = 0 Var Inst5CountDownForOpenXML = 0
Var Inst5CountDownOpenXMLFromMenuZero = 20 Var Inst5CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then
Else Else
SAVELOG "Inst5 Refresh ===================================================================== Refresh" SAVELOG "Inst5 Refresh ===================================================================== Refresh"
Var Inst5CountDownForOpenXML = 10 Var Inst5CountDownForOpenXML = 10
Var Inst5CountMenuEnablePrev = CountMenuEnable Var Inst5CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
Else Else
If Inst5CountDownForOpenXML = 0 Then If Inst5CountDownForOpenXML = 0 Then
SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh"
Var Inst5CountDownForOpenXML = 10 Var Inst5CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst5CountCurrentMenuEnable = 0 Then If Inst5CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst5CountDownOpenXMLFromMenuZero DEBUGVAR Inst5CountDownOpenXMLFromMenuZero
If Inst5CountDownOpenXMLFromMenuZero > 0 Then If Inst5CountDownOpenXMLFromMenuZero > 0 Then
Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1
If Inst5CountDownOpenXMLFromMenuZero = 0 Then If Inst5CountDownOpenXMLFromMenuZero = 0 Then
Var Inst5CountDownOpenXMLFromMenuZero = 20 Var Inst5CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst5CountDownForOpenXML > 0 Then If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 If Inst5CountCurrentMenuEnable > 0 Then
DEBUGVAR Inst5CountDownForOpenXML Var Inst5MenuLoaded = "done"
If Inst5CountDownForOpenXML = 0 Then EndIf
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" EndIf
EndIf
EndIf If Inst5CountDownForOpenXML > 0 Then
Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1
TimerReset DEBUGVAR Inst5CountDownForOpenXML
</EventTimeout> If Inst5CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -28988,10 +28994,10 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

8
inter/tha/xml/multi/page_catalog_group_coffee.skt
View file

@ -26,7 +26,7 @@
Var Menu2Selected = "PressForever" 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 Var Timeout = 0
@ -153,6 +153,12 @@
EndIf EndIf
EndIf EndIf
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
If Inst5CountCurrentMenuEnable > 0 Then
Var Inst5MenuLoaded = "done"
EndIf
EndIf
If Inst5CountDownForOpenXML > 0 Then If Inst5CountDownForOpenXML > 0 Then
Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1
DEBUGVAR Inst5CountDownForOpenXML DEBUGVAR Inst5CountDownForOpenXML

368
inter/tha/xml/multi/page_catalog_group_forkid.lxml
View file

@ -1,179 +1,185 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; protein ; protein
If AppFastEnable = "true" Then If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever" Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Var Menu21Selected = "Invisible" Var Menu21Selected = "Invisible"
Else Else
Var Menu11Selected = "Invisible" Var Menu11Selected = "Invisible"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Var Menu21Selected = "PressForever" Var Menu21Selected = "PressForever"
EndIf EndIf
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show5 GetVisible inst_show5
;DEBUGVAR inst_show5 ;DEBUGVAR inst_show5
If inst_show5 = 1 Then If inst_show5 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
If inst_show5 = 0 Then If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
EndIf EndIf
If inst_show5 = 1 Then If inst_show5 = 1 Then
If langnext4 = "true" Then If langnext4 = "true" Then
Var langnext4 = "false" Var langnext4 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
Var Inst8CountMenuEnable = 0 Var Inst8CountMenuEnable = 0
Var Inst8CountCurrentMenuEnable = 0 Var Inst8CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable ;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev ;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable ;DEBUGVAR Inst8CountCurrentMenuEnable
If Inst8CountMenuEnablePrev = "" Then If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0 Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
Else Else
SAVELOG "Inst8 Refresh ===================================================================== Refresh" SAVELOG "Inst8 Refresh ===================================================================== Refresh"
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
Var Inst8CountMenuEnablePrev = CountMenuEnable Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else Else
If Inst8CountDownForOpenXML = 0 Then If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst8CountCurrentMenuEnable = 0 Then If Inst8CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
If Inst8CountDownOpenXMLFromMenuZero > 0 Then If Inst8CountDownOpenXMLFromMenuZero > 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
If Inst8CountDownOpenXMLFromMenuZero = 0 Then If Inst8CountDownOpenXMLFromMenuZero = 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst8CountDownForOpenXML > 0 Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 If Inst8CountCurrentMenuEnable > 0 Then
DEBUGVAR Inst8CountDownForOpenXML Var Inst8MenuLoaded = "done"
If Inst8CountDownForOpenXML = 0 Then EndIf
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" EndIf
EndIf
EndIf If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
TimerReset DEBUGVAR Inst8CountDownForOpenXML
</EventTimeout> If Inst8CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -5073,8 +5079,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

9
inter/tha/xml/multi/page_catalog_group_forkid.skt
View file

@ -38,7 +38,7 @@
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
@ -148,6 +148,7 @@
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst8CountCurrentMenuEnable = 0 Then If Inst8CountCurrentMenuEnable = 0 Then
@ -162,6 +163,12 @@
EndIf EndIf
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done"
EndIf
EndIf
If Inst8CountDownForOpenXML > 0 Then If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML DEBUGVAR Inst8CountDownForOpenXML

344
inter/tha/xml/multi/page_catalog_group_health.lxml
View file

@ -1,167 +1,173 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 6 Then If SlientRefreshIndex = 6 Then
Var SlientRefreshIndex = 7 Var SlientRefreshIndex = 7
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu22Selected = "PressForever" Var Menu22Selected = "PressForever"
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show6 GetVisible inst_show6
;DEBUGVAR inst_show6 ;DEBUGVAR inst_show6
If inst_show6 = 1 Then If inst_show6 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 6 Then If SlientRefreshIndex = 6 Then
If inst_show6 = 0 Then If inst_show6 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile6 GetXMLFileNameCurrentRunning CurrentOpenFile6
Open CurrentOpenFile6 Open CurrentOpenFile6
Else Else
Var SlientRefreshIndex = 7 Var SlientRefreshIndex = 7
EndIf EndIf
EndIf EndIf
If inst_show6 = 1 Then If inst_show6 = 1 Then
If langnext5 = "true" Then If langnext5 = "true" Then
Var langnext5 = "false" Var langnext5 = "false"
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
Var Inst9CountMenuEnable = 0 Var Inst9CountMenuEnable = 0
Var Inst9CountCurrentMenuEnable = 0 Var Inst9CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst9CountCurrentMenuEnable GetFrameScrollBlockCount Inst9CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst9CountMenuEnable GetCurrentEnableBlockCount Inst9CountMenuEnable
;DEBUGVAR Inst9CountMenuEnable ;DEBUGVAR Inst9CountMenuEnable
;DEBUGVAR Inst9CountMenuEnablePrev ;DEBUGVAR Inst9CountMenuEnablePrev
;DEBUGVAR Inst9CountCurrentMenuEnable ;DEBUGVAR Inst9CountCurrentMenuEnable
If Inst9CountMenuEnablePrev = "" Then If Inst9CountMenuEnablePrev = "" Then
Var Inst9CountMenuEnablePrev = Inst9CountMenuEnable Var Inst9CountMenuEnablePrev = Inst9CountMenuEnable
Var Inst9CountDownForOpenXML = 0 Var Inst9CountDownForOpenXML = 0
Var Inst9CountDownOpenXMLFromMenuZero = 20 Var Inst9CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst9CountMenuEnable = Inst9CountMenuEnablePrev Then If Inst9CountMenuEnable = Inst9CountMenuEnablePrev Then
Else Else
SAVELOG "Inst9 Refresh ===================================================================== Refresh" SAVELOG "Inst9 Refresh ===================================================================== Refresh"
Var Inst9CountDownForOpenXML = 10 Var Inst9CountDownForOpenXML = 10
Var Inst9CountMenuEnablePrev = CountMenuEnable Var Inst9CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then
Else Else
If Inst9CountDownForOpenXML = 0 Then If Inst9CountDownForOpenXML = 0 Then
SAVELOG "Inst9 Refresh =======================Inst9CountMenuEnable / Inst9CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst9 Refresh =======================Inst9CountMenuEnable / Inst9CountCurrentMenuEnable ============================================== Refresh"
Var Inst9CountDownForOpenXML = 10 Var Inst9CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst9CountCurrentMenuEnable = 0 Then If Inst9CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst9CountDownOpenXMLFromMenuZero DEBUGVAR Inst9CountDownOpenXMLFromMenuZero
If Inst9CountDownOpenXMLFromMenuZero > 0 Then If Inst9CountDownOpenXMLFromMenuZero > 0 Then
Var Inst9CountDownOpenXMLFromMenuZero = Inst9CountDownOpenXMLFromMenuZero - 1 Var Inst9CountDownOpenXMLFromMenuZero = Inst9CountDownOpenXMLFromMenuZero - 1
If Inst9CountDownOpenXMLFromMenuZero = 0 Then If Inst9CountDownOpenXMLFromMenuZero = 0 Then
Var Inst9CountDownOpenXMLFromMenuZero = 20 Var Inst9CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst9CountDownForOpenXML > 0 Then If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then
Var Inst9CountDownForOpenXML = Inst9CountDownForOpenXML - 1 If Inst9CountCurrentMenuEnable > 0 Then
DEBUGVAR Inst9CountDownForOpenXML Var Inst9MenuLoaded = "done"
If Inst9CountDownForOpenXML = 0 Then EndIf
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
TimerReset Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
</EventTimeout> EndIf
EndIf
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -10255,8 +10261,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

8
inter/tha/xml/multi/page_catalog_group_health.skt
View file

@ -26,7 +26,7 @@
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
@ -137,6 +137,12 @@
EndIf EndIf
EndIf EndIf
If Inst9CountMenuEnable = Inst9CountCurrentMenuEnable Then
If Inst9CountCurrentMenuEnable > 0 Then
Var Inst9MenuLoaded = "done"
EndIf
EndIf
If Inst9CountCurrentMenuEnable = 0 Then If Inst9CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst9CountDownOpenXMLFromMenuZero DEBUGVAR Inst9CountDownOpenXMLFromMenuZero

362
inter/tha/xml/multi/page_catalog_group_milk.lxml
View file

@ -1,169 +1,175 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 4 Then If SlientRefreshIndex = 4 Then
Var SlientRefreshIndex = 5 Var SlientRefreshIndex = 5
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu4Selected = "PressForever" Var Menu4Selected = "PressForever"
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show4 GetVisible inst_show4
;DEBUGVAR inst_show4 ;DEBUGVAR inst_show4
If inst_show4 = 1 Then If inst_show4 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 4 Then If SlientRefreshIndex = 4 Then
If inst_show4 = 0 Then If inst_show4 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile4 GetXMLFileNameCurrentRunning CurrentOpenFile4
Open CurrentOpenFile4 Open CurrentOpenFile4
Else Else
Var SlientRefreshIndex = 5 Var SlientRefreshIndex = 5
EndIf EndIf
EndIf EndIf
If inst_show4 = 1 Then If inst_show4 = 1 Then
If langnext3 = "true" Then If langnext3 = "true" Then
Var langnext3 = "false" Var langnext3 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
Var Inst7CountMenuEnable = 0 Var Inst7CountMenuEnable = 0
Var Inst7CountCurrentMenuEnable = 0 Var Inst7CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst7CountCurrentMenuEnable GetFrameScrollBlockCount Inst7CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst7CountMenuEnable GetCurrentEnableBlockCount Inst7CountMenuEnable
;DEBUGVAR Inst7CountMenuEnable ;DEBUGVAR Inst7CountMenuEnable
;DEBUGVAR Inst7CountMenuEnablePrev ;DEBUGVAR Inst7CountMenuEnablePrev
;DEBUGVAR Inst7CountCurrentMenuEnable ;DEBUGVAR Inst7CountCurrentMenuEnable
If Inst7CountMenuEnablePrev = "" Then If Inst7CountMenuEnablePrev = "" Then
Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable
Var Inst7CountDownForOpenXML = 0 Var Inst7CountDownForOpenXML = 0
Var Inst7CountDownOpenXMLFromMenuZero = 20 Var Inst7CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then
Else Else
SAVELOG "Inst7 Refresh ===================================================================== Refresh" SAVELOG "Inst7 Refresh ===================================================================== Refresh"
Var Inst7CountDownForOpenXML = 10 Var Inst7CountDownForOpenXML = 10
Var Inst7CountMenuEnablePrev = CountMenuEnable Var Inst7CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
Else Else
If Inst7CountDownForOpenXML = 0 Then If Inst7CountDownForOpenXML = 0 Then
SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"
Var Inst7CountDownForOpenXML = 10 Var Inst7CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
If Inst7CountCurrentMenuEnable = 0 Then If Inst7CountCurrentMenuEnable > 0 Then
Var Inst7MenuLoaded = "done"
DEBUGVAR Inst7CountDownOpenXMLFromMenuZero EndIf
EndIf
If Inst7CountDownOpenXMLFromMenuZero > 0 Then
Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1
If Inst7CountDownOpenXMLFromMenuZero = 0 Then If Inst7CountCurrentMenuEnable = 0 Then
Var Inst7CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" DEBUGVAR Inst7CountDownOpenXMLFromMenuZero
EndIf
EndIf If Inst7CountDownOpenXMLFromMenuZero > 0 Then
EndIf Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1
If Inst7CountDownOpenXMLFromMenuZero = 0 Then
If Inst7CountDownForOpenXML > 0 Then Var Inst7CountDownOpenXMLFromMenuZero = 20
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1 Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
DEBUGVAR Inst7CountDownForOpenXML EndIf
If Inst7CountDownForOpenXML = 0 Then EndIf
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" EndIf
EndIf
EndIf If Inst7CountDownForOpenXML > 0 Then
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1
TimerReset DEBUGVAR Inst7CountDownForOpenXML
</EventTimeout> If Inst7CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -10787,15 +10793,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
<EventUnitTest4> <EventUnitTest4>
RefreshAll RefreshAll
</EventUnitTest4> </EventUnitTest4>
</Popup> </Popup>

8
inter/tha/xml/multi/page_catalog_group_milk.skt
View file

@ -25,7 +25,7 @@
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
@ -151,6 +151,12 @@
EndIf EndIf
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
If Inst7CountCurrentMenuEnable > 0 Then
Var Inst7MenuLoaded = "done"
EndIf
EndIf
If Inst7CountDownForOpenXML > 0 Then If Inst7CountDownForOpenXML > 0 Then
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1 Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1
DEBUGVAR Inst7CountDownForOpenXML DEBUGVAR Inst7CountDownForOpenXML

336
inter/tha/xml/multi/page_catalog_group_other_other.lxml
View file

@ -1,163 +1,169 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; soda and other ; soda and other
Var Menu62Selected = "PressForever" Var Menu62Selected = "PressForever"
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show GetVisible inst_show
;DEBUGVAR inst_show ;DEBUGVAR inst_show
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show = 1 Then If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 7 Then If SlientRefreshIndex = 7 Then
If inst_show9 = 0 Then If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
EndIf EndIf
Var Inst11CountMenuEnable = 0 Var Inst11CountMenuEnable = 0
Var Inst11CountCurrentMenuEnable = 0 Var Inst11CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst11CountCurrentMenuEnable GetFrameScrollBlockCount Inst11CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst11CountMenuEnable GetCurrentEnableBlockCount Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnable ;DEBUGVAR Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnablePrev ;DEBUGVAR Inst11CountMenuEnablePrev
;DEBUGVAR Inst11CountCurrentMenuEnable ;DEBUGVAR Inst11CountCurrentMenuEnable
If Inst11CountMenuEnablePrev = "" Then If Inst11CountMenuEnablePrev = "" Then
Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
Var Inst11CountDownForOpenXML = 0 Var Inst11CountDownForOpenXML = 0
Var Inst11CountDownOpenXMLFromMenuZero = 20 Var Inst11CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
Else Else
SAVELOG "Inst11 Refresh ===================================================================== Refresh" SAVELOG "Inst11 Refresh ===================================================================== Refresh"
Var Inst11CountDownForOpenXML = 10 Var Inst11CountDownForOpenXML = 10
Var Inst11CountMenuEnablePrev = CountMenuEnable Var Inst11CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
Else Else
If Inst11CountDownForOpenXML = 0 Then If Inst11CountDownForOpenXML = 0 Then
SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
Var Inst11CountDownForOpenXML = 10 Var Inst11CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst11CountCurrentMenuEnable = 0 Then If Inst11CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero DEBUGVAR Inst11CountDownOpenXMLFromMenuZero
If Inst11CountDownOpenXMLFromMenuZero > 0 Then If Inst11CountDownOpenXMLFromMenuZero > 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1 Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1
If Inst11CountDownOpenXMLFromMenuZero = 0 Then If Inst11CountDownOpenXMLFromMenuZero = 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = 20 Var Inst11CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst11CountDownForOpenXML > 0 Then If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1 If Inst11CountCurrentMenuEnable > 0 Then
DEBUGVAR Inst11CountDownForOpenXML Var Inst11MenuLoaded = "done"
If Inst11CountDownForOpenXML = 0 Then EndIf
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
TimerReset Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
</EventTimeout> EndIf
EndIf
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -13595,8 +13601,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

9
inter/tha/xml/multi/page_catalog_group_other_other.skt
View file

@ -27,7 +27,7 @@
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
@ -143,6 +143,13 @@
EndIf EndIf
EndIf EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
If Inst11CountCurrentMenuEnable > 0 Then
Var Inst11MenuLoaded = "done"
EndIf
EndIf
If Inst11CountDownForOpenXML > 0 Then If Inst11CountDownForOpenXML > 0 Then
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1 Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1
DEBUGVAR Inst11CountDownForOpenXML DEBUGVAR Inst11CountDownForOpenXML

354
inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml
View file

@ -1,172 +1,178 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 8 Then If SlientRefreshIndex = 8 Then
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu61Selected = "PressForever" Var Menu61Selected = "PressForever"
Var Timeout = 0 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" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show9 GetVisible inst_show9
;DEBUGVAR inst_show9 ;DEBUGVAR inst_show9
If inst_show9 = 1 Then If inst_show9 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 8 Then If SlientRefreshIndex = 8 Then
If inst_show9 = 0 Then If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
EndIf EndIf
EndIf EndIf
If inst_show9 = 1 Then If inst_show9 = 1 Then
If langnext8 = "true" Then If langnext8 = "true" Then
Var langnext8 = "false" Var langnext8 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
Var Inst10CountMenuEnable = 0 Var Inst10CountMenuEnable = 0
Var Inst10CountCurrentMenuEnable = 0 Var Inst10CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst10CountMenuEnable GetCurrentEnableBlockCount Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnable ;DEBUGVAR Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnablePrev ;DEBUGVAR Inst10CountMenuEnablePrev
;DEBUGVAR Inst10CountCurrentMenuEnable ;DEBUGVAR Inst10CountCurrentMenuEnable
If Inst10CountMenuEnablePrev = "" Then If Inst10CountMenuEnablePrev = "" Then
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
Var Inst10CountDownForOpenXML = 0 Var Inst10CountDownForOpenXML = 0
Var Inst10CountDownOpenXMLFromMenuZero = 20 Var Inst10CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
Else Else
SAVELOG "Inst10 Refresh ===================================================================== Refresh" SAVELOG "Inst10 Refresh ===================================================================== Refresh"
Var Inst10CountDownForOpenXML = 10 Var Inst10CountDownForOpenXML = 10
Var Inst10CountMenuEnablePrev = CountMenuEnable Var Inst10CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
Else Else
If Inst10CountDownForOpenXML = 0 Then If Inst10CountDownForOpenXML = 0 Then
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
Var Inst10CountDownForOpenXML = 10 Var Inst10CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst10CountCurrentMenuEnable = 0 Then If Inst10CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
If Inst10CountDownOpenXMLFromMenuZero > 0 Then If Inst10CountDownOpenXMLFromMenuZero > 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1 Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
If Inst10CountDownOpenXMLFromMenuZero = 0 Then If Inst10CountDownOpenXMLFromMenuZero = 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = 20 Var Inst10CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst10CountDownForOpenXML > 0 Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1 If Inst10CountCurrentMenuEnable > 0 Then
DEBUGVAR Inst10CountDownForOpenXML Var Inst10MenuLoaded = "done"
If Inst10CountDownForOpenXML = 0 Then EndIf
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
TimerReset If Inst10CountDownForOpenXML = 0 Then
</EventTimeout> Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -8458,8 +8464,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

8
inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt
View file

@ -27,7 +27,7 @@
Var Timeout = 0 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" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
@ -153,6 +153,12 @@
EndIf EndIf
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
If Inst10CountCurrentMenuEnable > 0 Then
Var Inst10MenuLoaded = "done"
EndIf
EndIf
If Inst10CountDownForOpenXML > 0 Then If Inst10CountDownForOpenXML > 0 Then
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1 Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
DEBUGVAR Inst10CountDownForOpenXML DEBUGVAR Inst10CountDownForOpenXML

444
inter/tha/xml/multi/page_catalog_group_recommend.lxml
View file

@ -1,200 +1,200 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu1Selected = "PressForever" Var Menu1Selected = "PressForever"
Var OreoBigButtonEnable = "Enable" Var OreoBigButtonEnable = "Enable"
If $12-01-01-0001.Button = "Invisible" Then If $12-01-01-0001.Button = "Invisible" Then
Var esp102101001Enable = "Invisible" Var esp102101001Enable = "Invisible"
Var esp122101001Enable = "Enable" Var esp122101001Enable = "Enable"
Else Else
Var esp102101001Enable = "Enable" Var esp102101001Enable = "Enable"
Var esp122101001Enable = "Invisible" Var esp122101001Enable = "Invisible"
EndIf EndIf
SAVELOG PreviseXMLFileName2 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 Var Timeout = 0
If show_eng = "true" Then If show_eng = "true" Then
Var text_unavailable = "UNAVAILABLE###size=16" Var text_unavailable = "UNAVAILABLE###size=16"
Else Else
Var text_unavailable = "หมด###size=32" Var text_unavailable = "หมด###size=32"
EndIf EndIf
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
RootLayoutVisible 13 "show" RootLayoutVisible 13 "show"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<EventLanguageOnChange> <EventLanguageOnChange>
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/" Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "true" Var show_eng = "true"
DEBUGVAR show_eng DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
;inter-image ;inter-image
If CountryName = "Malaysia" Then If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "australia" Then If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;SAVELOG "EventLanguageOnChange menu -list" ;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll RefreshAll
</EventLanguageOnChange> </EventLanguageOnChange>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show GetVisible inst_show
;DEBUGVAR inst_show ;DEBUGVAR inst_show
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show = 1 Then If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
;include="ROOT/taobin_project/inter/tha/xml/multi/EventTimeOutWihtOutMultiInstance.ev" ;include="ROOT/taobin_project/inter/tha/xml/multi/EventTimeOutWihtOutMultiInstance.ev"
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<EventLanguageOnChange> <EventLanguageOnChange>
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/" Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "true" Var show_eng = "true"
DEBUGVAR show_eng DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
;inter-image ;inter-image
If CountryName = "Malaysia" Then If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "australia" Then If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;SAVELOG "EventLanguageOnChange menu -list" ;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
</EventLanguageOnChange> </EventLanguageOnChange>
<FrameScroll> <FrameScroll>
<Max> 16 </Max> <Max> 16 </Max>
<X> 10 </X> <X> 10 </X>
@ -16286,28 +16286,28 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
<Button> <Button>
<X> 780 </X> <X> 780 </X>
<Y> 500 </Y> <Y> 500 </Y>
<State> buttonRemoveCup </State> <State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color> ;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval> <Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page_inter/bn_remove_cup.png" </Filename> <Filename> "ROOT/taobin_project/image/main_page_inter/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page_inter/bp_remove_cup.png" </Filename> <Filename> "ROOT/taobin_project/image/main_page_inter/bp_remove_cup.png" </Filename>
<EventClick> <EventClick>
Machine RemoveCup Machine RemoveCup
Machine DoorLidOpen Machine DoorLidOpen
Var buttonRemoveCup = "Invisible" Var buttonRemoveCup = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
;BigLogoLayout ;BigLogoLayout
</Popup> </Popup>

2
inter/tha/xml/multi/page_catalog_group_recommend.skt
View file

@ -28,7 +28,7 @@
SAVELOG PreviseXMLFileName2 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 Var Timeout = 0

340
inter/tha/xml/multi/page_catalog_group_tea.lxml
View file

@ -1,168 +1,168 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 3 Then If SlientRefreshIndex = 3 Then
Var SlientRefreshIndex = 4 Var SlientRefreshIndex = 4
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
; On open ; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu3Selected = "PressForever" Var Menu3Selected = "PressForever"
SAVELOG PreviseXMLFileName2 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 Var Timeout = 0
RootLayoutVisible 10 "show" RootLayoutVisible 10 "show"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show3 GetVisible inst_show3
;DEBUGVAR inst_show3 ;DEBUGVAR inst_show3
If inst_show3 = 1 Then If inst_show3 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshIndex = 3 Then If SlientRefreshIndex = 3 Then
If inst_show3 = 0 Then If inst_show3 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile3 GetXMLFileNameCurrentRunning CurrentOpenFile3
Open CurrentOpenFile3 Open CurrentOpenFile3
Else Else
Var SlientRefreshIndex = 4 Var SlientRefreshIndex = 4
EndIf EndIf
EndIf EndIf
If inst_show3 = 1 Then If inst_show3 = 1 Then
If langnext2 = "true" Then If langnext2 = "true" Then
Var langnext2 = "false" Var langnext2 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
Var Inst6CountMenuEnable = 0 Var Inst6CountMenuEnable = 0
Var Inst6CountCurrentMenuEnable = 0 Var Inst6CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst6CountCurrentMenuEnable GetFrameScrollBlockCount Inst6CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst6CountMenuEnable GetCurrentEnableBlockCount Inst6CountMenuEnable
;DEBUGVAR Inst6CountMenuEnable ;DEBUGVAR Inst6CountMenuEnable
;DEBUGVAR Inst6CountMenuEnablePrev ;DEBUGVAR Inst6CountMenuEnablePrev
;DEBUGVAR Inst6CountCurrentMenuEnable ;DEBUGVAR Inst6CountCurrentMenuEnable
If Inst6CountMenuEnablePrev = "" Then If Inst6CountMenuEnablePrev = "" Then
Var Inst6CountMenuEnablePrev = Inst6CountMenuEnable Var Inst6CountMenuEnablePrev = Inst6CountMenuEnable
Var Inst6CountDownForOpenXML = 0 Var Inst6CountDownForOpenXML = 0
Var Inst6CountDownOpenXMLFromMenuZero = 20 Var Inst6CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst6CountMenuEnable = Inst6CountMenuEnablePrev Then If Inst6CountMenuEnable = Inst6CountMenuEnablePrev Then
Else Else
SAVELOG "Inst6 Refresh ===================================================================== Refresh" SAVELOG "Inst6 Refresh ===================================================================== Refresh"
Var Inst6CountDownForOpenXML = 10 Var Inst6CountDownForOpenXML = 10
Var Inst6CountMenuEnablePrev = CountMenuEnable Var Inst6CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
Else Else
If Inst6CountDownForOpenXML = 0 Then If Inst6CountDownForOpenXML = 0 Then
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
Var Inst6CountDownForOpenXML = 10 Var Inst6CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst6CountCurrentMenuEnable = 0 Then If Inst6CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst6CountDownOpenXMLFromMenuZero DEBUGVAR Inst6CountDownOpenXMLFromMenuZero
If Inst6CountDownOpenXMLFromMenuZero > 0 Then If Inst6CountDownOpenXMLFromMenuZero > 0 Then
Var Inst6CountDownOpenXMLFromMenuZero = Inst6CountDownOpenXMLFromMenuZero - 1 Var Inst6CountDownOpenXMLFromMenuZero = Inst6CountDownOpenXMLFromMenuZero - 1
If Inst6CountDownOpenXMLFromMenuZero = 0 Then If Inst6CountDownOpenXMLFromMenuZero = 0 Then
Var Inst6CountDownOpenXMLFromMenuZero = 20 Var Inst6CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst6CountDownForOpenXML > 0 Then If Inst6CountDownForOpenXML > 0 Then
Var Inst6CountDownForOpenXML = Inst6CountDownForOpenXML - 1 Var Inst6CountDownForOpenXML = Inst6CountDownForOpenXML - 1
DEBUGVAR Inst6CountDownForOpenXML DEBUGVAR Inst6CountDownForOpenXML
If Inst6CountDownForOpenXML = 0 Then If Inst6CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -12588,8 +12588,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

2
inter/tha/xml/multi/page_catalog_group_tea.skt
View file

@ -31,7 +31,7 @@
SAVELOG PreviseXMLFileName2 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 Var Timeout = 0

374
inter/tha/xml/multi/page_catalog_group_whey.lxml
View file

@ -1,185 +1,185 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
If AppFastEnable = "true" Then If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever" Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Else Else
Var Menu11Selected = "Invisible" Var Menu11Selected = "Invisible"
Var Menu7Selected = "PressForever" Var Menu7Selected = "PressForever"
EndIf EndIf
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show8 GetVisible inst_show8
;DEBUGVAR inst_show8 ;DEBUGVAR inst_show8
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show8 = 1 Then If inst_show8 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
If inst_show8 = 0 Then If inst_show8 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8 GetXMLFileNameCurrentRunning CurrentOpenFile8
Open CurrentOpenFile8 Open CurrentOpenFile8
Else Else
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
EndIf EndIf
If inst_show8 = 1 Then If inst_show8 = 1 Then
If langnext7 = "true" Then If langnext7 = "true" Then
Var langnext7 = "false" Var langnext7 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
Var Inst8CountMenuEnable = 0 Var Inst8CountMenuEnable = 0
Var Inst8CountCurrentMenuEnable = 0 Var Inst8CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable ;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev ;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable ;DEBUGVAR Inst8CountCurrentMenuEnable
If Inst8CountMenuEnablePrev = "" Then If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0 Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst8CountMenuEnablePrev = "" Then If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0 Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
Else Else
SAVELOG "Inst8 Refresh ===================================================================== Refresh" SAVELOG "Inst8 Refresh ===================================================================== Refresh"
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
Var Inst8CountMenuEnablePrev = CountMenuEnable Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
Else Else
If Inst6CountDownForOpenXML = 0 Then If Inst6CountDownForOpenXML = 0 Then
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
Var Inst6CountDownForOpenXML = 10 Var Inst6CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst8CountCurrentMenuEnable = 0 Then If Inst8CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
If Inst8CountDownOpenXMLFromMenuZero > 0 Then If Inst8CountDownOpenXMLFromMenuZero > 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
If Inst8CountDownOpenXMLFromMenuZero = 0 Then If Inst8CountDownOpenXMLFromMenuZero = 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst8CountDownForOpenXML > 0 Then If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML DEBUGVAR Inst8CountDownForOpenXML
If Inst8CountDownForOpenXML = 0 Then If Inst8CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -4766,8 +4766,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

2
inter/tha/xml/multi/page_catalog_group_whey.skt
View file

@ -32,7 +32,7 @@
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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 SetInstanceIgnoreTouch