paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wndproc definition fix

Browse Source
This commit is contained in:
peter 2003-04-23 11:35:30 +00:00
parent cb57953ff0
commit 121676ec2d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/win32/thread.inc
View File

@ -17,9 +17,10 @@ var
ThreadWindow: HWND;
ThreadCount: Integer;
function ThreadWndProc(Window: HWND; Message, wParam, lParam: Longint): Longint;stdcall;
function ThreadWndProc(Window: HWnd; AMessage:UInt; WParam : WParam; LParam: LParam): Longint; stdcall;
begin
case Message of
case AMessage of
CM_EXECPROC:
with TThread(lParam) do
begin
@ -41,7 +42,7 @@ begin
Result := 0;
end;
else
Result := DefWindowProc(Window, Message, wParam, lParam);
Result := DefWindowProc(Window, AMessage, wParam, lParam);
end;
end;
@ -211,7 +212,10 @@ begin
end;
{
$Log$
Revision 1.6 2002-09-07 15:15:29 peter
Revision 1.7 2003-04-23 11:35:30 peter
* wndproc definition fix
Revision 1.6 2002/09/07 15:15:29 peter
* old logs removed and tabs fixed
}