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_TXT
Var TimerRefreshXML = 0
DEBUGVAR LanguageShow
DEBUGVAR CountryName

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

@ -9,49 +9,8 @@
<Color> "0xeae6e1" </Color>
</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>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
@ -96,7 +55,6 @@
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
TabMenuVisibleInst 9
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll

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

@ -1,113 +1,205 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3
EndIf
</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_show2
;DEBUGVAR inst_show2
If inst_show2 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 2 Then
If inst_show2 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
Else
Var SlientRefreshIndex = 3
EndIf
EndIf
If inst_show2 = 1 Then
If langnext1 = "true" Then
Var langnext1 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever"
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 412
Var LanguageButtonListEnable = "Invisible"
If ENABLE_LANGUAGE_COUNT = "" Then
LanguageControl "UpdateList" 1
EndIf
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3
EndIf
</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_show2
;DEBUGVAR inst_show2
If inst_show2 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 2 Then
If inst_show2 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
Else
Var SlientRefreshIndex = 3
EndIf
EndIf
If inst_show2 = 1 Then
If langnext1 = "true" Then
Var langnext1 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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>
<X> 10 </X>
<Y> 497 </Y>
@ -27086,10 +27178,10 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</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"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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"

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

@ -1,121 +1,213 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; protein
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "PressForever"
EndIf
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6
EndIf
</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_show5
;DEBUGVAR inst_show5
If inst_show5 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 5 Then
If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5
Else
Var SlientRefreshIndex = 6
EndIf
EndIf
If inst_show5 = 1 Then
If langnext4 = "true" Then
Var langnext4 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; protein
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "Invisible"
Var Menu21Selected = "PressForever"
EndIf
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6
EndIf
</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_show5
;DEBUGVAR inst_show5
If inst_show5 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 5 Then
If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5
Else
Var SlientRefreshIndex = 6
EndIf
EndIf
If inst_show5 = 1 Then
If langnext4 = "true" Then
Var langnext4 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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>
<X> 10 </X>
<Y> 497 </Y>
@ -4794,8 +4886,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

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

@ -89,6 +89,24 @@
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
@ -110,11 +128,101 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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"

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

@ -1,110 +1,187 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu22Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 6 Then
Var SlientRefreshIndex = 7
EndIf
</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_show6
;DEBUGVAR inst_show6
If inst_show6 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 6 Then
If inst_show6 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile6
Open CurrentOpenFile6
Else
Var SlientRefreshIndex = 7
EndIf
EndIf
If inst_show6 = 1 Then
If langnext5 = "true" Then
Var langnext5 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu22Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 6 Then
Var SlientRefreshIndex = 7
EndIf
</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_show6
;DEBUGVAR inst_show6
If inst_show6 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 6 Then
If inst_show6 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile6
Open CurrentOpenFile6
Else
Var SlientRefreshIndex = 7
EndIf
EndIf
If inst_show6 = 1 Then
If langnext5 = "true" Then
Var langnext5 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
RefreshAll
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 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>
<X> 10 </X>
<Y> 497 </Y>
@ -9743,8 +9820,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</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"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
TimerReset

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

@ -1,111 +1,204 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu4Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 4 Then
Var SlientRefreshIndex = 5
EndIf
</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_show4
;DEBUGVAR inst_show4
If inst_show4 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 4 Then
If inst_show4 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile4
Open CurrentOpenFile4
Else
Var SlientRefreshIndex = 5
EndIf
EndIf
If inst_show4 = 1 Then
If langnext3 = "true" Then
Var langnext3 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu4Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 4 Then
Var SlientRefreshIndex = 5
EndIf
</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_show4
;DEBUGVAR inst_show4
If inst_show4 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 4 Then
If inst_show4 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile4
Open CurrentOpenFile4
Else
Var SlientRefreshIndex = 5
EndIf
EndIf
If inst_show4 = 1 Then
If langnext3 = "true" Then
Var langnext3 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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>
<X> 10 </X>
<Y> 497 </Y>
@ -9160,15 +9253,15 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
<EventUnitTest4>
RefreshAll
</EventUnitTest4>
</Popup>
<EventUnitTest4>
RefreshAll
</EventUnitTest4>
</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"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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"

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

@ -1,115 +1,189 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; soda and other
Var Menu6Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8
EndIf
</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_show7
;DEBUGVAR inst_show7
If inst_show7 = 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 = 7 Then
If inst_show7 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile7
Else
Var SlientRefreshIndex = 8
EndIf
EndIf
If inst_show7 = 1 Then
If langnext6 = "true" Then
Var langnext6 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; soda and other
Var Menu6Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8
EndIf
</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_show7
;DEBUGVAR inst_show7
If inst_show7 = 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 = 7 Then
If inst_show7 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile7
Else
Var SlientRefreshIndex = 8
EndIf
EndIf
If inst_show7 = 1 Then
If langnext6 = "true" Then
Var langnext6 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml"
RefreshAll
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 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>
<X> 10 </X>
<Y> 497 </Y>
@ -20280,8 +20354,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</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"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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"

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

@ -1,89 +1,163 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; soda and other
Var Menu62Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</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_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; soda and other
Var Menu62Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
</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_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
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>
<X> 10 </X>
<Y> 497 </Y>
@ -12094,8 +12168,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
</Popup>
</Popup>

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

@ -82,6 +82,79 @@
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"

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

@ -1,113 +1,190 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; pepsi 7up
Var Menu61Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 9 Then
Var SlientRefreshIndex = 0
EndIf
</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_show9
;DEBUGVAR inst_show9
If inst_show9 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 9 Then
If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5
Else
Var SlientRefreshIndex = 0
EndIf
EndIf
If inst_show9 = 1 Then
If langnext8 = "true" Then
Var langnext8 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; pepsi 7up
Var Menu61Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 9 Then
Var SlientRefreshIndex = 0
EndIf
</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_show9
;DEBUGVAR inst_show9
If inst_show9 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 9 Then
If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile9
Open CurrentOpenFile9
Else
Var SlientRefreshIndex = 0
EndIf
EndIf
If inst_show9 = 1 Then
If langnext8 = "true" Then
Var langnext8 = "false"
DEBUGVAR langnext
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
RefreshAll
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 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>
<X> 10 </X>
<Y> 497 </Y>
@ -8022,8 +8099,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</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"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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"

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

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

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

@ -1,105 +1,198 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu3Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 3 Then
Var SlientRefreshIndex = 4
EndIf
</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_show3
;DEBUGVAR inst_show3
If inst_show3 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshIndex = 3 Then
If inst_show3 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile3
Open CurrentOpenFile3
Else
Var SlientRefreshIndex = 4
EndIf
EndIf
If inst_show3 = 1 Then
If langnext2 = "true" Then
Var langnext2 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu3Selected = "PressForever"
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 3 Then
Var SlientRefreshIndex = 4
EndIf
</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_show3
;DEBUGVAR inst_show3
If inst_show3 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshIndex = 3 Then
If inst_show3 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile3
Open CurrentOpenFile3
Else
Var SlientRefreshIndex = 4
EndIf
EndIf
If inst_show3 = 1 Then
If langnext2 = "true" Then
Var langnext2 = "false"
DEBUGVAR langnext2
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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>
<X> 10 </X>
<Y> 497 </Y>
@ -11966,8 +12059,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</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"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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"

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

@ -1,120 +1,193 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "PressForever"
EndIf
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 8 Then
Var SlientRefreshIndex = 9
EndIf
</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
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show8 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 8 Then
If inst_show8 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8
Open CurrentOpenFile8
Else
Var SlientRefreshIndex = 9
EndIf
EndIf
If inst_show8 = 1 Then
If langnext7 = "true" Then
Var langnext7 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
RefreshAll
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible"
Else
Var Menu11Selected = "Invisible"
Var Menu7Selected = "PressForever"
EndIf
SAVELOG PreviseXMLFileName2
Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 8 Then
Var SlientRefreshIndex = 9
EndIf
</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
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show8 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If show_eng = "true" Then
InstanceSetString "ShowEng"
Else
InstanceSetString "ShowThai"
EndIf
EndIf
EndIf
If SlientRefreshIndex = 8 Then
If inst_show8 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8
Open CurrentOpenFile8
Else
Var SlientRefreshIndex = 9
EndIf
EndIf
If inst_show8 = 1 Then
If langnext7 = "true" Then
Var langnext7 = "false"
DEBUGVAR langnext
;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
RefreshAll
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>
<X> 10 </X>
<Y> 497 </Y>
@ -4493,8 +4566,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</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"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
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"