Browse Source

+ Added windows key definitions (bug 3445)

michael 20 years ago
parent
commit
14b11ebf16
1 changed files with 9 additions and 1 deletions
  1. 9 1
      rtl/inc/keybrdh.inc

+ 9 - 1
rtl/inc/keybrdh.inc

@@ -72,6 +72,11 @@ const
   kbdF18       = $FF12;
   kbdF18       = $FF12;
   kbdF19       = $FF13;
   kbdF19       = $FF13;
   kbdF20       = $FF14;
   kbdF20       = $FF14;
+  
+  kbdLWin      = $FF15;
+  kbdRWin      = $FF16;
+  kbdApps      = $FF17;
+  
   { $15 - $1F reserved for future Fxx keys }
   { $15 - $1F reserved for future Fxx keys }
   kbdHome      = $FF20;
   kbdHome      = $FF20;
   kbdUp        = $FF21;
   kbdUp        = $FF21;
@@ -193,7 +198,10 @@ Function KeyEventToString(KeyEvent : TKeyEvent) : String;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.5  2003-11-03 09:42:28  marco
+  Revision 1.6  2004-12-18 19:53:21  michael
+  + Added windows key definitions (bug 3445)
+
+  Revision 1.5  2003/11/03 09:42:28  marco
    * Peter's Cardinal<->Longint fixes patch
    * Peter's Cardinal<->Longint fixes patch
 
 
   Revision 1.4  2002/09/07 15:07:45  peter
   Revision 1.4  2002/09/07 15:07:45  peter