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

fix: resolve white screen bug and 3-language bug

Browse source
This commit is contained in:
thanawat saiyota 2024-11-19 10:48:10 +07:00
parent ecc9ba1fe0
commit 9a6a893984
38 changed files with 6928 additions and 4012 deletions
Download patch file Download diff file Expand all files Collapse all files

2
inter/tha/xml/multi/menu_catalog_default_init.lxml
View file

@ -2,7 +2,7 @@
DEBUGVAR ICE_PROCESS_STATUS DEBUGVAR ICE_PROCESS_STATUS
DEBUGVAR ICE_PROCESS_TXT DEBUGVAR ICE_PROCESS_TXT
Var TimerRefreshXML = 0
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
DEBUGVAR CountryName DEBUGVAR CountryName

42
inter/tha/xml/multi/menu_catalog_new.lxml
View file

@ -9,49 +9,8 @@
<Color> "0xeae6e1" </Color> <Color> "0xeae6e1" </Color>
</Image> </Image>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If show_eng = "false" Then
If SaveStringInst "ShowMYANMAR" Then
Var show_eng = ""
InstanceGetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If show_eng = "" Then
If SaveStringInst "ShowEng" Then
Var show_eng = "true"
InstanceGetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<EventLanguageOnChange> <EventLanguageOnChange>
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
@ -96,7 +55,6 @@
Var ButtonLanguageListXPosition = 970 Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38 Var ButtonLanguageListYPosition = 450 - 38
TabMenuVisibleInst 9
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll RefreshAll

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

@ -1,113 +1,205 @@
<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 Menu2Selected = "PressForever" Var Menu2Selected = "PressForever"
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 412
SAVELOG PreviseXMLFileName2 Var LanguageButtonListEnable = "Invisible"
Var Timeout = 0 If ENABLE_LANGUAGE_COUNT = "" Then
LanguageControl "UpdateList" 1
EndIf
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SAVELOG PreviseXMLFileName2
SetInstanceIgnoreTouch
Var Timeout = 0
DEBUGVAR SlientRefreshIndex
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 SetInstanceIgnoreTouch
EndIf
DEBUGVAR SlientRefreshIndex
</EventOpen>
If SlientRefreshIndex = 2 Then
<Timeout> 1000 </Timeout> Var SlientRefreshIndex = 3
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS EndIf
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" </EventOpen>
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else <Timeout> 1000 </Timeout>
Var ice_tab_process_show = "Invisible" <EventTimeout>
EndIf ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
GetVisible inst_show2 Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
;DEBUGVAR inst_show2 Else
Var ice_tab_process_show = "Invisible"
EndIf
If inst_show2 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst GetVisible inst_show2
If SaveStringInst = "RefreshNow" Then ;DEBUGVAR inst_show2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If inst_show2 = 1 Then
If show_eng = "true" Then InstanceGetString SaveStringInst
InstanceSetString "ShowEng" ;DEBUGVAR SaveStringInst
Else If SaveStringInst = "RefreshNow" Then
InstanceSetString "ShowThai" GetXMLFileNameCurrentRunning CurrentOpenFile
EndIf Open CurrentOpenFile
EndIf
EndIf If show_eng = "true" Then
InstanceSetString "ShowEng"
; setvarint SlientRefreshEnable 1 Else
;DEBUGVAR SlientRefreshEnable InstanceSetString "ShowThai"
EndIf
If SlientRefreshEnable = 1 Then EndIf
If SaveStringInst = "RefreshNow" Then EndIf
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If show_eng = "true" Then
InstanceSetString "ShowEng" If SlientRefreshEnable = 1 Then
Else If SaveStringInst = "RefreshNow" Then
InstanceSetString "ShowThai" GetXMLFileNameCurrentRunning CurrentOpenFile
EndIf Open CurrentOpenFile
EndIf If show_eng = "true" Then
EndIf InstanceSetString "ShowEng"
Else
If SlientRefreshIndex = 2 Then InstanceSetString "ShowThai"
If inst_show2 = 0 Then EndIf
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2 EndIf
EndIf
Else
Var SlientRefreshIndex = 3 If SlientRefreshIndex = 2 Then
EndIf If inst_show2 = 0 Then
EndIf GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
If inst_show2 = 1 Then
If langnext1 = "true" Then Else
Var langnext1 = "false" Var SlientRefreshIndex = 3
DEBUGVAR langnext EndIf
;GetXMLFileNameCurrentRunning CurrentOpenFile EndIf
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" If inst_show2 = 1 Then
RefreshAll If langnext1 = "true" Then
EndIf Var langnext1 = "false"
EndIf DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
TimerReset DEBUGVAR CurrentOpenFile4
</EventTimeout> Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
RefreshAll
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst5
DEBUGVAR EnabledBlocksDrawInst5
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
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
</EventOnShow>
;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>
@ -27086,10 +27178,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>

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

@ -101,11 +101,100 @@
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"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

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

@ -1,121 +1,213 @@
<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"
; 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
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
</EventOpen> </EventOpen>
<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
;GetXMLFileNameCurrentRunning CurrentOpenFile ;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4 DEBUGVAR CurrentOpenFile4
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"
RefreshAll RefreshAll
EndIf EndIf
EndIf
InstanceGetString SaveStringInst
TimerReset If SaveStringInst = "RefreshNow" Then
</EventTimeout>
Else
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst8
DEBUGVAR EnabledBlocksDrawInst8
If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
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
</EventOnShow>
;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>
@ -4794,8 +4886,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>

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

@ -89,6 +89,24 @@
EndIf EndIf
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 EndIf
@ -110,11 +128,101 @@
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"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

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

@ -1,110 +1,187 @@
<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 Menu22Selected = "PressForever" Var Menu22Selected = "PressForever"
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
If SlientRefreshIndex = 6 Then If SlientRefreshIndex = 6 Then
Var SlientRefreshIndex = 7 Var SlientRefreshIndex = 7
EndIf EndIf
</EventOpen> </EventOpen>
<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"
DEBUGVAR langnext DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile ;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4 DEBUGVAR CurrentOpenFile4
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"
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst9
DEBUGVAR EnabledBlocksDrawInst9
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;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>
@ -9743,8 +9820,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>

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

@ -101,6 +101,24 @@
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"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset

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

@ -1,111 +1,204 @@
<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 Menu4Selected = "PressForever" Var Menu4Selected = "PressForever"
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
If SlientRefreshIndex = 4 Then If SlientRefreshIndex = 4 Then
Var SlientRefreshIndex = 5 Var SlientRefreshIndex = 5
EndIf EndIf
</EventOpen> </EventOpen>
<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
; setvarint SlientRefreshEnable 1 EndIf
;DEBUGVAR SlientRefreshEnable
; setvarint SlientRefreshEnable 1
If SlientRefreshEnable = 1 Then ;DEBUGVAR SlientRefreshEnable
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile If SlientRefreshEnable = 1 Then
Open CurrentOpenFile If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
If show_eng = "true" Then Open CurrentOpenFile
InstanceSetString "ShowEng"
Else If show_eng = "true" Then
InstanceSetString "ShowThai" InstanceSetString "ShowEng"
EndIf Else
InstanceSetString "ShowThai"
EndIf EndIf
EndIf
EndIf
If SlientRefreshIndex = 4 Then EndIf
If inst_show4 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile4 If SlientRefreshIndex = 4 Then
Open CurrentOpenFile4 If inst_show4 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile4
Else Open CurrentOpenFile4
Var SlientRefreshIndex = 5
Else
EndIf Var SlientRefreshIndex = 5
EndIf
EndIf
If inst_show4 = 1 Then EndIf
If langnext3 = "true" Then
Var langnext3 = "false" If inst_show4 = 1 Then
DEBUGVAR langnext If langnext3 = "true" Then
;GetXMLFileNameCurrentRunning CurrentOpenFile Var langnext3 = "false"
DEBUGVAR CurrentOpenFile4 DEBUGVAR langnext
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" ;GetXMLFileNameCurrentRunning CurrentOpenFile
RefreshAll DEBUGVAR CurrentOpenFile4
EndIf Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
EndIf RefreshAll
EndIf
TimerReset
</EventTimeout> InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst7
DEBUGVAR EnabledBlocksDrawInst7
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;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>
@ -9160,15 +9253,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>

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

@ -99,11 +99,101 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

308
inter/tha/xml/multi/page_catalog_group_other.lxml
View file

@ -1,115 +1,189 @@
<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"
; soda and other ; soda and other
Var Menu6Selected = "PressForever" Var Menu6Selected = "PressForever"
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
If SlientRefreshIndex = 7 Then If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
</EventOpen> </EventOpen>
<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_show7 GetVisible inst_show7
;DEBUGVAR inst_show7 ;DEBUGVAR inst_show7
If inst_show7 = 1 Then If inst_show7 = 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 = 7 Then If SlientRefreshIndex = 7 Then
If inst_show7 = 0 Then If inst_show7 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile7 GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile7 Open CurrentOpenFile7
Else Else
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
EndIf EndIf
If inst_show7 = 1 Then If inst_show7 = 1 Then
If langnext6 = "true" Then If langnext6 = "true" Then
Var langnext6 = "false" Var langnext6 = "false"
DEBUGVAR langnext DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile ;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4 DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml"
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;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>
@ -20280,8 +20354,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>

90
inter/tha/xml/multi/page_catalog_group_other.skt
View file

@ -103,11 +103,101 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

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

@ -1,89 +1,163 @@
<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"
; soda and other ; soda and other
Var Menu62Selected = "PressForever" Var Menu62Selected = "PressForever"
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
</EventOpen> </EventOpen>
<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
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;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>
@ -12094,8 +12168,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>

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

@ -82,6 +82,79 @@
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

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

@ -1,113 +1,190 @@
<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"
; pepsi 7up ; pepsi 7up
Var Menu61Selected = "PressForever" Var Menu61Selected = "PressForever"
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
If SlientRefreshIndex = 9 Then If SlientRefreshIndex = 9 Then
Var SlientRefreshIndex = 0 Var SlientRefreshIndex = 0
EndIf EndIf
</EventOpen> </EventOpen>
<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 = 9 Then If SlientRefreshIndex = 9 Then
If inst_show9 = 0 Then If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile9
Open CurrentOpenFile5 Open CurrentOpenFile9
Else Else
Var SlientRefreshIndex = 0 Var SlientRefreshIndex = 0
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
;GetXMLFileNameCurrentRunning CurrentOpenFile Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
DEBUGVAR CurrentOpenFile4 RefreshAll
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" EndIf
RefreshAll EndIf
EndIf
EndIf
TimerReset
</EventTimeout> TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst11
DEBUGVAR EnabledBlocksDrawInst11
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;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>
@ -8022,8 +8099,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>

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

@ -101,11 +101,102 @@
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"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

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
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"
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"
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
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
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"
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
;OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" ;OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
;RefreshAll ;RefreshAll
</EventLanguageOnChange> </EventLanguageOnChange>
<FrameScroll> <FrameScroll>
<Max> 16 </Max> <Max> 16 </Max>
<X> 10 </X> <X> 10 </X>
@ -13382,28 +13382,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>

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

@ -1,105 +1,198 @@
<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 Menu3Selected = "PressForever" Var Menu3Selected = "PressForever"
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
If SlientRefreshIndex = 3 Then If SlientRefreshIndex = 3 Then
Var SlientRefreshIndex = 4 Var SlientRefreshIndex = 4
EndIf EndIf
</EventOpen> </EventOpen>
<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 langnext2
;GetXMLFileNameCurrentRunning CurrentOpenFile ;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4 DEBUGVAR CurrentOpenFile4
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"
RefreshAll RefreshAll
EndIf EndIf
EndIf
InstanceGetString SaveStringInst
TimerReset If SaveStringInst = "RefreshNow" Then
</EventTimeout>
Else
If LanguageShow = "ENG" Then
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;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>
@ -11966,8 +12059,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>

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

@ -90,11 +90,100 @@
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"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

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

@ -1,120 +1,193 @@
<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"
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
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
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
If SlientRefreshIndex = 8 Then If SlientRefreshIndex = 8 Then
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
EndIf EndIf
</EventOpen> </EventOpen>
<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 = 8 Then If SlientRefreshIndex = 8 Then
If inst_show8 = 0 Then If inst_show8 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8 GetXMLFileNameCurrentRunning CurrentOpenFile8
Open CurrentOpenFile8 Open CurrentOpenFile8
Else Else
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
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
;GetXMLFileNameCurrentRunning CurrentOpenFile ;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4 DEBUGVAR CurrentOpenFile4
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"
RefreshAll RefreshAll
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" <EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;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>
@ -4493,8 +4566,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>

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

@ -108,11 +108,101 @@
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"
RefreshAll RefreshAll
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 EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

3800
inter/tha/xml/page_topping_select6.lxml
View file

File diff suppressed because it is too large Load diff

44
xml/menutab/page_catalog_group_coffee.skt
View file

@ -98,6 +98,50 @@
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst5
DEBUGVAR EnabledBlocksDrawInst5
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

34
xml/menutab/page_catalog_group_coffee.xml
View file

@ -78,6 +78,7 @@
; 5 fruit ; 5 fruit
Var Menu5Selected = "Invisible" Var Menu5Selected = "Invisible"
;Var Menu6Selected = "Enable" ;Var Menu6Selected = "Enable"
Var Menu22Selected = "Enable"
Var Menu61Selected = "Enable" Var Menu61Selected = "Enable"
Var Menu62Selected = "Enable" Var Menu62Selected = "Enable"
@ -118,7 +119,7 @@
Var Menu22Selected = "Invisible" Var Menu22Selected = "Invisible"
EndIf EndIf
; ;
Var Menu22Selected = "Enable"
@ -158,12 +159,15 @@
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
DEBUGVAR EnabledBlocks5
</EventOpen> </EventOpen>
@ -182,7 +186,6 @@
<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
@ -238,6 +241,9 @@
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -306,14 +312,29 @@
</EventClick> </EventClick>
</Button> </Button>
<EventOnShow> <EventOnShow>
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst5
DEBUGVAR EnabledBlocksDrawInst5
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
Else
If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then
@ -332,15 +353,20 @@
EndIf EndIf
EndIf EndIf
</EventOnShow> </EventOnShow>
; ;
<ListView1> <ListView1>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> "auto" </Height> <Height> "auto" </Height>
<X> 0 </X> <X> 0 </X>
<Y> 395 </Y> <Y> 395 </Y>
<Row2> <Row2>
<State>"Enable"</State> <State>"Enable"</State>
<Width> 896 </Width> <Width> 896 </Width>
<Height> 102 </Height> <Height> 102 </Height>

44
xml/menutab/page_catalog_group_forkid.skt
View file

@ -107,6 +107,50 @@
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst8
DEBUGVAR EnabledBlocksDrawInst8
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

15
xml/menutab/page_catalog_group_forkid.xml
View file

@ -320,9 +320,24 @@
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst8
DEBUGVAR EnabledBlocksDrawInst8
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
Else
If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then

45
xml/menutab/page_catalog_group_health.skt
View file

@ -100,6 +100,51 @@
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst9
DEBUGVAR EnabledBlocksDrawInst9
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

16
xml/menutab/page_catalog_group_health.xml
View file

@ -312,9 +312,25 @@
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst9
DEBUGVAR EnabledBlocksDrawInst9
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
Else
If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then

43
xml/menutab/page_catalog_group_milk.skt
View file

@ -100,6 +100,49 @@
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst7
DEBUGVAR EnabledBlocksDrawInst7
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

15
xml/menutab/page_catalog_group_milk.xml
View file

@ -313,9 +313,24 @@
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst7
DEBUGVAR EnabledBlocksDrawInst7
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
Else
If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then

44
xml/menutab/page_catalog_group_other.skt
View file

@ -101,6 +101,50 @@
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

15
xml/menutab/page_catalog_group_other.xml
View file

@ -313,9 +313,24 @@
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then

50
xml/menutab/page_catalog_group_other_other.skt
View file

@ -26,9 +26,59 @@
#include=menu_catalog_new_menu.py #include=menu_catalog_new_menu.py
?> ?>
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8
EndIf
</EventOpen> </EventOpen>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst10
DEBUGVAR EnabledBlocksDrawInst10
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

1295
xml/menutab/page_catalog_group_other_other.xml
View file

File diff suppressed because it is too large Load diff

110
xml/menutab/page_catalog_group_pepsi_7up.skt
View file

@ -29,6 +29,116 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else
Var ice_tab_process_show = "Invisible"
EndIf
GetVisible inst_show8
;DEBUGVAR inst_show8
If inst_show8 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 8 Then
If inst_show8 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile7
Else
Var SlientRefreshIndex = 9
EndIf
EndIf
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst11
DEBUGVAR EnabledBlocksDrawInst11
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

1258
xml/menutab/page_catalog_group_pepsi_7up.xml
View file

File diff suppressed because it is too large Load diff

45
xml/menutab/page_catalog_group_tea.skt
View file

@ -87,6 +87,51 @@
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>

48
xml/menutab/page_catalog_group_tea.xml
View file

@ -85,7 +85,7 @@
Var Menu7Selected = "Enable" Var Menu7Selected = "Enable"
; 8 cocktail ; 8 cocktail
Var Menu8Selected = "Invisible" Var Menu8Selected = "Invisible"
Var Menu22Selected = "Enable"
If CocktailShow = "true" Then If CocktailShow = "true" Then
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Var Menu8Selected = "Enable" Var Menu8Selected = "Enable"
@ -193,14 +193,13 @@
EndIf EndIf
GetVisible inst_show3 GetVisible inst_show
;DEBUGVAR inst_show3 ;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show3 = 1 Then If inst_show = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
@ -212,20 +211,23 @@
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshIndex = 3 Then If SlientRefreshEnable = 1 Then
If inst_show3 = 0 Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile3 GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile3 Open CurrentOpenFile
Else
Var SlientRefreshIndex = 4 If show_eng = "true" Then
InstanceSetString "ShowEng"
EndIf Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf EndIf
@ -302,9 +304,23 @@
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then