Jelajahi Sumber

* fixed msghandler declarations

peter 22 tahun lalu
induk
melakukan
4ac96d61d6
2 mengubah file dengan 10 tambahan dan 6 penghapusan
  1. 5 3
      rtl/win32/wincrt.pp
  2. 5 3
      rtl/win32/winmouse.pp

+ 5 - 3
rtl/win32/wincrt.pp

@@ -140,8 +140,7 @@ unit wincrt;
        ctrlkey : boolean = false;
        shiftkey : boolean = false;
 
-    function msghandler(Window: hwnd; AMessage, WParam,
-      LParam: Longint): Longint;
+    function msghandler(Window: hwnd; AMessage, WParam: Longword; LParam: Longint): Longint;
 
       begin
          case amessage of
@@ -226,7 +225,10 @@ begin
 end.
 {
   $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
 
 }

+ 5 - 3
rtl/win32/winmouse.pp

@@ -126,8 +126,7 @@ unit winmouse;
          Windows.ShowCursor(false);
       end;
 
-    function msghandler(Window: hwnd; AMessage, WParam,
-      LParam: Longint): Longint;
+    function msghandler(Window: hwnd; AMessage, WParam: Longword; LParam: Longint): Longint;
 
       begin
          { we catch the double click messages here too, }
@@ -200,7 +199,10 @@ unit winmouse;
   end.
 {
   $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
 
 }