Merge branch 'masterpiece' of ssh://kong:/1TBHDD/ikong/taobin_project into masterpiece
This commit is contained in:
nattapon tachawong
commit
e99eadb2fc
6 changed files with 733 additions and 733 deletions
|
|
@ -1,245 +1,245 @@
|
|||
|
||||
|
||||
<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
|
||||
|
||||
Var CoffeeRefreshTimeOut = 0
|
||||
|
||||
</EventOpen>
|
||||
|
||||
|
||||
|
||||
<EventOnShow>
|
||||
|
||||
SAVELOG "Onshow 1"
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
Var Menu2Selected = "PressForever"
|
||||
|
||||
SAVELOG "Onshow 2"
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
SAVELOG "Onshow 3"
|
||||
;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
|
||||
SAVELOG "OPEN slient Refresh"
|
||||
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
|
||||
SAVELOG "OPEN slient 2"
|
||||
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
|
||||
SAVELOG "OPEN slient 1"
|
||||
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"
|
||||
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 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
|
||||
SAVELOG "OPEN FROM 1"
|
||||
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
|
||||
SAVELOG "OPEN FROM 2"
|
||||
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
|
||||
|
||||
; setvarint RefreshCoffeeMenu 1
|
||||
If RefreshCoffeeMenu = 1 Then
|
||||
Var RefreshCoffeeMenu = 0
|
||||
SAVELOG "OPEN FROM 3"
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
EndIf
|
||||
|
||||
; setvarint ScriptCoffeeMenu 1
|
||||
If ScriptCoffeeMenu = 1 Then
|
||||
Var ScriptCoffeeMenu = 0
|
||||
SAVELOG "Runscript 3"
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
If CoffeeRefreshTimeOut > 15 Then
|
||||
Var CoffeeRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
||||
;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
|
||||
|
||||
Var CoffeeRefreshTimeOut = 0
|
||||
|
||||
</EventOpen>
|
||||
|
||||
|
||||
|
||||
<EventOnShow>
|
||||
|
||||
SAVELOG "Onshow 1"
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
Var Menu2Selected = "PressForever"
|
||||
|
||||
SAVELOG "Onshow 2"
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
SAVELOG "Onshow 3"
|
||||
;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
|
||||
SAVELOG "OPEN slient Refresh"
|
||||
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
|
||||
SAVELOG "OPEN slient 2"
|
||||
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
|
||||
SAVELOG "OPEN slient 1"
|
||||
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"
|
||||
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 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
|
||||
SAVELOG "OPEN FROM 1"
|
||||
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
|
||||
SAVELOG "OPEN FROM 2"
|
||||
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
|
||||
|
||||
; setvarint RefreshCoffeeMenu 1
|
||||
If RefreshCoffeeMenu = 1 Then
|
||||
Var RefreshCoffeeMenu = 0
|
||||
SAVELOG "OPEN FROM 3"
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
EndIf
|
||||
|
||||
; setvarint ScriptCoffeeMenu 1
|
||||
If ScriptCoffeeMenu = 1 Then
|
||||
Var ScriptCoffeeMenu = 0
|
||||
SAVELOG "Runscript 3"
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
If CoffeeRefreshTimeOut > 15 Then
|
||||
Var CoffeeRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||
|
||||
|
||||
|
||||
<FrameScroll>
|
||||
<X> 10 </X>
|
||||
<Y> 497 </Y>
|
||||
|
|
@ -36780,10 +36780,10 @@
|
|||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
|
|
|||
|
|
@ -123,7 +123,7 @@
|
|||
Var SaveStringInst = "ShowThai"
|
||||
Var show_eng = "true"
|
||||
EndIf
|
||||
If LanguageShow "MYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var show_eng = "false"
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
|
|
|
|||
|
|
@ -1,279 +1,279 @@
|
|||
|
||||
|
||||
<Popup>
|
||||
<Cache> "Enable" </Cache>
|
||||
<Width> 1080 </Width>
|
||||
<Height> 1920 </Height>
|
||||
;<Background> "0xeae6e1" </Background>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventOpen>
|
||||
; On open
|
||||
|
||||
SetInstanceIgnoreTouch
|
||||
|
||||
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"
|
||||
; protein
|
||||
If AppFastEnable = "true" Then
|
||||
Var Menu11Selected = "PressForever"
|
||||
Var Menu7Selected = "Invisible"
|
||||
Var Menu21Selected = "Invisible"
|
||||
Else
|
||||
Var Menu11Selected = "Invisible"
|
||||
Var Menu7Selected = "Invisible"
|
||||
Var Menu21Selected = "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
|
||||
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 langnext4 = "true" Then
|
||||
Var langnext4 = "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 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_forkid.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_forkid.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>
|
||||
; On open
|
||||
|
||||
SetInstanceIgnoreTouch
|
||||
|
||||
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"
|
||||
; protein
|
||||
If AppFastEnable = "true" Then
|
||||
Var Menu11Selected = "PressForever"
|
||||
Var Menu7Selected = "Invisible"
|
||||
Var Menu21Selected = "Invisible"
|
||||
Else
|
||||
Var Menu11Selected = "Invisible"
|
||||
Var Menu7Selected = "Invisible"
|
||||
Var Menu21Selected = "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
|
||||
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
|
||||
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 langnext4 = "true" Then
|
||||
Var langnext4 = "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 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_forkid.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_forkid.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>
|
||||
|
|
@ -7073,8 +7073,8 @@
|
|||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
|
|
|||
|
|
@ -145,7 +145,7 @@
|
|||
Var SaveStringInst = "ShowThai"
|
||||
Var show_eng = "true"
|
||||
EndIf
|
||||
If LanguageShow "MYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var show_eng = "false"
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
|
|
|
|||
|
|
@ -1,198 +1,198 @@
|
|||
|
||||
|
||||
<Popup>
|
||||
<Cache> "Enable" </Cache>
|
||||
<Width> 1080 </Width>
|
||||
<Height> 1920 </Height>
|
||||
;<Background> "0xeae6e1" </Background>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventOpen>
|
||||
; On open
|
||||
|
||||
DEBUGVAR SlientRefreshIndex
|
||||
|
||||
If SlientRefreshIndex = 8 Then
|
||||
Var SlientRefreshIndex = 9
|
||||
EndIf
|
||||
</EventOpen>
|
||||
|
||||
<EventOnShow>
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
Var Menu61Selected = "PressForever"
|
||||
|
||||
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
|
||||
;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_show9
|
||||
;DEBUGVAR inst_show9
|
||||
|
||||
|
||||
|
||||
If inst_show9 = 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 = 8 Then
|
||||
If inst_show9 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 9
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show9 = 1 Then
|
||||
If inst_show9 = "true" Then
|
||||
Var inst_show9 = "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 Inst10CountMenuEnable = 0
|
||||
Var Inst10CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst10CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst10CountMenuEnable
|
||||
;DEBUGVAR Inst10CountMenuEnablePrev
|
||||
;DEBUGVAR Inst10CountCurrentMenuEnable
|
||||
|
||||
If Inst10CountMenuEnablePrev = "" Then
|
||||
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
|
||||
Var Inst10CountDownForOpenXML = 0
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst10 Refresh ===================================================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
Var Inst10CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst10CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst10CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
If Inst10CountCurrentMenuEnable > 0 Then
|
||||
Var Inst10MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountDownForOpenXML > 0 Then
|
||||
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst10CountDownForOpenXML
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
||||
|
||||
;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
|
||||
|
||||
DEBUGVAR SlientRefreshIndex
|
||||
|
||||
If SlientRefreshIndex = 8 Then
|
||||
Var SlientRefreshIndex = 9
|
||||
EndIf
|
||||
</EventOpen>
|
||||
|
||||
<EventOnShow>
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
|
||||
Var Menu61Selected = "PressForever"
|
||||
|
||||
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
|
||||
|
||||
|
||||
;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_show9
|
||||
;DEBUGVAR inst_show9
|
||||
|
||||
|
||||
|
||||
If inst_show9 = 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 = 8 Then
|
||||
If inst_show9 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 9
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If inst_show9 = 1 Then
|
||||
If inst_show9 = "true" Then
|
||||
Var inst_show9 = "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 Inst10CountMenuEnable = 0
|
||||
Var Inst10CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst10CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst10CountMenuEnable
|
||||
;DEBUGVAR Inst10CountMenuEnablePrev
|
||||
;DEBUGVAR Inst10CountCurrentMenuEnable
|
||||
|
||||
If Inst10CountMenuEnablePrev = "" Then
|
||||
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
|
||||
Var Inst10CountDownForOpenXML = 0
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst10 Refresh ===================================================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
Var Inst10CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst10CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst10CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
If Inst10CountCurrentMenuEnable > 0 Then
|
||||
Var Inst10MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountDownForOpenXML > 0 Then
|
||||
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst10CountDownForOpenXML
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||
|
||||
|
||||
|
||||
|
||||
<FrameScroll>
|
||||
<X> 10 </X>
|
||||
<Y> 497 </Y>
|
||||
|
|
@ -10869,8 +10869,8 @@
|
|||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
||||
|
||||
|
||||
|
||||
</Popup>
|
||||
|
|
|
|||
|
|
@ -119,7 +119,7 @@
|
|||
Var SaveStringInst = "ShowThai"
|
||||
Var show_eng = "true"
|
||||
EndIf
|
||||
If LanguageShow "MYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var show_eng = "false"
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue