pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

Merge branch 'masterpiece' of ssh://kong:/1TBHDD/ikong/taobin_project into masterpiece

Browse source
This commit is contained in:
nattapon tachawong 2025-02-05 17:23:17 +07:00
commit e99eadb2fc
6 changed files with 733 additions and 733 deletions
Download patch file Download diff file Expand all files Collapse all files

498
inter/tha/xml/multi/page_catalog_group_coffee.lxml
View file

@ -1,245 +1,245 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
Var CoffeeRefreshTimeOut = 0 Var CoffeeRefreshTimeOut = 0
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
SAVELOG "Onshow 1" SAVELOG "Onshow 1"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever" Var Menu2Selected = "PressForever"
SAVELOG "Onshow 2" SAVELOG "Onshow 2"
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
Var Timeout = 0 Var Timeout = 0
SAVELOG "Onshow 3" SAVELOG "Onshow 3"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show2 GetVisible inst_show2
;DEBUGVAR inst_show2 ;DEBUGVAR inst_show2
If inst_show2 = 1 Then If inst_show2 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
SAVELOG "OPEN slient Refresh" SAVELOG "OPEN slient Refresh"
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
SAVELOG "OPEN slient 2" SAVELOG "OPEN slient 2"
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
If inst_show2 = 0 Then If inst_show2 = 0 Then
SAVELOG "OPEN slient 1" SAVELOG "OPEN slient 1"
GetXMLFileNameCurrentRunning CurrentOpenFile2 GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2 Open CurrentOpenFile2
Else Else
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
EndIf EndIf
If inst_show2 = 1 Then If inst_show2 = 1 Then
If langnext1 = "true" Then If langnext1 = "true" Then
Var langnext1 = "false" Var langnext1 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" Var show_eng = "false"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Inst5CountMenuEnable = 0 Var Inst5CountMenuEnable = 0
Var Inst5CountCurrentMenuEnable = 0 Var Inst5CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst5CountMenuEnable GetCurrentEnableBlockCount Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnable ;DEBUGVAR Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnablePrev ;DEBUGVAR Inst5CountMenuEnablePrev
;DEBUGVAR Inst5CountCurrentMenuEnable ;DEBUGVAR Inst5CountCurrentMenuEnable
If Inst5CountMenuEnablePrev = "" Then If Inst5CountMenuEnablePrev = "" Then
Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
Var Inst5CountDownForOpenXML = 0 Var Inst5CountDownForOpenXML = 0
Var Inst5CountDownOpenXMLFromMenuZero = 20 Var Inst5CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then
Else Else
SAVELOG "Inst5 Refresh ===================================================================== Refresh" SAVELOG "Inst5 Refresh ===================================================================== Refresh"
Var Inst5CountDownForOpenXML = 10 Var Inst5CountDownForOpenXML = 10
Var Inst5CountMenuEnablePrev = CountMenuEnable Var Inst5CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
Else Else
If Inst5CountDownForOpenXML = 0 Then If Inst5CountDownForOpenXML = 0 Then
SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh"
Var Inst5CountDownForOpenXML = 10 Var Inst5CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst5CountCurrentMenuEnable = 0 Then If Inst5CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst5CountDownOpenXMLFromMenuZero DEBUGVAR Inst5CountDownOpenXMLFromMenuZero
If Inst5CountDownOpenXMLFromMenuZero > 0 Then If Inst5CountDownOpenXMLFromMenuZero > 0 Then
Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1
If Inst5CountDownOpenXMLFromMenuZero = 0 Then If Inst5CountDownOpenXMLFromMenuZero = 0 Then
Var Inst5CountDownOpenXMLFromMenuZero = 20 Var Inst5CountDownOpenXMLFromMenuZero = 20
SAVELOG "OPEN FROM 1" SAVELOG "OPEN FROM 1"
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
If Inst5CountCurrentMenuEnable > 0 Then If Inst5CountCurrentMenuEnable > 0 Then
Var Inst5MenuLoaded = "done" Var Inst5MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
If Inst5CountDownForOpenXML > 0 Then If Inst5CountDownForOpenXML > 0 Then
Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1
DEBUGVAR Inst5CountDownForOpenXML DEBUGVAR Inst5CountDownForOpenXML
If Inst5CountDownForOpenXML = 0 Then If Inst5CountDownForOpenXML = 0 Then
SAVELOG "OPEN FROM 2" SAVELOG "OPEN FROM 2"
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" Var show_eng = "false"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint RefreshCoffeeMenu 1 ; setvarint RefreshCoffeeMenu 1
If RefreshCoffeeMenu = 1 Then If RefreshCoffeeMenu = 1 Then
Var RefreshCoffeeMenu = 0 Var RefreshCoffeeMenu = 0
SAVELOG "OPEN FROM 3" SAVELOG "OPEN FROM 3"
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
EndIf EndIf
; setvarint ScriptCoffeeMenu 1 ; setvarint ScriptCoffeeMenu 1
If ScriptCoffeeMenu = 1 Then If ScriptCoffeeMenu = 1 Then
Var ScriptCoffeeMenu = 0 Var ScriptCoffeeMenu = 0
SAVELOG "Runscript 3" SAVELOG "Runscript 3"
Script "-" "-" Script "-" "-"
EndIf EndIf
If CoffeeRefreshTimeOut > 15 Then If CoffeeRefreshTimeOut > 15 Then
Var CoffeeRefreshTimeOut = 0 Var CoffeeRefreshTimeOut = 0
Script "-" "-" Script "-" "-"
EndIf EndIf
Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1 Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -36780,10 +36780,10 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

2
inter/tha/xml/multi/page_catalog_group_coffee.skt
View file

@ -123,7 +123,7 @@
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf

562
inter/tha/xml/multi/page_catalog_group_forkid.lxml
View file

@ -1,279 +1,279 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; protein ; protein
If AppFastEnable = "true" Then If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever" Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Var Menu21Selected = "Invisible" Var Menu21Selected = "Invisible"
Else Else
Var Menu11Selected = "Invisible" Var Menu11Selected = "Invisible"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Var Menu21Selected = "PressForever" Var Menu21Selected = "PressForever"
EndIf EndIf
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 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/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show5 GetVisible inst_show5
;DEBUGVAR inst_show5 ;DEBUGVAR inst_show5
If inst_show5 = 1 Then If inst_show5 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" Var show_eng = "false"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
If inst_show5 = 0 Then If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
EndIf EndIf
If inst_show5 = 1 Then If inst_show5 = 1 Then
If langnext4 = "true" Then If langnext4 = "true" Then
Var langnext4 = "false" Var langnext4 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" Var show_eng = "false"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Inst8CountMenuEnable = 0 Var Inst8CountMenuEnable = 0
Var Inst8CountCurrentMenuEnable = 0 Var Inst8CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable ;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev ;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable ;DEBUGVAR Inst8CountCurrentMenuEnable
If Inst8CountMenuEnablePrev = "" Then If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0 Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
Else Else
SAVELOG "Inst8 Refresh ===================================================================== Refresh" SAVELOG "Inst8 Refresh ===================================================================== Refresh"
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
Var Inst8CountMenuEnablePrev = CountMenuEnable Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else Else
If Inst8CountDownForOpenXML = 0 Then If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst8CountCurrentMenuEnable = 0 Then If Inst8CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
If Inst8CountDownOpenXMLFromMenuZero > 0 Then If Inst8CountDownOpenXMLFromMenuZero > 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
If Inst8CountDownOpenXMLFromMenuZero = 0 Then If Inst8CountDownOpenXMLFromMenuZero = 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done" Var Inst8MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
If Inst8CountDownForOpenXML > 0 Then If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML DEBUGVAR Inst8CountDownForOpenXML
If Inst8CountDownForOpenXML = 0 Then If Inst8CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventOnShow> <EventOnShow>
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst DEBUGVAR SaveStringInst
DEBUGVAR show_eng DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005 Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38 Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970 Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38 Var ButtonLanguageListYPosition = 450 - 38
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
EndIf EndIf
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Else Else
Var show_eng = "true" Var show_eng = "true"
InstanceSetString "ShowMYANMAR" InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
EndIf EndIf
EndIf EndIf
If SaveStringInst = "ShowMYANMAR" Then If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Else Else
Var show_eng = "false" Var show_eng = "false"
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
EndIf EndIf
EndIf EndIf
If SaveStringInst = "ShowEng" Then If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Else Else
Var show_eng = "false" Var show_eng = "false"
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
EndIf EndIf
EndIf EndIf
</EventOnShow> </EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -7073,8 +7073,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

2
inter/tha/xml/multi/page_catalog_group_forkid.skt
View file

@ -145,7 +145,7 @@
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf

400
inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml
View file

@ -1,198 +1,198 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 8 Then If SlientRefreshIndex = 8 Then
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu61Selected = "PressForever" Var Menu61Selected = "PressForever"
Var Timeout = 0 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/tab_menu_show_and_refresh.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show9 GetVisible inst_show9
;DEBUGVAR inst_show9 ;DEBUGVAR inst_show9
If inst_show9 = 1 Then If inst_show9 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 8 Then If SlientRefreshIndex = 8 Then
If inst_show9 = 0 Then If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
EndIf EndIf
EndIf EndIf
If inst_show9 = 1 Then If inst_show9 = 1 Then
If inst_show9 = "true" Then If inst_show9 = "true" Then
Var inst_show9 = "false" Var inst_show9 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" Var show_eng = "false"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Inst10CountMenuEnable = 0 Var Inst10CountMenuEnable = 0
Var Inst10CountCurrentMenuEnable = 0 Var Inst10CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst10CountMenuEnable GetCurrentEnableBlockCount Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnable ;DEBUGVAR Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnablePrev ;DEBUGVAR Inst10CountMenuEnablePrev
;DEBUGVAR Inst10CountCurrentMenuEnable ;DEBUGVAR Inst10CountCurrentMenuEnable
If Inst10CountMenuEnablePrev = "" Then If Inst10CountMenuEnablePrev = "" Then
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
Var Inst10CountDownForOpenXML = 0 Var Inst10CountDownForOpenXML = 0
Var Inst10CountDownOpenXMLFromMenuZero = 20 Var Inst10CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
Else Else
SAVELOG "Inst10 Refresh ===================================================================== Refresh" SAVELOG "Inst10 Refresh ===================================================================== Refresh"
Var Inst10CountDownForOpenXML = 10 Var Inst10CountDownForOpenXML = 10
Var Inst10CountMenuEnablePrev = CountMenuEnable Var Inst10CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
Else Else
If Inst10CountDownForOpenXML = 0 Then If Inst10CountDownForOpenXML = 0 Then
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
Var Inst10CountDownForOpenXML = 10 Var Inst10CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst10CountCurrentMenuEnable = 0 Then If Inst10CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
If Inst10CountDownOpenXMLFromMenuZero > 0 Then If Inst10CountDownOpenXMLFromMenuZero > 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1 Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
If Inst10CountDownOpenXMLFromMenuZero = 0 Then If Inst10CountDownOpenXMLFromMenuZero = 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = 20 Var Inst10CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
If Inst10CountCurrentMenuEnable > 0 Then If Inst10CountCurrentMenuEnable > 0 Then
Var Inst10MenuLoaded = "done" Var Inst10MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
If Inst10CountDownForOpenXML > 0 Then If Inst10CountDownForOpenXML > 0 Then
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1 Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
DEBUGVAR Inst10CountDownForOpenXML DEBUGVAR Inst10CountDownForOpenXML
If Inst10CountDownForOpenXML = 0 Then If Inst10CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -10869,8 +10869,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

2
inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt
View file

@ -119,7 +119,7 @@
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf