DO
This commit is contained in:
wanlop run
parent
21b3f49ba4
commit
d6a6bf33f3
5 changed files with 521 additions and 516 deletions
|
|
@ -1,255 +1,255 @@
|
|||
|
||||
|
||||
<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/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
Var Menu2Selected = "PressForever"
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/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 show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 2 Then
|
||||
If inst_show2 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||
Open CurrentOpenFile2
|
||||
|
||||
Else
|
||||
Var SlientRefreshIndex = 3
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show2 = 1 Then
|
||||
If langnext1 = "true" Then
|
||||
Var langnext1 = "false"
|
||||
DEBUGVAR langnext
|
||||
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/tha/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/tha/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/tha/xml/multi/menu_catalog_new.lxml"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Popup>
|
||||
<Cache> "Enable" </Cache>
|
||||
<Width> 1080 </Width>
|
||||
<Height> 1920 </Height>
|
||||
;<Background> "0xeae6e1" </Background>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventOpen>
|
||||
; On open
|
||||
|
||||
|
||||
If SlientRefreshIndex = 2 Then
|
||||
Var SlientRefreshIndex = 3
|
||||
|
||||
EndIf
|
||||
|
||||
</EventOpen>
|
||||
|
||||
|
||||
|
||||
<EventOnShow>
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
Var Menu2Selected = "PressForever"
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/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 show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 2 Then
|
||||
If inst_show2 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||
Open CurrentOpenFile2
|
||||
|
||||
Else
|
||||
Var SlientRefreshIndex = 3
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show2 = 1 Then
|
||||
If langnext1 = "true" Then
|
||||
Var langnext1 = "false"
|
||||
DEBUGVAR langnext
|
||||
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/tha/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/tha/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/tha/xml/multi/menu_catalog_new.lxml"
|
||||
|
||||
|
||||
|
||||
<FrameScroll>
|
||||
<X> 10 </X>
|
||||
<Y> 497 </Y>
|
||||
|
|
@ -19071,6 +19071,11 @@
|
|||
Else
|
||||
Var return = "Invisible"
|
||||
EndIf
|
||||
|
||||
|
||||
Var TextMessage !assigned GETS($12-21-02-0002.TAG, "MSG")
|
||||
DEBUGVAR TextMessage
|
||||
|
||||
)
|
||||
</State>
|
||||
<Filename> "ROOT/taobin_project/image//img_menu_err2.png" </Filename>
|
||||
|
|
@ -33424,10 +33429,10 @@
|
|||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue