paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wndproc definition fixed

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

26
rtl/win32/graph.pp
View File

@ -23,17 +23,12 @@ uses
var
{ this procedure allows to hook keyboard messages }
charmessagehandler : function(Window: hwnd; AMessage, WParam : longword;
LParam: Longint): Longint;
charmessagehandler : WndProc;
{ this procedure allows to hook mouse messages }
mousemessagehandler : function(Window: hwnd; AMessag, WParam : longword;
LParam: Longint): Longint;
mousemessagehandler : WndProc;
{ this procedure allows to wm_command messages }
commandmessagehandler : function(Window: hwnd; AMessage, WParam : longword;
LParam: Longint): Longint;
NotifyMessageHandler : function(Window: hwnd; AMessage, WParam,
LParam: Longint): Longint;
commandmessagehandler : WndProc;
NotifyMessageHandler : WndProc;
OnGraphWindowCreation : procedure;
@ -1165,8 +1160,8 @@ procedure restorestate;
begin
end;
function WindowProcGraph(Window: HWnd; AMessage, WParam : longword;
LParam: Longint): Longint; stdcall; export;
function WindowProcGraph(Window: HWnd; AMessage:UInt; WParam : WParam;
LParam: LParam): Longint; stdcall;
var
dc : hdc;
@ -1323,8 +1318,8 @@ begin
end;
end;
function WindowProcParent(Window: HWnd; AMessage, WParam : longword;
LParam: Longint): Longint; stdcall; export;
function WindowProcParent(Window: HWnd; AMessage:UInt; WParam : WParam;
LParam: LParam): Longint; stdcall;
begin
WindowProcParent := 0;
@ -2227,7 +2222,10 @@ begin
end.
{
$Log$
Revision 1.11 2003-04-23 11:08:09 florian
Revision 1.12 2003-04-23 11:35:00 peter
* wndproc definition fixed
Revision 1.11 2003/04/23 11:08:09 florian
* fixed parameter types
Revision 1.10 2002/09/07 16:01:28 peter

7
rtl/win32/wincrt.pp
View File

@ -140,7 +140,7 @@ unit wincrt;
ctrlkey : boolean = false;
shiftkey : boolean = false;
function msghandler(Window: hwnd; AMessage, WParam: Longword; LParam: Longint): Longint;
function msghandler(Window: HWnd; AMessage:UInt; WParam : WParam; LParam: LParam): Longint; stdcall;
begin
case amessage of
@ -225,7 +225,10 @@ begin
end.
{
$Log$
Revision 1.4 2003-04-23 11:22:12 peter
Revision 1.5 2003-04-23 11:35:00 peter
* wndproc definition fixed
Revision 1.4 2003/04/23 11:22:12 peter
* fixed msghandler declarations
Revision 1.3 2002/09/07 16:01:29 peter

7
rtl/win32/wininc/base.inc
View File

@ -242,7 +242,7 @@
ULONG = cardinal;
USHORT = word;
WPARAM = cardinal;
WPARAM = Longint;
PLPSTR = ^LPSTR;
PLPWStr= ^LPWStr;
@ -937,7 +937,10 @@ type
{
$Log$
Revision 1.16 2003-04-01 15:37:17 peter
Revision 1.17 2003-04-23 11:35:00 peter
* wndproc definition fixed
Revision 1.16 2003/04/01 15:37:17 peter
* HResult is alias for System.HResult
* Handle is unique type of Cardinal

7
rtl/win32/winmouse.pp
View File

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