paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:30:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed msghandler declarations

Browse Source
This commit is contained in:
peter 2003-04-23 11:22:12 +00:00
parent 128f4c117f
commit 4ac96d61d6
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/wincrt.pp
View File

@ -140,8 +140,7 @@ unit wincrt;
ctrlkey : boolean = false; ctrlkey : boolean = false;
shiftkey : boolean = false; shiftkey : boolean = false;
function msghandler(Window: hwnd; AMessage, WParam, function msghandler(Window: hwnd; AMessage, WParam: Longword; LParam: Longint): Longint;
LParam: Longint): Longint;
begin begin
case amessage of case amessage of
@ -226,7 +225,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.3 2002-09-07 16:01:29 peter Revision 1.4 2003-04-23 11:22:12 peter
* fixed msghandler declarations
Revision 1.3 2002/09/07 16:01:29 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }

8
rtl/win32/winmouse.pp
View File

@ -126,8 +126,7 @@ unit winmouse;
Windows.ShowCursor(false); Windows.ShowCursor(false);
end; end;
function msghandler(Window: hwnd; AMessage, WParam, function msghandler(Window: hwnd; AMessage, WParam: Longword; LParam: Longint): Longint;
LParam: Longint): Longint;
begin begin
{ we catch the double click messages here too, } { we catch the double click messages here too, }
@ -200,7 +199,10 @@ unit winmouse;
end. end.
{ {
$Log$ $Log$
Revision 1.4 2002-09-07 16:01:29 peter Revision 1.5 2003-04-23 11:22:12 peter
* fixed msghandler declarations
Revision 1.4 2002/09/07 16:01:29 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }