THAI INTER : Fix Page_catalog_group... multi not refresh langs, OpenfromPageboard not refresh langs
This commit is contained in:
parent
025ffd84af
commit
59f72b6add
8 changed files with 838 additions and 787 deletions
|
|
@ -18,6 +18,20 @@
|
|||
|
||||
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
|
||||
|
||||
Var NextPage = "-"
|
||||
|
||||
Var Seeker.thankLidFlag = 0
|
||||
|
|
|
|||
|
|
@ -1,255 +1,256 @@
|
|||
|
||||
|
||||
<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
|
||||
RefreshAll
|
||||
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>
|
||||
|
|
@ -30472,10 +30473,10 @@
|
|||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
|
|
|||
|
|
@ -101,6 +101,7 @@
|
|||
If langnext1 = "true" Then
|
||||
Var langnext1 = "false"
|
||||
DEBUGVAR langnext
|
||||
RefreshAll
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
|
|||
|
|
@ -1,232 +1,243 @@
|
|||
|
||||
|
||||
<Popup>
|
||||
<Cache> "Enable" </Cache>
|
||||
<Width> 1080 </Width>
|
||||
<Height> 1920 </Height>
|
||||
;<Background> "0xeae6e1" </Background>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventOpen>
|
||||
|
||||
DEBUGVAR SlientRefreshIndex
|
||||
|
||||
If SlientRefreshIndex = 7 Then
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
|
||||
</EventOpen>
|
||||
|
||||
<EventOnShow>
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
; soda and other
|
||||
Var Menu62Selected = "PressForever"
|
||||
|
||||
RootLayoutVisible 12 "show"
|
||||
|
||||
Var Timeout = 0
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
SetInstanceIgnoreTouch
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/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_show
|
||||
;DEBUGVAR inst_show
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 7 Then
|
||||
If inst_show9 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 8
|
||||
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/tha/xml/multi/page_catalog_group_other_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/tha/xml/multi/page_catalog_group_other_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
|
||||
|
||||
|
||||
|
||||
|
||||
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>
|
||||
|
||||
DEBUGVAR SlientRefreshIndex
|
||||
|
||||
If SlientRefreshIndex = 7 Then
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
|
||||
</EventOpen>
|
||||
|
||||
<EventOnShow>
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
; soda and other
|
||||
Var Menu62Selected = "PressForever"
|
||||
|
||||
RootLayoutVisible 12 "show"
|
||||
|
||||
Var Timeout = 0
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
SetInstanceIgnoreTouch
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/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_show7
|
||||
;DEBUGVAR inst_show7
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 7 Then
|
||||
If inst_show7 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||
Open CurrentOpenFile7
|
||||
Else
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
If langnext6 = "true" Then
|
||||
Var langnext6 = "false"
|
||||
DEBUGVAR langnext
|
||||
;GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
DEBUGVAR CurrentOpenFile4
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
RefreshAll
|
||||
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/tha/xml/multi/page_catalog_group_other_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/tha/xml/multi/page_catalog_group_other_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
|
||||
|
||||
|
||||
|
||||
|
||||
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>
|
||||
|
|
@ -14322,8 +14333,8 @@
|
|||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
|
|
|||
|
|
@ -51,13 +51,13 @@
|
|||
|
||||
|
||||
|
||||
GetVisible inst_show
|
||||
;DEBUGVAR inst_show
|
||||
GetVisible inst_show7
|
||||
;DEBUGVAR inst_show7
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show = 1 Then
|
||||
If inst_show7 = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
|
@ -89,13 +89,24 @@
|
|||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 7 Then
|
||||
If inst_show9 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
If inst_show7 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||
Open CurrentOpenFile7
|
||||
Else
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
If langnext6 = "true" Then
|
||||
Var langnext6 = "false"
|
||||
DEBUGVAR langnext
|
||||
;GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
DEBUGVAR CurrentOpenFile4
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
RefreshAll
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
Var Inst11CountMenuEnable = 0
|
||||
|
|
|
|||
|
|
@ -1,275 +1,281 @@
|
|||
|
||||
|
||||
<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/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
If AppFastEnable = "true" Then
|
||||
Var Menu11Selected = "PressForever"
|
||||
Var Menu7Selected = "Invisible"
|
||||
Else
|
||||
Var Menu11Selected = "Invisible"
|
||||
Var Menu7Selected = "PressForever"
|
||||
EndIf
|
||||
|
||||
RootLayoutVisible 12 "show"
|
||||
|
||||
Var Timeout = 0
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
SetInstanceIgnoreTouch
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/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 show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If SlientRefreshIndex = 5 Then
|
||||
If inst_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"
|
||||
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
|
||||
|
||||
|
||||
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/tha/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/tha/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 = "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>
|
||||
|
||||
DEBUGVAR SlientRefreshIndex
|
||||
|
||||
If SlientRefreshIndex = 5 Then
|
||||
Var SlientRefreshIndex = 6
|
||||
EndIf
|
||||
|
||||
</EventOpen>
|
||||
|
||||
<EventOnShow>
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
If AppFastEnable = "true" Then
|
||||
Var Menu11Selected = "PressForever"
|
||||
Var Menu7Selected = "Invisible"
|
||||
Else
|
||||
Var Menu11Selected = "Invisible"
|
||||
Var Menu7Selected = "PressForever"
|
||||
EndIf
|
||||
|
||||
RootLayoutVisible 12 "show"
|
||||
|
||||
Var Timeout = 0
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
SetInstanceIgnoreTouch
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/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 show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If SlientRefreshIndex = 5 Then
|
||||
If inst_show5 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 6
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show5 = 1 Then
|
||||
If langnext7 = "true" Then
|
||||
Var langnext7 = "false"
|
||||
DEBUGVAR langnext
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
Var show_eng = "false"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
Var show_eng = "true"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var show_eng = "false"
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
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 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/tha/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/tha/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 = "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>
|
||||
|
|
@ -5080,8 +5086,8 @@
|
|||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
@ -97,15 +97,15 @@
|
|||
|
||||
|
||||
If SlientRefreshIndex = 5 Then
|
||||
If inst_show8 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile8
|
||||
Open CurrentOpenFile8
|
||||
If inst_show5 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 6
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show8 = 1 Then
|
||||
If inst_show5 = 1 Then
|
||||
If langnext7 = "true" Then
|
||||
Var langnext7 = "false"
|
||||
DEBUGVAR langnext
|
||||
|
|
@ -161,12 +161,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
|
||||
|
||||
|
|
@ -183,6 +183,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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue