add language loading process lock

xml/page_board.xml

@@ -7,6 +7,10 @@
 <Background> "0xeae6e1" </Background>
 <Volume> SoundVolume </Volume>
 <EventOpen>
+
+    DEBUGVAR LangProcess
+
+
 	;TopView "hide"
 	;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/topview_blank_main.xml"
 	Var FileNumber = 1
@@ -548,8 +552,30 @@
 
 	; zone config language
 
+
+    DEBUGVAR LangProcess
+
+    ; lang-lock-until-done
+	If LangProcess = "Done" Then
+	    Var ShowButtonClick = "Enable"
+        Var ShowButtonClickFull = "Enable"
+    Else
+        Var ShowButtonClick = "Invisible"
+        Var ShowButtonClickFull = "Invisible"
+    EndIf
+
 	SetLanguage LanguageInit
 
+    ; lang-lock-until-done
+	If LangProcess = "Done" Then
+	    Var ShowButtonClick = "Enable"
+        Var ShowButtonClickFull = "Enable"
+    Else
+        Var ShowButtonClick = "Invisible"
+        Var ShowButtonClickFull = "Invisible"
+    EndIf
+
+    DEBUGVAR LangProcess
 
 	Var InternationalEnable = 0
 	Var InternationalEnableStr = "false"
@@ -648,9 +674,12 @@
 		TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev"
 
 		Var WebAppShow = "Invisible"
+		DEBUGVAR LangProcess
 		EnableLanguage "ENG"
 		EnableLanguage "MALAY"
+		DEBUGVAR LangProcess
 		SetLanguage "ENG"
+		DEBUGVAR LangProcess
 		LanguageControl "UpdateList" "-"
 		Var InternationalEnable = 1
 		Var show_eng = "true"
@@ -1080,6 +1109,7 @@
 	DEBUGVAR InternationalEnable
 	DEBUGVAR CountryRootPath
 
+    DEBUGVAR LangProcess
 
 
 	If InternationalEnable = 1 Then
@@ -1288,6 +1318,21 @@
 	DEBUGVAR CountDownPauseVideo2
 	Var TimeProfilePrice = 0
 
+	DEBUGVAR LangProcess
+
+    ; lang-lock-until-done
+	If LangProcess = "Done" Then
+	    Var ShowButtonClick = "Enable"
+        Var ShowButtonClickFull = "Enable"
+    Else
+        Var ShowButtonClick = "Invisible"
+        Var ShowButtonClickFull = "Invisible"
+    EndIf
+
+
+
+
+
 	Machine NewPaymentOpenBrewingXMLEnable
 </EventOpen>