paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +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 var
{ this procedure allows to hook keyboard messages } { this procedure allows to hook keyboard messages }
charmessagehandler : function(Window: hwnd; AMessage, WParam : longword; charmessagehandler : WndProc;
LParam: Longint): Longint;
{ this procedure allows to hook mouse messages } { this procedure allows to hook mouse messages }
mousemessagehandler : function(Window: hwnd; AMessag, WParam : longword; mousemessagehandler : WndProc;
LParam: Longint): Longint;
{ this procedure allows to wm_command messages } { this procedure allows to wm_command messages }
commandmessagehandler : function(Window: hwnd; AMessage, WParam : longword; commandmessagehandler : WndProc;
LParam: Longint): Longint; NotifyMessageHandler : WndProc;
NotifyMessageHandler : function(Window: hwnd; AMessage, WParam,
LParam: Longint): Longint;
OnGraphWindowCreation : procedure; OnGraphWindowCreation : procedure;
@ -1165,8 +1160,8 @@ procedure restorestate;
begin begin
end; end;
function WindowProcGraph(Window: HWnd; AMessage, WParam : longword; function WindowProcGraph(Window: HWnd; AMessage:UInt; WParam : WParam;
LParam: Longint): Longint; stdcall; export; LParam: LParam): Longint; stdcall;
var var
dc : hdc; dc : hdc;
@ -1323,8 +1318,8 @@ begin
end; end;
end; end;
function WindowProcParent(Window: HWnd; AMessage, WParam : longword; function WindowProcParent(Window: HWnd; AMessage:UInt; WParam : WParam;
LParam: Longint): Longint; stdcall; export; LParam: LParam): Longint; stdcall;
begin begin
WindowProcParent := 0; WindowProcParent := 0;
@ -2227,7 +2222,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed parameter types
Revision 1.10 2002/09/07 16:01:28 peter 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; ctrlkey : boolean = false;
shiftkey : 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 begin
case amessage of case amessage of
@ -225,7 +225,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed msghandler declarations
Revision 1.3 2002/09/07 16:01:29 peter Revision 1.3 2002/09/07 16:01:29 peter

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

@ -242,7 +242,7 @@
ULONG = cardinal; ULONG = cardinal;
USHORT = word; USHORT = word;
WPARAM = cardinal; WPARAM = Longint;
PLPSTR = ^LPSTR; PLPSTR = ^LPSTR;
PLPWStr= ^LPWStr; PLPWStr= ^LPWStr;
@ -937,7 +937,10 @@ type
{ {
$Log$ $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 * HResult is alias for System.HResult
* Handle is unique type of Cardinal * Handle is unique type of Cardinal

7
rtl/win32/winmouse.pp
View File

@ -126,7 +126,7 @@ unit winmouse;
Windows.ShowCursor(false); Windows.ShowCursor(false);
end; end;
function msghandler(Window: hwnd; AMessage, WParam: Longword; LParam: Longint): Longint; function msghandler(Window: HWnd; AMessage:UInt; WParam : WParam; LParam: LParam): Longint; stdcall;
begin begin
{ we catch the double click messages here too, } { we catch the double click messages here too, }
@ -199,7 +199,10 @@ unit winmouse;
end. end.
{ {
$Log$ $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 * fixed msghandler declarations
Revision 1.4 2002/09/07 16:01:29 peter Revision 1.4 2002/09/07 16:01:29 peter