Do Redirect OpenFile

This commit is contained in:
wanlop run 2023-12-09 23:14:58 +07:00
parent a7cd0d4a48
commit 04d81d5eff
29 changed files with 1063 additions and 131 deletions

View file

@ -74,16 +74,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
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>
;
<ListView1>
<Width> 1080 </Width>
@ -104,10 +136,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>