* Add scCommand (command key)

rtl/objpas/classes/classesh.inc

@@ -53,6 +53,7 @@ const
 
 { values for TShortCut }
 
+  scCommand = $1000;
   scShift = $2000;
   scCtrl = $4000;
   scAlt = $8000;
@@ -2709,6 +2710,8 @@ type
     constructor Create(const aPlatforms: TPlatformIds);
     property Platforms: TPlatformIds read FPlatforms write FPlatforms;
   end;  
+
+
   
 const
   { Platform identifiers }