Browse Source

* some fixes (KEY_EVENT_STRUCT was wrong)

florian 26 years ago
parent
commit
45233bf8bb
3 changed files with 16 additions and 11 deletions
  1. 4 1
      rtl/win32/ascdef.pp
  2. 8 9
      rtl/win32/struct.pp
  3. 4 1
      rtl/win32/unidef.pp

+ 4 - 1
rtl/win32/ascdef.pp

@@ -1822,7 +1822,10 @@ end.
 {$endif not windows_include_files}
 {$endif not windows_include_files}
 {
 {
   $Log$
   $Log$
-  Revision 1.13  1999-07-06 22:44:09  florian
+  Revision 1.14  1999-07-14 08:46:26  florian
+    * some fixes (KEY_EVENT_STRUCT was wrong)
+
+  Revision 1.11  1999/07/06 22:44:10  florian
     * some fixes to compile ddraw units from the jedi project
     * some fixes to compile ddraw units from the jedi project
 
 
   Revision 1.10  1999/07/05 14:47:43  florian
   Revision 1.10  1999/07/05 14:47:43  florian

+ 8 - 9
rtl/win32/struct.pp

@@ -3452,14 +3452,10 @@ unit struct;
           wRepeatCount : WORD;
           wRepeatCount : WORD;
           wVirtualKeyCode : WORD;
           wVirtualKeyCode : WORD;
           wVirtualScanCode : WORD;
           wVirtualScanCode : WORD;
-          AsciiChar : char;
-          pad : char;
-          uChar : record
-              case longint of
-                 0 : ( UnicodeChar : WCHAR );
-                 1 : ( AsciiChar : CHAR );
-              end;
-          dwControlKeyState : DWORD;
+          case longint of
+             0 : ( UnicodeChar : WCHAR;
+                   dwControlKeyState : DWORD; );
+             1 : ( AsciiChar : CHAR );
        end;
        end;
      _KEY_EVENT_RECORD = KEY_EVENT_RECORD;
      _KEY_EVENT_RECORD = KEY_EVENT_RECORD;
      TKEYEVENTRECORD = KEY_EVENT_RECORD;
      TKEYEVENTRECORD = KEY_EVENT_RECORD;
@@ -6931,7 +6927,10 @@ end.
 {$endif not windows_include_files}
 {$endif not windows_include_files}
 {
 {
   $Log$
   $Log$
-  Revision 1.9  1999-05-19 16:22:03  peter
+  Revision 1.10  1999-07-14 08:46:27  florian
+    * some fixes (KEY_EVENT_STRUCT was wrong)
+
+  Revision 1.9  1999/05/19 16:22:03  peter
     * fixed left crt bugs
     * fixed left crt bugs
 
 
   Revision 1.8  1999/04/20 11:36:17  peter
   Revision 1.8  1999/04/20 11:36:17  peter

+ 4 - 1
rtl/win32/unidef.pp

@@ -1837,7 +1837,10 @@ end.
 {$endif not windows_include_files}
 {$endif not windows_include_files}
 {
 {
   $Log$
   $Log$
-  Revision 1.12  1999-07-06 22:44:15  florian
+  Revision 1.13  1999-07-14 08:46:29  florian
+    * some fixes (KEY_EVENT_STRUCT was wrong)
+
+  Revision 1.10  1999/07/06 22:44:17  florian
     * some fixes to compile ddraw units from the jedi project
     * some fixes to compile ddraw units from the jedi project
 
 
   Revision 1.9  1999/05/10 19:34:14  florian
   Revision 1.9  1999/05/10 19:34:14  florian