GetVisible inst_show5 ;DEBUGVAR inst_show5 If inst_show5 = 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 = 5 Then If inst_show5 = 0 Then GetXMLFileNameCurrentRunning CurrentOpenFile5 Open CurrentOpenFile5 Else Var SlientRefreshIndex = 6 EndIf EndIf If langnext4 = "true" Then Var langnext4 = "false" DEBUGVAR langnext4 RefreshAll EndIf If inst_show5 = 1 Then 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 Var Inst8CountMenuEnable = 0 Var Inst8CountCurrentMenuEnable = 0 GetFrameScrollBlockCount Inst8CountCurrentMenuEnable GetCurrentEnableBlockCount Inst8CountMenuEnable ;DEBUGVAR Inst8CountMenuEnable ;DEBUGVAR Inst8CountMenuEnablePrev ;DEBUGVAR Inst8CountCurrentMenuEnable If Inst8CountMenuEnablePrev = "" Then Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable Var Inst8CountDownForOpenXML = 0 Var Inst8CountDownOpenXMLFromMenuZero = 20 EndIf If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then Else SAVELOG "Inst8 Refresh ===================================================================== Refresh" Var Inst8CountDownForOpenXML = 10 Var Inst8CountMenuEnablePrev = CountMenuEnable EndIf If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then Else If Inst8CountDownForOpenXML = 0 Then SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" Var Inst8CountDownForOpenXML = 10 EndIf EndIf If Inst8CountCurrentMenuEnable = 0 Then DEBUGVAR Inst8CountDownOpenXMLFromMenuZero If Inst8CountDownOpenXMLFromMenuZero > 0 Then Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 If Inst8CountDownOpenXMLFromMenuZero = 0 Then Var Inst8CountDownOpenXMLFromMenuZero = 20 Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" EndIf EndIf EndIf If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then If Inst8CountCurrentMenuEnable > 0 Then Var Inst8MenuLoaded = "done" EndIf EndIf If Inst8CountDownForOpenXML > 0 Then Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 DEBUGVAR Inst8CountDownForOpenXML If Inst8CountDownForOpenXML = 0 Then Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" EndIf EndIf