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
@ -424,6 +464,14 @@
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>

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

@ -23,17 +23,15 @@
;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"
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"
Var Timeout = 0 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 DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
@ -50,12 +48,11 @@
GetVisible inst_show2 GetVisible inst_show2
;DEBUGVAR inst_show2 DEBUGVAR inst_show2
If inst_show2 = 1 Then If inst_show2 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
@ -111,7 +108,25 @@
If langnext1 = "true" Then If langnext1 = "true" Then
Var langnext1 = "false" Var langnext1 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll
EndIf EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
EndIf
If LanguageShow = "MTC" Then
Var SaveStringInst = "ShowMTC"
EndIf
If LanguageShow = "MSC" Then
Var SaveStringInst = "ShowMSC"
EndIf
EndIf
EndIf EndIf
@ -175,89 +190,11 @@
If Inst5CountDownForOpenXML = 0 Then If Inst5CountDownForOpenXML = 0 Then
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
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
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"

86
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
@ -182,84 +184,22 @@
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

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

@ -156,7 +156,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"

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"

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

@ -65,14 +65,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
@ -192,13 +192,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

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"

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

@ -53,13 +53,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
@ -108,7 +108,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
@ -116,7 +116,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
@ -157,12 +157,6 @@
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
Else Else
@ -171,12 +165,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
@ -193,6 +187,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
@ -206,96 +206,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"

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