* Fix bug ID #31647: added new shift state: ssScrollH

git-svn-id: trunk@36768 -

rtl/objpas/classes/classesh.inc

@@ -100,7 +100,8 @@ type
     ssLeft, ssRight, ssMiddle, ssDouble,
     // Extra additions
     ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
-    ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2);
+    ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2,
+    ssScrollH);
 
 {$packset 1}
   TShiftState = set of TShiftStateEnum;