liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

界面库 

waitmessage 替代sleep
This commit is contained in:
JianjunLiu 2022-06-14 11:28:01 +08:00
parent c8d20b4daf
commit e4128f29a4
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
funcext/tvclib/tslvcl.tsf
View File

@ -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;

4
funcext/tvclib/ugtkinterface.tsf
View File

@ -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

1
funcext/tvclib/uwindowsinterface.tsf
View File

@ -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";