* wndproc definition fixed

rtl/win32/graph.pp

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

rtl/win32/wincrt.pp

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

rtl/win32/wininc/base.inc

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

rtl/win32/winmouse.pp

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