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

HKG : Fix Page_catalog_group... multi not refresh langs, OpenfromPageboard not refresh langs

Browse source
This commit is contained in:
Ittipat Lusuk 2025-01-08 15:51:10 +07:00
parent f521d79a95
commit a5b3d8c343
25 changed files with 1159 additions and 1906 deletions
Download patch file Download diff file Expand all files Collapse all files

2
inter/hkg/menu/lang.tsv
View file

@ -19,7 +19,7 @@ TextID Note English Mandarin Simplified Mandarin Traditional
000012 Don't know what it means without context. App Fast N/A N/A 000012 Don't know what it means without context. App Fast N/A N/A
Menu Menu
Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal N/A N/A Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal Font=Kanit,Type=Regular,Size=16,Color=0x5A5A5A,Align=center-vertical-horizontal
000013 UNAVAILABLE 暂无供应 暫無供應 000013 UNAVAILABLE 暂无供应 暫無供應

Can't render this file because it has a wrong number of fields in line 21.

2
inter/hkg/xml/multi/control_and_lang_swith.ev
View file

@ -35,6 +35,8 @@ Else
Var InstanceTabOpenFile6 = "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_health.lxml" Var InstanceTabOpenFile6 = "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_health.lxml"
EndIf EndIf
Var InstanceTabOpenFile8 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile9 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml" Var InstanceTabOpenFile9 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile10 = "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml" Var InstanceTabOpenFile10 = "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml"

12
inter/hkg/xml/multi/menu_catalog_default_init.lxml
View file

@ -35,18 +35,18 @@
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var DirImage = "ROOT/taobin_project/image/page3_MTC" Var DirImage = "ROOT/taobin_project/image/page3_mtc"
Var ice_tab_text = "冰塊及時準備好了。 " Var ice_tab_text = "冰塊及時準備好了。 "
InstanceSetString "ShowMTC" InstanceSetString "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var DirImage = "ROOT/taobin_project/image/page3_MSC" Var DirImage = "ROOT/taobin_project/image/page3_msc"
Var ice_tab_text = "冰块及时准备好了。 " Var ice_tab_text = "冰块及时准备好了。 "
InstanceSetString "ShowMSC" InstanceSetString "ShowMSC"

13
inter/hkg/xml/multi/menu_catalog_new.lxml
View file

@ -14,6 +14,11 @@
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
@ -93,13 +98,13 @@
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
EndIf EndIf

8
inter/hkg/xml/multi/menu_catalog_new_menu.lxml
View file

@ -15,13 +15,13 @@
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
EndIf EndIf
Var ButtonLanguageCurrentXPosition = 1005 Var ButtonLanguageCurrentXPosition = 1005

91
inter/hkg/xml/multi/page_catalog.lxml
View file

@ -18,6 +18,30 @@
DEBUGVAR ToppingNewShow DEBUGVAR ToppingNewShow
DEBUGVAR OpenFromPageBoard
If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0
Var langnext1 = "true"
Var langnext2 = "true"
Var langnext3 = "true"
Var langnext4 = "true"
Var langnext5 = "true"
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
SAVELOG "======================================= RefreshAll Languages ================================"
EndIf
If LanguageShow = "ENG" Then
SetLanguage "ENG"
EndIf
If LanguageShow = "MSC" Then
SetLanguage "MSC"
EndIf
If LanguageShow = "MTC" Then
SetLanguage "MTC"
EndIf
Var NextPage = "-" Var NextPage = "-"
Var Seeker.thankLidFlag = 0 Var Seeker.thankLidFlag = 0
@ -317,6 +341,22 @@
EndIf EndIf
EndIf EndIf
If SelectedMenu = "whey" Then
Var MultiProcessTimer = MultiProcessTimer + 1
If Inst8MenuLoaded = "done" Then
Var MultiProcess = "Invisible"
TabMenuVisibleInst 5
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
Else
If MultiProcessTimer >= 20 Then
Var MultiProcess = "Invisible"
TabMenuVisibleInst 5
Var MultiProcessTimer = 0
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
EndIf
EndIf
EndIf
If SelectedMenu = "healthy" Then If SelectedMenu = "healthy" Then
Var MultiProcessTimer = MultiProcessTimer + 1 Var MultiProcessTimer = MultiProcessTimer + 1
If Inst9MenuLoaded = "done" Then If Inst9MenuLoaded = "done" Then
@ -333,21 +373,21 @@
EndIf EndIf
EndIf EndIf
;If SelectedMenu = "pepsi" Then If SelectedMenu = "pepsi" Then
;Var MultiProcessTimer = MultiProcessTimer + 1 Var MultiProcessTimer = MultiProcessTimer + 1
;If Inst10MenuLoaded = "done" Then If Inst10MenuLoaded = "done" Then
;Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
;TabMenuVisibleInst 8 TabMenuVisibleInst 8
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
;Else Else
;If MultiProcessTimer >= 20 Then If MultiProcessTimer >= 20 Then
;Var MultiProcess = "Invisible" Var MultiProcess = "Invisible"
;TabMenuVisibleInst 8 TabMenuVisibleInst 8
;Var MultiProcessTimer = 0 Var MultiProcessTimer = 0
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
;EndIf EndIf
;EndIf EndIf
;EndIf EndIf
If SelectedMenu = "soda" Then If SelectedMenu = "soda" Then
Var MultiProcessTimer = MultiProcessTimer + 1 Var MultiProcessTimer = MultiProcessTimer + 1
@ -423,6 +463,14 @@
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow = "MTC" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3"
EndIf
If LanguageShow = "MSC" Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3"
EndIf
Play PlaySoundLag Play PlaySoundLag
Var countDownRetrun = 120 Var countDownRetrun = 120
@ -693,8 +741,17 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
TabMenuVisibleInst 5
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml" If Inst8MenuLoaded = "done" Then
Var MultiProcess = "Invisible"
TabMenuVisibleInst 5
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
Else
Var MultiProcessTimer = 0
Var MultiProcess = "Enable"
Var SelectedMenu = "whey"
EndIf
</EventClick> </EventClick>
<Language> <Language>

479
inter/hkg/xml/multi/page_catalog_group_coffee.lxml
View file

@ -1,267 +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
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever" Var Menu2Selected = "PressForever"
RootLayoutVisible 12 "show"
;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml"
Var Timeout = 0
Var Timeout = 0 ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
</EventOnShow>
DEBUGVAR SlientRefreshIndex
</EventOnShow> <Timeout> 1000 </Timeout>
<EventTimeout>
<Timeout> 1000 </Timeout> ;DEBUGVAR ICE_PROCESS_STATUS
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
If ICE_PROCESS_STATUS = 2 Then Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Var ice_tab_process_show = "Enable" Else
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_tab_process_show = "Invisible"
Else EndIf
Var ice_tab_process_show = "Invisible"
EndIf
GetVisible inst_show2
DEBUGVAR inst_show2
GetVisible inst_show2
;DEBUGVAR inst_show2 If inst_show2 = 1 Then
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
If inst_show2 = 1 Then If SaveStringInst = "RefreshNow" Then
InstanceGetString SaveStringInst GetXMLFileNameCurrentRunning CurrentOpenFile
;DEBUGVAR SaveStringInst Open CurrentOpenFile
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile If LanguageShow = "ENG" Then
Open CurrentOpenFile InstanceSetString "ShowEng"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" If LanguageShow = "MTC" Then
EndIf InstanceSetString "ShowMTC"
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" If LanguageShow = "MSC" Then
EndIf InstanceSetString "ShowMSC"
EndIf
If LanguageShow = "MSC" Then EndIf
InstanceSetString "ShowMSC" 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 LanguageShow = "ENG" Then
Open CurrentOpenFile InstanceSetString "ShowEng"
EndIf
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" If LanguageShow = "MTC" Then
EndIf InstanceSetString "ShowMTC"
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" If LanguageShow = "MSC" Then
EndIf InstanceSetString "ShowMSC"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC" EndIf
EndIf EndIf
EndIf If SlientRefreshIndex = 2 Then
EndIf If inst_show2 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile2
If SlientRefreshIndex = 2 Then Open CurrentOpenFile2
If inst_show2 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile2 Else
Open CurrentOpenFile2 Var SlientRefreshIndex = 3
EndIf
Else EndIf
Var SlientRefreshIndex = 3
EndIf If inst_show2 = 1 Then
EndIf If langnext1 = "true" Then
Var langnext1 = "false"
If inst_show2 = 1 Then DEBUGVAR langnext
If langnext1 = "true" Then RefreshAll
Var langnext1 = "false" EndIf
DEBUGVAR langnext
EndIf InstanceGetString SaveStringInst
EndIf If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
Var Inst5CountMenuEnable = 0
Var Inst5CountCurrentMenuEnable = 0 If LanguageShow = "MTC" Then
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable Var SaveStringInst = "ShowMTC"
GetCurrentEnableBlockCount Inst5CountMenuEnable EndIf
;DEBUGVAR Inst5CountMenuEnable If LanguageShow = "MSC" Then
;DEBUGVAR Inst5CountMenuEnablePrev Var SaveStringInst = "ShowMSC"
;DEBUGVAR Inst5CountCurrentMenuEnable EndIf
EndIf
If Inst5CountMenuEnablePrev = "" Then EndIf
Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
Var Inst5CountDownForOpenXML = 0
Var Inst5CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then Var Inst5CountMenuEnable = 0
Var Inst5CountCurrentMenuEnable = 0
Else GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
SAVELOG "Inst5 Refresh ===================================================================== Refresh" GetCurrentEnableBlockCount Inst5CountMenuEnable
Var Inst5CountDownForOpenXML = 10
Var Inst5CountMenuEnablePrev = CountMenuEnable ;DEBUGVAR Inst5CountMenuEnable
EndIf ;DEBUGVAR Inst5CountMenuEnablePrev
;DEBUGVAR Inst5CountCurrentMenuEnable
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
If Inst5CountMenuEnablePrev = "" Then
Else Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
If Inst5CountDownForOpenXML = 0 Then Var Inst5CountDownForOpenXML = 0
SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" Var Inst5CountDownOpenXMLFromMenuZero = 20
Var Inst5CountDownForOpenXML = 10 EndIf
EndIf
EndIf If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then
If Inst5CountCurrentMenuEnable = 0 Then Else
SAVELOG "Inst5 Refresh ===================================================================== Refresh"
DEBUGVAR Inst5CountDownOpenXMLFromMenuZero Var Inst5CountDownForOpenXML = 10
Var Inst5CountMenuEnablePrev = CountMenuEnable
If Inst5CountDownOpenXMLFromMenuZero > 0 Then EndIf
Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1
If Inst5CountDownOpenXMLFromMenuZero = 0 Then If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
Var Inst5CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml" Else
EndIf If Inst5CountDownForOpenXML = 0 Then
EndIf SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh"
EndIf Var Inst5CountDownForOpenXML = 10
EndIf
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then EndIf
If Inst5CountCurrentMenuEnable > 0 Then
Var Inst5MenuLoaded = "done" If Inst5CountCurrentMenuEnable = 0 Then
EndIf
EndIf DEBUGVAR Inst5CountDownOpenXMLFromMenuZero
If Inst5CountDownForOpenXML > 0 Then If Inst5CountDownOpenXMLFromMenuZero > 0 Then
Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1
DEBUGVAR Inst5CountDownForOpenXML If Inst5CountDownOpenXMLFromMenuZero = 0 Then
If Inst5CountDownForOpenXML = 0 Then Var Inst5CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml" Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml"
EndIf EndIf
InstanceGetString SaveStringInst EndIf
If SaveStringInst = "RefreshNow" Then EndIf
Else If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
If LanguageShow = "ENG" Then If Inst5CountCurrentMenuEnable > 0 Then
Var SaveStringInst = "ShowEng" Var Inst5MenuLoaded = "done"
Var show_eng = "false" EndIf
EndIf EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" If Inst5CountDownForOpenXML > 0 Then
Var show_eng = "true" Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1
EndIf DEBUGVAR Inst5CountDownForOpenXML
If LanguageShow = "MYANMAR" Then If Inst5CountDownForOpenXML = 0 Then
Var show_eng = "false" Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_coffee.lxml"
Var SaveStringInst = "ShowMYANMAR" EndIf
EndIf EndIf
EndIf
EndIf TimerReset
</EventTimeout>
TimerReset
</EventTimeout> ;include="ROOT/taobin_project/inter/hkg/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
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/hkg/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -24157,10 +24094,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>

88
inter/hkg/xml/multi/page_catalog_group_coffee.skt
View file

@ -11,6 +11,7 @@
<EventOpen> <EventOpen>
; On open ; On open
SetInstanceIgnoreTouch
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
@ -57,7 +58,7 @@
If inst_show2 = 1 Then If inst_show2 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
@ -113,6 +114,7 @@
If langnext1 = "true" Then If langnext1 = "true" Then
Var langnext1 = "false" Var langnext1 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll
EndIf EndIf
EndIf EndIf
@ -181,85 +183,23 @@
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" EndIf
EndIf
If LanguageShow = "THAI" Then If LanguageShow = "MTC" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowMTC"
Var show_eng = "true" EndIf
EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MSC" Then
Var show_eng = "false" Var SaveStringInst = "ShowMSC"
Var SaveStringInst = "ShowMYANMAR" EndIf
EndIf
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
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/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

74
inter/hkg/xml/multi/page_catalog_group_forkid.lxml
View file

@ -225,80 +225,6 @@
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
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

74
inter/hkg/xml/multi/page_catalog_group_forkid.skt
View file

@ -228,80 +228,6 @@
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
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

78
inter/hkg/xml/multi/page_catalog_group_health.lxml
View file

@ -195,84 +195,6 @@
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
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>

78
inter/hkg/xml/multi/page_catalog_group_health.skt
View file

@ -198,84 +198,6 @@
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
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"
<?hurr <?hurr

428
inter/hkg/xml/multi/page_catalog_group_milk.lxml
View file

@ -1,205 +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
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 4 Then If SlientRefreshIndex = 4 Then
Var SlientRefreshIndex = 5 Var SlientRefreshIndex = 5
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml"
Var Menu4Selected = "PressForever" Var Menu4Selected = "PressForever"
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show4 GetVisible inst_show4
;DEBUGVAR inst_show4 ;DEBUGVAR inst_show4
If inst_show4 = 1 Then If inst_show4 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" InstanceSetString "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC" InstanceSetString "ShowMSC"
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 LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" InstanceSetString "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC" InstanceSetString "ShowMSC"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 4 Then If SlientRefreshIndex = 4 Then
If inst_show4 = 0 Then If inst_show4 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile4 GetXMLFileNameCurrentRunning CurrentOpenFile4
Open CurrentOpenFile4 Open CurrentOpenFile4
Else Else
Var SlientRefreshIndex = 5 Var SlientRefreshIndex = 5
EndIf EndIf
EndIf EndIf
If inst_show4 = 1 Then If inst_show4 = 1 Then
If langnext3 = "true" Then If langnext3 = "true" Then
Var langnext3 = "false" Var langnext3 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var SaveStringInst = "ShowMTC" Var SaveStringInst = "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC" Var SaveStringInst = "ShowMSC"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Inst7CountMenuEnable = 0 Var Inst7CountMenuEnable = 0
Var Inst7CountCurrentMenuEnable = 0 Var Inst7CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst7CountCurrentMenuEnable GetFrameScrollBlockCount Inst7CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst7CountMenuEnable GetCurrentEnableBlockCount Inst7CountMenuEnable
;DEBUGVAR Inst7CountMenuEnable ;DEBUGVAR Inst7CountMenuEnable
;DEBUGVAR Inst7CountMenuEnablePrev ;DEBUGVAR Inst7CountMenuEnablePrev
;DEBUGVAR Inst7CountCurrentMenuEnable ;DEBUGVAR Inst7CountCurrentMenuEnable
If Inst7CountMenuEnablePrev = "" Then If Inst7CountMenuEnablePrev = "" Then
Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable
Var Inst7CountDownForOpenXML = 0 Var Inst7CountDownForOpenXML = 0
Var Inst7CountDownOpenXMLFromMenuZero = 20 Var Inst7CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then
Else Else
SAVELOG "Inst7 Refresh ===================================================================== Refresh" SAVELOG "Inst7 Refresh ===================================================================== Refresh"
Var Inst7CountDownForOpenXML = 10 Var Inst7CountDownForOpenXML = 10
Var Inst7CountMenuEnablePrev = CountMenuEnable Var Inst7CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
https://www.facebook.com/marketplace/?ref=bookmark
Else Else
If Inst7CountDownForOpenXML = 0 Then If Inst7CountDownForOpenXML = 0 Then
SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"
Var Inst7CountDownForOpenXML = 10 Var Inst7CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst7CountCurrentMenuEnable = 0 Then If Inst7CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst7CountDownOpenXMLFromMenuZero DEBUGVAR Inst7CountDownOpenXMLFromMenuZero
If Inst7CountDownOpenXMLFromMenuZero > 0 Then If Inst7CountDownOpenXMLFromMenuZero > 0 Then
Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1 Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1
If Inst7CountDownOpenXMLFromMenuZero = 0 Then If Inst7CountDownOpenXMLFromMenuZero = 0 Then
Var Inst7CountDownOpenXMLFromMenuZero = 20 Var Inst7CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml" Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
If Inst7CountCurrentMenuEnable > 0 Then If Inst7CountCurrentMenuEnable > 0 Then
Var Inst7MenuLoaded = "done" Var Inst7MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
If Inst7CountDownForOpenXML > 0 Then If Inst7CountDownForOpenXML > 0 Then
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1 Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1
DEBUGVAR Inst7CountDownForOpenXML DEBUGVAR Inst7CountDownForOpenXML
If Inst7CountDownForOpenXML = 0 Then If Inst7CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml" Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_milk.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -8965,15 +8965,15 @@ https://www.facebook.com/marketplace/?ref=bookmark
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>

2
inter/hkg/xml/multi/page_catalog_group_milk.skt
View file

@ -158,7 +158,7 @@
EndIf EndIf
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
https://www.facebook.com/marketplace/?ref=bookmark
Else Else
If Inst7CountDownForOpenXML = 0 Then If Inst7CountDownForOpenXML = 0 Then
SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"

149
inter/hkg/xml/multi/page_catalog_group_other.lxml
View file

@ -135,98 +135,69 @@
EndIf EndIf
EndIf EndIf
Var Inst11CountMenuEnable = 0
Var Inst11CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst11CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnablePrev
;DEBUGVAR Inst11CountCurrentMenuEnable
If Inst11CountMenuEnablePrev = "" Then
Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
Var Inst11CountDownForOpenXML = 0
Var Inst11CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
Else
SAVELOG "Inst11 Refresh ===================================================================== Refresh"
Var Inst11CountDownForOpenXML = 10
Var Inst11CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
Else
If Inst11CountDownForOpenXML = 0 Then
SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
Var Inst11CountDownForOpenXML = 10
EndIf
EndIf
If Inst11CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero
If Inst11CountDownOpenXMLFromMenuZero > 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1
If Inst11CountDownOpenXMLFromMenuZero = 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml"
EndIf
EndIf
EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
If Inst11CountCurrentMenuEnable > 0 Then
Var Inst11MenuLoaded = "done"
EndIf
EndIf
If Inst11CountDownForOpenXML > 0 Then
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1
DEBUGVAR Inst11CountDownForOpenXML
If Inst11CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml"
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 = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

149
inter/hkg/xml/multi/page_catalog_group_other.skt
View file

@ -137,98 +137,69 @@
EndIf EndIf
EndIf EndIf
Var Inst11CountMenuEnable = 0
Var Inst11CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst11CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnable
;DEBUGVAR Inst11CountMenuEnablePrev
;DEBUGVAR Inst11CountCurrentMenuEnable
If Inst11CountMenuEnablePrev = "" Then
Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
Var Inst11CountDownForOpenXML = 0
Var Inst11CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
Else
SAVELOG "Inst11 Refresh ===================================================================== Refresh"
Var Inst11CountDownForOpenXML = 10
Var Inst11CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
Else
If Inst11CountDownForOpenXML = 0 Then
SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
Var Inst11CountDownForOpenXML = 10
EndIf
EndIf
If Inst11CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero
If Inst11CountDownOpenXMLFromMenuZero > 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1
If Inst11CountDownOpenXMLFromMenuZero = 0 Then
Var Inst11CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml"
EndIf
EndIf
EndIf
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
If Inst11CountCurrentMenuEnable > 0 Then
Var Inst11MenuLoaded = "done"
EndIf
EndIf
If Inst11CountDownForOpenXML > 0 Then
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1
DEBUGVAR Inst11CountDownForOpenXML
If Inst11CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_other.lxml"
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 = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

514
inter/hkg/xml/multi/page_catalog_group_recommend.lxml
View file

@ -1,234 +1,234 @@
<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/hkg/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml"
Var Menu1Selected = "PressForever" Var Menu1Selected = "PressForever"
Var OreoBigButtonEnable = "Enable" Var OreoBigButtonEnable = "Enable"
If $12-01-01-0001.Button = "Invisible" Then If $12-01-01-0001.Button = "Invisible" Then
Var esp102101001Enable = "Invisible" Var esp102101001Enable = "Invisible"
Var esp122101001Enable = "Enable" Var esp122101001Enable = "Enable"
Else Else
Var esp102101001Enable = "Enable" Var esp102101001Enable = "Enable"
Var esp122101001Enable = "Invisible" Var esp122101001Enable = "Invisible"
EndIf EndIf
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml"
Var Timeout = 0 Var Timeout = 0
If show_eng = "true" Then If show_eng = "true" Then
Var text_unavailable = "UNAVAILABLE###size=16" Var text_unavailable = "UNAVAILABLE###size=16"
Else Else
Var text_unavailable = "หมด###size=32" Var text_unavailable = "หมด###size=32"
EndIf EndIf
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
RootLayoutVisible 13 "show" RootLayoutVisible 13 "show"
RootLayoutVisible 3 "show" RootLayoutVisible 3 "show"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<EventLanguageOnChange> <EventLanguageOnChange>
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/" Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "true" Var show_eng = "true"
DEBUGVAR show_eng DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 " Var ice_tab_text = "冰塊及時準備好了。 "
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 " Var ice_tab_text = "冰块及时准备好了。 "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "Malaysia" Then If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "australia" Then If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;SAVELOG "EventLanguageOnChange menu -list" ;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll RefreshAll
</EventLanguageOnChange> </EventLanguageOnChange>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show GetVisible inst_show
;DEBUGVAR inst_show ;DEBUGVAR inst_show
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show = 1 Then If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" InstanceSetString "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC" InstanceSetString "ShowMSC"
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 LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" InstanceSetString "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC" InstanceSetString "ShowMSC"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev" ;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev"
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/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
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 " Var ice_tab_text = "冰塊及時準備好了。 "
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 " Var ice_tab_text = "冰块及时准备好了。 "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "Malaysia" Then If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "australia" Then If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;SAVELOG "EventLanguageOnChange menu -list" ;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
</EventLanguageOnChange> </EventLanguageOnChange>
<FrameScroll> <FrameScroll>
<Max> 16 </Max> <Max> 16 </Max>
<X> 10 </X> <X> 10 </X>
@ -12946,29 +12946,29 @@
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>

16
inter/hkg/xml/multi/page_catalog_group_recommend.skt
View file

@ -67,14 +67,14 @@
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 " Var ice_tab_text = "冰塊及時準備好了。 "
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 " Var ice_tab_text = "冰块及时准备好了。 "
EndIf EndIf
;inter-image ;inter-image
@ -194,13 +194,13 @@
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 " Var ice_tab_text = "冰塊及時準備好了。 "
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 " Var ice_tab_text = "冰块及时准备好了。 "
EndIf EndIf
;inter-image ;inter-image

76
inter/hkg/xml/multi/page_catalog_group_tea.lxml
View file

@ -183,82 +183,6 @@
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
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

76
inter/hkg/xml/multi/page_catalog_group_tea.skt
View file

@ -186,82 +186,6 @@
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
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

526
inter/hkg/xml/multi/page_catalog_group_whey.lxml
View file

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

114
inter/hkg/xml/multi/page_catalog_group_whey.skt
View file

@ -56,13 +56,13 @@
GetVisible inst_show8 GetVisible inst_show5
;DEBUGVAR inst_show8 ;DEBUGVAR inst_show5
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show8 = 1 Then If inst_show5 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
@ -111,7 +111,7 @@
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
If inst_show8 = 0 Then If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8 GetXMLFileNameCurrentRunning CurrentOpenFile8
Open CurrentOpenFile8 Open CurrentOpenFile8
Else Else
@ -119,7 +119,7 @@
EndIf EndIf
EndIf EndIf
If inst_show8 = 1 Then If inst_show5 = 1 Then
If langnext7 = "true" Then If langnext7 = "true" Then
Var langnext7 = "false" Var langnext7 = "false"
DEBUGVAR langnext DEBUGVAR langnext
@ -174,12 +174,12 @@
Var Inst8CountMenuEnablePrev = CountMenuEnable Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else Else
If Inst6CountDownForOpenXML = 0 Then If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst6CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
@ -196,6 +196,12 @@
EndIf EndIf
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done"
EndIf
EndIf
If Inst8CountDownForOpenXML > 0 Then If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML DEBUGVAR Inst8CountDownForOpenXML
@ -209,96 +215,6 @@
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 = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMTC" Then
If LanguageShow = "MTC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
If SaveStringInst = "ShowMSC" Then
If LanguageShow = "MSC" Then
Else
If LanguageShow = "Eng" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"

8
inter/hkg/xml/multi/tab_menu.lxml
View file

@ -22,13 +22,13 @@
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
EndIf EndIf
;inter-image ;inter-image

7
xml/page_board.xml
View file

@ -1038,10 +1038,10 @@
If EnableMultiInstance = "true" Then If EnableMultiInstance = "true" Then
Var InternationalEnable = 1 Var InternationalEnable = 1
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev"
EnableLanguage "ENG" EnableLanguage "ENG"
EnableLanguage "MSC" ;EnableLanguage "MSC"
EnableLanguage "MTC" ;EnableLanguage "MTC"
Var LanguageShow = "ENG"
SetLanguage "ENG" SetLanguage "ENG"
LanguageControl "UpdateList" "-" LanguageControl "UpdateList" "-"
@ -1102,7 +1102,6 @@
DEBUGVAR ShowButtonClick2 DEBUGVAR ShowButtonClick2
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
Else Else
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/video/script_video.ev"

1
xml/page_catalog.lxml
View file

@ -24,6 +24,7 @@
If CountryName = "HongKong" Then If CountryName = "HongKong" Then
If EnableMultiInstance = "true" Then If EnableMultiInstance = "true" Then
Var OpenFromPageBoard = 1
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_catalog.lxml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_catalog.lxml"
EndIf EndIf