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/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"
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 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
If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/"
Var DirImage = "ROOT/taobin_project/image/page3_MTC"
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var DirImage = "ROOT/taobin_project/image/page3_mtc"
Var ice_tab_text = "冰塊及時準備好了。 "
InstanceSetString "ShowMTC"
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/"
Var DirImage = "ROOT/taobin_project/image/page3_MSC"
Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var DirImage = "ROOT/taobin_project/image/page3_msc"
Var ice_tab_text = "冰块及时准备好了。 "
InstanceSetString "ShowMSC"

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

@ -14,6 +14,11 @@
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
@ -93,13 +98,13 @@
EndIf
If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/"
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/"
Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
EndIf

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

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

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

@ -18,6 +18,30 @@
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 Seeker.thankLidFlag = 0
@ -317,6 +341,22 @@
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
Var MultiProcessTimer = MultiProcessTimer + 1
If Inst9MenuLoaded = "done" Then
@ -333,21 +373,21 @@
EndIf
EndIf
;If SelectedMenu = "pepsi" Then
;Var MultiProcessTimer = MultiProcessTimer + 1
;If Inst10MenuLoaded = "done" Then
;Var MultiProcess = "Invisible"
;TabMenuVisibleInst 8
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
;Else
;If MultiProcessTimer >= 20 Then
;Var MultiProcess = "Invisible"
;TabMenuVisibleInst 8
;Var MultiProcessTimer = 0
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
;EndIf
;EndIf
;EndIf
If SelectedMenu = "pepsi" Then
Var MultiProcessTimer = MultiProcessTimer + 1
If Inst10MenuLoaded = "done" Then
Var MultiProcess = "Invisible"
TabMenuVisibleInst 8
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
Else
If MultiProcessTimer >= 20 Then
Var MultiProcess = "Invisible"
TabMenuVisibleInst 8
Var MultiProcessTimer = 0
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/multi/page_instance2.xml"
EndIf
EndIf
EndIf
If SelectedMenu = "soda" Then
Var MultiProcessTimer = MultiProcessTimer + 1
@ -423,6 +463,14 @@
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
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
Var countDownRetrun = 120
@ -693,8 +741,17 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<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>
<Language>

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

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

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

@ -11,6 +11,7 @@
<EventOpen>
; On open
SetInstanceIgnoreTouch
If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3
@ -57,7 +58,7 @@
If inst_show2 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
@ -113,6 +114,7 @@
If langnext1 = "true" Then
Var langnext1 = "false"
DEBUGVAR langnext
RefreshAll
EndIf
EndIf
@ -181,85 +183,23 @@
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
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
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
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"

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

@ -225,80 +225,6 @@
TimerReset
</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"

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

@ -228,80 +228,6 @@
TimerReset
</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"

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

@ -195,84 +195,6 @@
TimerReset
</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"
<FrameScroll>

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

@ -198,84 +198,6 @@
TimerReset
</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"
<?hurr

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

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

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

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

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

@ -135,98 +135,69 @@
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
</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"

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

@ -137,98 +137,69 @@
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
</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"

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

@ -1,234 +1,234 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml"
Var Menu1Selected = "PressForever"
Var OreoBigButtonEnable = "Enable"
If $12-01-01-0001.Button = "Invisible" Then
Var esp102101001Enable = "Invisible"
Var esp122101001Enable = "Enable"
Else
Var esp102101001Enable = "Enable"
Var esp122101001Enable = "Invisible"
EndIf
SAVELOG PreviseXMLFileName2
;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml"
Var Timeout = 0
If show_eng = "true" Then
Var text_unavailable = "UNAVAILABLE###size=16"
Else
Var text_unavailable = "หมด###size=32"
EndIf
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
RootLayoutVisible 13 "show"
RootLayoutVisible 3 "show"
SetInstanceIgnoreTouch
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf
If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf
If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/"
Var ice_tab_text = "冰塊及時準備好了。 "
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/"
Var ice_tab_text = "冰块及时准备好了。 "
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;inter-image
If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else
Var ice_tab_process_show = "Invisible"
EndIf
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
Var Timeout = Timeout + 1
;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev"
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf
If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf
If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MTC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MTC/"
Var ice_tab_text = "冰塊及時準備好了。 "
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_MSC/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_MSC/"
Var ice_tab_text = "冰块及时准备好了。 "
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;inter-image
If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
</EventLanguageOnChange>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml"
Var Menu1Selected = "PressForever"
Var OreoBigButtonEnable = "Enable"
If $12-01-01-0001.Button = "Invisible" Then
Var esp102101001Enable = "Invisible"
Var esp122101001Enable = "Enable"
Else
Var esp102101001Enable = "Enable"
Var esp122101001Enable = "Invisible"
EndIf
SAVELOG PreviseXMLFileName2
;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml"
Var Timeout = 0
If show_eng = "true" Then
Var text_unavailable = "UNAVAILABLE###size=16"
Else
Var text_unavailable = "หมด###size=32"
EndIf
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
RootLayoutVisible 13 "show"
RootLayoutVisible 3 "show"
SetInstanceIgnoreTouch
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf
If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf
If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 "
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 "
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;inter-image
If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else
Var ice_tab_process_show = "Invisible"
EndIf
GetVisible inst_show
;DEBUGVAR inst_show
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
If LanguageShow = "ENG" Then
InstanceSetString "ShowEng"
EndIf
If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC"
EndIf
If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC"
EndIf
EndIf
EndIf
Var Timeout = Timeout + 1
;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev"
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf
If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf
If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 "
EndIf
If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 "
EndIf
;inter-image
If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;inter-image
If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at "
EndIf
;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
</EventLanguageOnChange>
<FrameScroll>
<Max> 16 </Max>
<X> 10 </X>
@ -12946,29 +12946,29 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick>
</Button>
<Button>
<X> 780 </X>
<Y> 500 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page_inter/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page_inter/bp_remove_cup.png" </Filename>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
</EventClick>
</Button>
;BigLogoLayout
</Popup>
<Button>
<X> 780 </X>
<Y> 500 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page_inter/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page_inter/bp_remove_cup.png" </Filename>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
</EventClick>
</Button>
;BigLogoLayout
</Popup>

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

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

@ -183,82 +183,6 @@
TimerReset
</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"

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

@ -186,82 +186,6 @@
TimerReset
</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"

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

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

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

@ -56,13 +56,13 @@
GetVisible inst_show8
;DEBUGVAR inst_show8
GetVisible inst_show5
;DEBUGVAR inst_show5
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If inst_show8 = 1 Then
If inst_show5 = 1 Then
InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
@ -111,7 +111,7 @@
If SlientRefreshIndex = 5 Then
If inst_show8 = 0 Then
If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8
Open CurrentOpenFile8
Else
@ -119,7 +119,7 @@
EndIf
EndIf
If inst_show8 = 1 Then
If inst_show5 = 1 Then
If langnext7 = "true" Then
Var langnext7 = "false"
DEBUGVAR langnext
@ -174,12 +174,12 @@
Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else
If Inst6CountDownForOpenXML = 0 Then
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
Var Inst6CountDownForOpenXML = 10
If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst8CountDownForOpenXML = 10
EndIf
EndIf
@ -196,6 +196,12 @@
EndIf
EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done"
EndIf
EndIf
If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML
@ -209,96 +215,6 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh
Else
Var StatusRefresh = "Refresh"
DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
EndIf
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "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"

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

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