Browse Source

* fix win32 graph version compilation failure

pierre 22 years ago
parent
commit
a8713e6625
2 changed files with 12 additions and 6 deletions
  1. 6 3
      fv/win32gr.pas
  2. 6 3
      fvision/win32gr.pas

+ 6 - 3
fv/win32gr.pas

@@ -570,7 +570,7 @@ function fvisioncharmessagehandler (Window: hwnd; AMessage, WParam,
                                   LParam: Longint): Longint;
                                   LParam: Longint): Longint;
 var
 var
   ir : INPUT_RECORD;
   ir : INPUT_RECORD;
-  NumWritten : longint;
+  NumWritten : dword;
   vKey : byte;
   vKey : byte;
   scancode : integer;
   scancode : integer;
   ach, ch : array[0..1] of char;
   ach, ch : array[0..1] of char;
@@ -718,7 +718,7 @@ function fvisionmousemessagehandler (Window: hwnd; AMessage, WParam,
 
 
 var
 var
   ir : INPUT_RECORD;
   ir : INPUT_RECORD;
-  NumWritten : longint;
+  NumWritten : dword;
 begin
 begin
   fvisionmousemessagehandler:=0;
   fvisionmousemessagehandler:=0;
   ir.EventType:=_MOUSE_EVENT;
   ir.EventType:=_MOUSE_EVENT;
@@ -814,7 +814,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.5  2002-05-31 13:35:33  pierre
+  Revision 1.6  2003-01-12 23:25:51  pierre
+   * fix win32 graph version compilation failure
+
+  Revision 1.5  2002/05/31 13:35:33  pierre
    * recognize Enter key with kbEnter
    * recognize Enter key with kbEnter
 
 
   Revision 1.4  2002/05/29 21:20:49  pierre
   Revision 1.4  2002/05/29 21:20:49  pierre

+ 6 - 3
fvision/win32gr.pas

@@ -570,7 +570,7 @@ function fvisioncharmessagehandler (Window: hwnd; AMessage, WParam,
                                   LParam: Longint): Longint;
                                   LParam: Longint): Longint;
 var
 var
   ir : INPUT_RECORD;
   ir : INPUT_RECORD;
-  NumWritten : longint;
+  NumWritten : dword;
   vKey : byte;
   vKey : byte;
   scancode : integer;
   scancode : integer;
   ach, ch : array[0..1] of char;
   ach, ch : array[0..1] of char;
@@ -718,7 +718,7 @@ function fvisionmousemessagehandler (Window: hwnd; AMessage, WParam,
 
 
 var
 var
   ir : INPUT_RECORD;
   ir : INPUT_RECORD;
-  NumWritten : longint;
+  NumWritten : dword;
 begin
 begin
   fvisionmousemessagehandler:=0;
   fvisionmousemessagehandler:=0;
   ir.EventType:=_MOUSE_EVENT;
   ir.EventType:=_MOUSE_EVENT;
@@ -814,7 +814,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.5  2002-05-31 13:35:33  pierre
+  Revision 1.6  2003-01-12 23:25:51  pierre
+   * fix win32 graph version compilation failure
+
+  Revision 1.5  2002/05/31 13:35:33  pierre
    * recognize Enter key with kbEnter
    * recognize Enter key with kbEnter
 
 
   Revision 1.4  2002/05/29 21:20:49  pierre
   Revision 1.4  2002/05/29 21:20:49  pierre