From e4128f29a4358b715563f82be78b61cdaf6f4574 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Tue, 14 Jun 2022 11:28:01 +0800
Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

waitmessage 鏇夸唬sleep
---
 funcext/tvclib/tslvcl.tsf            | 5 ++++-
 funcext/tvclib/ugtkinterface.tsf     | 4 ++--
 funcext/tvclib/uwindowsinterface.tsf | 1 +
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/funcext/tvclib/tslvcl.tsf b/funcext/tvclib/tslvcl.tsf
index ebdec1a..beba936 100644
--- a/funcext/tvclib/tslvcl.tsf
+++ b/funcext/tvclib/tslvcl.tsf
@@ -593,6 +593,7 @@ type tapplication=class(tcomponent)
             begin
                 tslprocessmessages(false);
                 RunWorkerThreadLoop();
+                _wapi.WaitMessage();
             end
         end
         {while (_wapi.GetMessageA(ptr, 0, 0, 0)) do
@@ -9420,6 +9421,7 @@ public
                 begin
                     tslprocessmessages(false);
                     RunWorkerThreadLoop();
+                    w32.WaitMessage();
                 end
                 //////////////////////////////////////////					
             end
@@ -10394,6 +10396,7 @@ begin
     begin
         tslprocessmessages(false);
         RunWorkerThreadLoop();
+        API.WaitMessage();
     end
     return-1;
     //////////////////////////////////////////////////////
@@ -10708,7 +10711,6 @@ begin
 end
 function RunWorkerThreadLoop();
 begin
-    sleep(10);
     class(TThreadWorker).dispatch();  
 end 
 	//procedure ClearScriptCache();cdecl;external  "TSLInterp.dll" name "ClearScriptCache";
@@ -10877,6 +10879,7 @@ begin
         begin
             tslprocessmessages(false);
             RunWorkerThreadLoop();
+            WPI.WaitMessage();
         end
         ////////////////////////////////////////////////
         if not handle then break;
diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf
index f06bbac..769eb1a 100644
--- a/funcext/tvclib/ugtkinterface.tsf
+++ b/funcext/tvclib/ugtkinterface.tsf
@@ -6727,12 +6727,12 @@ begin
         else 
         begin
             tslprocessmessages(false);
-            sleep(10);
+            //sleep(10);
         end 
     end  else 
     begin
         tslprocessmessages(false);
-        sleep(10);//休息一下
+        //sleep(10);//休息一下
     end 
     unit(uvclthreadworker).RunThreadWorkerHost();
 end 
diff --git a/funcext/tvclib/uwindowsinterface.tsf b/funcext/tvclib/uwindowsinterface.tsf
index 7b6d734..2c3363c 100644
--- a/funcext/tvclib/uwindowsinterface.tsf
+++ b/funcext/tvclib/uwindowsinterface.tsf
@@ -282,6 +282,7 @@ type twindowsapi = class
     function PostMessageA(hWnd:pointer;Msg:integer;wParam:pointer;lParam:pointer):integer;stdcall;external "User32.dll"  name "PostMessageA";
     function GetMessageA(lpMsg:pointer;hWnd:pointer;wMsgFilterMin:integer;wMsgFilterMax:integer):integer;stdcall;external "User32.dll"  name "GetMessageA";	
     function PeekMessageA(lpMsg:pointer; hWnd:pointer; wMsgFilterMin:integer; wMsgFilterMax:integer;wRemoveMsg:integer):integer ;stdcall;external "User32.dll"  name "PeekMessageA";	
+    function WaitMessage():integer ;stdcall;external "User32.dll"  name "WaitMessage";	
     function PostQuitMessage(code:integer);stdcall;external "User32.dll"  name "PostQuitMessage";	
     function PostThreadMessageA(idThread:integer ;Msg:integer;wParam:pointer;lParam:pointer):integer;stdcall;external "User32.dll"  name "PostThreadMessageA";							
     function TranslateMessage(msg:pointer):integer;stdcall;external "User32.dll"  name "TranslateMessage";