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

THAI Inter: add GetEnabledBlock func

Browse source
This commit is contained in:
thanawat saiyota 2024-11-19 15:08:18 +07:00
parent 9a6a893984
commit f3a2774d63
8 changed files with 89 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -10,14 +10,6 @@
; On open
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever"
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 412
Var LanguageButtonListEnable = "Invisible"
If ENABLE_LANGUAGE_COUNT = "" Then
LanguageControl "UpdateList" 1
EndIf
SAVELOG PreviseXMLFileName2
@ -122,6 +114,8 @@
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -133,7 +127,8 @@
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst5
GetEnabledUpdateBlockCount EnabledBlockUpdateInst5
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
@ -141,8 +136,8 @@
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst5
DEBUGVAR EnabledBlocksDrawInst5
DEBUGVAR EnabledBlockUpdateInst5
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile

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

@ -125,6 +125,8 @@
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -138,6 +140,8 @@
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst8
GetEnabledUpdateBlockCount EnabledBlockUpdateInst8
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38

23
inter/tha/xml/multi/page_catalog_group_health.lxml
View file

@ -98,6 +98,26 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -110,7 +130,8 @@
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst9
GetEnabledUpdateBlockCount EnabledBlockUpdateInst9
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38

4
inter/tha/xml/multi/page_catalog_group_milk.lxml
View file

@ -117,6 +117,8 @@
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -129,6 +131,8 @@
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst7
GetEnabledUpdateBlockCount EnabledBlockUpdateInst7
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38

22
inter/tha/xml/multi/page_catalog_group_other.lxml
View file

@ -100,6 +100,26 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -113,6 +133,8 @@
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst10
GetEnabledUpdateBlockCount EnabledBlockUpdateInst10
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38

2
inter/tha/xml/multi/page_catalog_group_other_other.lxml
View file

@ -85,6 +85,8 @@
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst10
GetEnabledUpdateBlockCount EnabledBlockUpdateInst10
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38

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

@ -96,6 +96,28 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
RefreshAll
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
GetEnabledDrawBlockCount EnabledBlocksDrawInst11
GetEnabledUpdateBlockCount EnabledBlockUpdateInst11
EndIf
@ -110,6 +132,8 @@
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst11
GetEnabledUpdateBlockCount EnabledBlockUpdateInst11
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38

6
inter/tha/xml/multi/page_catalog_group_tea.lxml
View file

@ -105,6 +105,10 @@
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -118,6 +122,8 @@
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
GetEnabledDrawBlockCount EnabledBlocksDrawInst6
GetEnabledUpdateBlockCount EnabledBlockUpdateInst6
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38