fix: resolve white screen bug and 3-language bug
This commit is contained in:
parent
ecc9ba1fe0
commit
9a6a893984
38 changed files with 6928 additions and 4012 deletions
|
|
@ -2,7 +2,7 @@
|
||||||
|
|
||||||
DEBUGVAR ICE_PROCESS_STATUS
|
DEBUGVAR ICE_PROCESS_STATUS
|
||||||
DEBUGVAR ICE_PROCESS_TXT
|
DEBUGVAR ICE_PROCESS_TXT
|
||||||
|
Var TimerRefreshXML = 0
|
||||||
|
|
||||||
DEBUGVAR LanguageShow
|
DEBUGVAR LanguageShow
|
||||||
DEBUGVAR CountryName
|
DEBUGVAR CountryName
|
||||||
|
|
|
||||||
|
|
@ -9,49 +9,8 @@
|
||||||
<Color> "0xeae6e1" </Color>
|
<Color> "0xeae6e1" </Color>
|
||||||
</Image>
|
</Image>
|
||||||
|
|
||||||
<EventOnShow>
|
|
||||||
InstanceGetString SaveStringInst
|
|
||||||
DEBUGVAR SaveStringInst
|
|
||||||
DEBUGVAR show_eng
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
||||||
Open CurrentOpenFile
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If show_eng = "true" Then
|
|
||||||
If SaveStringInst = "ShowThai" Then
|
|
||||||
Var show_eng = "false"
|
|
||||||
InstanceSetString "ShowEng"
|
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
||||||
Open CurrentOpenFile
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If show_eng = "false" Then
|
|
||||||
If SaveStringInst "ShowMYANMAR" Then
|
|
||||||
Var show_eng = ""
|
|
||||||
InstanceGetString "ShowMYANMAR"
|
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
||||||
Open CurrentOpenFile
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If show_eng = "" Then
|
|
||||||
If SaveStringInst "ShowEng" Then
|
|
||||||
Var show_eng = "true"
|
|
||||||
InstanceGetString "ShowThai"
|
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
||||||
Open CurrentOpenFile
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
|
|
||||||
</EventOnShow>
|
|
||||||
|
|
||||||
<EventLanguageOnChange>
|
<EventLanguageOnChange>
|
||||||
DEBUGVAR LanguageShow
|
DEBUGVAR LanguageShow
|
||||||
If LanguageShow = "ENG" Then
|
If LanguageShow = "ENG" Then
|
||||||
|
|
@ -96,7 +55,6 @@
|
||||||
|
|
||||||
Var ButtonLanguageListXPosition = 970
|
Var ButtonLanguageListXPosition = 970
|
||||||
Var ButtonLanguageListYPosition = 450 - 38
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
TabMenuVisibleInst 9
|
|
||||||
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
|
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,13 @@
|
||||||
;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"
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 412
|
||||||
|
Var LanguageButtonListEnable = "Invisible"
|
||||||
|
|
||||||
|
If ENABLE_LANGUAGE_COUNT = "" Then
|
||||||
|
LanguageControl "UpdateList" 1
|
||||||
|
EndIf
|
||||||
|
|
||||||
SAVELOG PreviseXMLFileName2
|
SAVELOG PreviseXMLFileName2
|
||||||
|
|
||||||
|
|
@ -30,12 +36,12 @@
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
</EventOpen>
|
</EventOpen>
|
||||||
|
|
||||||
<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
|
||||||
|
|
@ -99,15 +105,101 @@
|
||||||
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"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
|
||||||
|
TimerReset
|
||||||
|
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
Var ButtonLanguageCurrentXPosition = 1005
|
||||||
|
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst5
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst5
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
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"
|
;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>
|
||||||
|
|
|
||||||
|
|
@ -101,11 +101,100 @@
|
||||||
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"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -107,11 +107,103 @@
|
||||||
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"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
Var ButtonLanguageCurrentXPosition = 1005
|
||||||
|
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst8
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst8
|
||||||
|
|
||||||
|
If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -89,6 +89,24 @@
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -110,11 +128,101 @@
|
||||||
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"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -100,9 +100,86 @@
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
Var ButtonLanguageCurrentXPosition = 1005
|
||||||
|
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst9
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst9
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
<FrameScroll>
|
<FrameScroll>
|
||||||
|
|
|
||||||
|
|
@ -101,6 +101,24 @@
|
||||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
|
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
|
|
|
||||||
|
|
@ -58,6 +58,8 @@
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
; setvarint SlientRefreshEnable 1
|
; setvarint SlientRefreshEnable 1
|
||||||
|
|
@ -97,11 +99,102 @@
|
||||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
Var ButtonLanguageCurrentXPosition = 1005
|
||||||
|
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst7
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst7
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -99,11 +99,101 @@
|
||||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -102,9 +102,83 @@
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
Var ButtonLanguageCurrentXPosition = 1005
|
||||||
|
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst10
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst10
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -103,11 +103,101 @@
|
||||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml"
|
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -79,6 +79,80 @@
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
Var ButtonLanguageCurrentXPosition = 1005
|
||||||
|
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst10
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst10
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -82,6 +82,79 @@
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -82,8 +82,8 @@
|
||||||
|
|
||||||
If SlientRefreshIndex = 9 Then
|
If SlientRefreshIndex = 9 Then
|
||||||
If inst_show9 = 0 Then
|
If inst_show9 = 0 Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
GetXMLFileNameCurrentRunning CurrentOpenFile9
|
||||||
Open CurrentOpenFile5
|
Open CurrentOpenFile9
|
||||||
Else
|
Else
|
||||||
Var SlientRefreshIndex = 0
|
Var SlientRefreshIndex = 0
|
||||||
EndIf
|
EndIf
|
||||||
|
|
@ -93,16 +93,93 @@
|
||||||
If langnext8 = "true" Then
|
If langnext8 = "true" Then
|
||||||
Var langnext8 = "false"
|
Var langnext8 = "false"
|
||||||
DEBUGVAR langnext
|
DEBUGVAR langnext
|
||||||
;GetXMLFileNameCurrentRunning CurrentOpenFile
|
|
||||||
DEBUGVAR CurrentOpenFile4
|
|
||||||
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"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
Var ButtonLanguageCurrentXPosition = 1005
|
||||||
|
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||||
|
|
||||||
|
Var ButtonLanguageListXPosition = 970
|
||||||
|
Var ButtonLanguageListYPosition = 450 - 38
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst11
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst11
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -101,11 +101,102 @@
|
||||||
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"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -81,18 +81,111 @@
|
||||||
If inst_show3 = 1 Then
|
If inst_show3 = 1 Then
|
||||||
If langnext2 = "true" Then
|
If langnext2 = "true" Then
|
||||||
Var langnext2 = "false"
|
Var langnext2 = "false"
|
||||||
DEBUGVAR langnext
|
DEBUGVAR langnext2
|
||||||
;GetXMLFileNameCurrentRunning CurrentOpenFile
|
;GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
DEBUGVAR CurrentOpenFile4
|
DEBUGVAR CurrentOpenFile4
|
||||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -90,11 +90,100 @@
|
||||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -110,6 +110,79 @@
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -108,11 +108,101 @@
|
||||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
|
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
|
||||||
RefreshAll
|
RefreshAll
|
||||||
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
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</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"
|
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
File diff suppressed because it is too large
Load diff
|
|
@ -98,6 +98,50 @@
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst5
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst5
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -78,6 +78,7 @@
|
||||||
; 5 fruit
|
; 5 fruit
|
||||||
Var Menu5Selected = "Invisible"
|
Var Menu5Selected = "Invisible"
|
||||||
;Var Menu6Selected = "Enable"
|
;Var Menu6Selected = "Enable"
|
||||||
|
Var Menu22Selected = "Enable"
|
||||||
|
|
||||||
Var Menu61Selected = "Enable"
|
Var Menu61Selected = "Enable"
|
||||||
Var Menu62Selected = "Enable"
|
Var Menu62Selected = "Enable"
|
||||||
|
|
@ -118,7 +119,7 @@
|
||||||
Var Menu22Selected = "Invisible"
|
Var Menu22Selected = "Invisible"
|
||||||
EndIf
|
EndIf
|
||||||
;
|
;
|
||||||
|
Var Menu22Selected = "Enable"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -164,6 +165,9 @@
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlocks5
|
||||||
|
|
||||||
|
|
||||||
</EventOpen>
|
</EventOpen>
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -182,7 +186,6 @@
|
||||||
<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
|
||||||
|
|
@ -238,6 +241,9 @@
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
@ -306,14 +312,29 @@
|
||||||
</EventClick>
|
</EventClick>
|
||||||
</Button>
|
</Button>
|
||||||
|
|
||||||
|
|
||||||
<EventOnShow>
|
<EventOnShow>
|
||||||
InstanceGetString SaveStringInst
|
InstanceGetString SaveStringInst
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst5
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst5
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
@ -332,15 +353,20 @@
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
</EventOnShow>
|
</EventOnShow>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;
|
;
|
||||||
<ListView1>
|
<ListView1>
|
||||||
<Width> 1080 </Width>
|
<Width> 1080 </Width>
|
||||||
<Height> "auto" </Height>
|
<Height> "auto" </Height>
|
||||||
<X> 0 </X>
|
<X> 0 </X>
|
||||||
<Y> 395 </Y>
|
<Y> 395 </Y>
|
||||||
<Row2>
|
<Row2>
|
||||||
<State>"Enable"</State>
|
<State>"Enable"</State>
|
||||||
<Width> 896 </Width>
|
<Width> 896 </Width>
|
||||||
<Height> 102 </Height>
|
<Height> 102 </Height>
|
||||||
|
|
|
||||||
|
|
@ -107,6 +107,50 @@
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst8
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst8
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -320,9 +320,24 @@
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst8
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst8
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
|
||||||
|
|
@ -100,6 +100,51 @@
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst9
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst9
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -312,9 +312,25 @@
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst9
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst9
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
|
||||||
|
|
@ -100,6 +100,49 @@
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst7
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst7
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -313,9 +313,24 @@
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst7
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst7
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
|
||||||
|
|
@ -101,6 +101,50 @@
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst10
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst10
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -313,9 +313,24 @@
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst10
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst10
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
|
||||||
|
|
@ -26,9 +26,59 @@
|
||||||
#include=menu_catalog_new_menu.py
|
#include=menu_catalog_new_menu.py
|
||||||
?>
|
?>
|
||||||
|
|
||||||
|
DEBUGVAR SlientRefreshIndex
|
||||||
|
|
||||||
|
If SlientRefreshIndex = 7 Then
|
||||||
|
Var SlientRefreshIndex = 8
|
||||||
|
EndIf
|
||||||
|
|
||||||
</EventOpen>
|
</EventOpen>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst10
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst10
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -156,6 +156,13 @@
|
||||||
|
|
||||||
SetInstanceIgnoreTouch
|
SetInstanceIgnoreTouch
|
||||||
|
|
||||||
|
|
||||||
|
DEBUGVAR SlientRefreshIndex
|
||||||
|
|
||||||
|
If SlientRefreshIndex = 7 Then
|
||||||
|
Var SlientRefreshIndex = 8
|
||||||
|
EndIf
|
||||||
|
|
||||||
</EventOpen>
|
</EventOpen>
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -295,9 +302,25 @@
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst10
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst10
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
|
||||||
|
|
@ -29,6 +29,116 @@
|
||||||
</EventOpen>
|
</EventOpen>
|
||||||
|
|
||||||
|
|
||||||
|
<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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
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 = 8 Then
|
||||||
|
If inst_show8 = 0 Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||||
|
Open CurrentOpenFile7
|
||||||
|
Else
|
||||||
|
Var SlientRefreshIndex = 9
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
TimerReset
|
||||||
|
</EventTimeout>
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst11
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst11
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If SaveStringInst = "RefreshNow" Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -156,6 +156,10 @@
|
||||||
|
|
||||||
SetInstanceIgnoreTouch
|
SetInstanceIgnoreTouch
|
||||||
|
|
||||||
|
If SlientRefreshIndex = 8 Then
|
||||||
|
Var SlientRefreshIndex = 9
|
||||||
|
EndIf
|
||||||
|
|
||||||
</EventOpen>
|
</EventOpen>
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -184,13 +188,14 @@
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
GetVisible inst_show
|
GetVisible inst_show8
|
||||||
;DEBUGVAR inst_show
|
;DEBUGVAR inst_show8
|
||||||
|
|
||||||
InstanceGetString SaveStringInst
|
|
||||||
;DEBUGVAR SaveStringInst
|
|
||||||
|
|
||||||
If inst_show = 1 Then
|
|
||||||
|
If inst_show8 = 1 Then
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
;DEBUGVAR SaveStringInst
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
|
@ -222,6 +227,16 @@
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
If SlientRefreshIndex = 8 Then
|
||||||
|
If inst_show8 = 0 Then
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||||
|
Open CurrentOpenFile7
|
||||||
|
Else
|
||||||
|
Var SlientRefreshIndex = 9
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
@ -295,9 +310,26 @@
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst11
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst11
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
Else
|
||||||
|
If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then
|
||||||
|
Var StatusRefresh = "NoRefresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
Else
|
||||||
|
Var StatusRefresh = "Refresh"
|
||||||
|
DEBUGVAR StatusRefresh
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile2
|
||||||
|
Open CurrentOpenFile2
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
|
||||||
|
|
@ -87,6 +87,51 @@
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
||||||
|
<EventOnShow>
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
DEBUGVAR SaveStringInst
|
||||||
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
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
|
||||||
|
|
||||||
|
If show_eng = "true" Then
|
||||||
|
If SaveStringInst = "ShowThai" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If SaveStringInst = "ShowEng" Then
|
||||||
|
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
|
Open CurrentOpenFile
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
</EventOnShow>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<?hurr
|
<?hurr
|
||||||
#include=menu_catalog_new.py
|
#include=menu_catalog_new.py
|
||||||
?>
|
?>
|
||||||
|
|
|
||||||
|
|
@ -85,7 +85,7 @@
|
||||||
Var Menu7Selected = "Enable"
|
Var Menu7Selected = "Enable"
|
||||||
; 8 cocktail
|
; 8 cocktail
|
||||||
Var Menu8Selected = "Invisible"
|
Var Menu8Selected = "Invisible"
|
||||||
|
Var Menu22Selected = "Enable"
|
||||||
If CocktailShow = "true" Then
|
If CocktailShow = "true" Then
|
||||||
Var Menu7Selected = "Invisible"
|
Var Menu7Selected = "Invisible"
|
||||||
Var Menu8Selected = "Enable"
|
Var Menu8Selected = "Enable"
|
||||||
|
|
@ -193,14 +193,13 @@
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
GetVisible inst_show3
|
GetVisible inst_show
|
||||||
;DEBUGVAR inst_show3
|
;DEBUGVAR inst_show
|
||||||
|
|
||||||
|
InstanceGetString SaveStringInst
|
||||||
|
;DEBUGVAR SaveStringInst
|
||||||
|
|
||||||
|
If inst_show = 1 Then
|
||||||
If inst_show3 = 1 Then
|
|
||||||
InstanceGetString SaveStringInst
|
|
||||||
;DEBUGVAR SaveStringInst
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile
|
Open CurrentOpenFile
|
||||||
|
|
@ -212,20 +211,23 @@
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
; setvarint SlientRefreshEnable 1
|
; setvarint SlientRefreshEnable 1
|
||||||
;DEBUGVAR SlientRefreshEnable
|
;DEBUGVAR SlientRefreshEnable
|
||||||
|
|
||||||
If SlientRefreshIndex = 3 Then
|
If SlientRefreshEnable = 1 Then
|
||||||
If inst_show3 = 0 Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile3
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open CurrentOpenFile3
|
Open CurrentOpenFile
|
||||||
Else
|
|
||||||
Var SlientRefreshIndex = 4
|
|
||||||
|
|
||||||
EndIf
|
If show_eng = "true" Then
|
||||||
|
InstanceSetString "ShowEng"
|
||||||
|
Else
|
||||||
|
InstanceSetString "ShowThai"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -302,9 +304,23 @@
|
||||||
DEBUGVAR SaveStringInst
|
DEBUGVAR SaveStringInst
|
||||||
DEBUGVAR show_eng
|
DEBUGVAR show_eng
|
||||||
|
|
||||||
|
DEBUGVAR EnabledBlockUpdateInst6
|
||||||
|
DEBUGVAR EnabledBlocksDrawInst6
|
||||||
|
|
||||||
|
|
||||||
If SaveStringInst = "RefreshNow" Then
|
If SaveStringInst = "RefreshNow" Then
|
||||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||||
Open 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
|
EndIf
|
||||||
|
|
||||||
If show_eng = "true" Then
|
If show_eng = "true" Then
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue