fix: resolve white screen bug and 3-language bug

This commit is contained in:
thanawat saiyota 2024-11-19 10:48:10 +07:00
parent ecc9ba1fe0
commit 9a6a893984
38 changed files with 6928 additions and 4012 deletions

View file

@ -78,6 +78,7 @@
; 5 fruit
Var Menu5Selected = "Invisible"
;Var Menu6Selected = "Enable"
Var Menu22Selected = "Enable"
Var Menu61Selected = "Enable"
Var Menu62Selected = "Enable"
@ -118,7 +119,7 @@
Var Menu22Selected = "Invisible"
EndIf
;
Var Menu22Selected = "Enable"
@ -158,12 +159,15 @@
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3
EndIf
DEBUGVAR EnabledBlocks5
</EventOpen>
@ -182,7 +186,6 @@
<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
@ -238,6 +241,9 @@
EndIf
TimerReset
</EventTimeout>
@ -306,14 +312,29 @@
</EventClick>
</Button>
<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
@ -332,15 +353,20 @@
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
<Height> "auto" </Height>
<X> 0 </X>
<Y> 395 </Y>
<Row2>
<Row2>
<State>"Enable"</State>
<Width> 896 </Width>
<Height> 102 </Height>