paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add some delphi compatibility enumerateds to TShiftState

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-05-07 10:19:55 +02:00
parent d78e39d360
commit 712823eb6c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/classes/classesh.inc
View File

@ -102,7 +102,8 @@ type
ssLeft, ssRight, ssMiddle, ssDouble,
// Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2);
ssScroll,ssTriple,ssQuad,ssExtra1,ssExtra2,
ssTouch, ssPen, ssHorizontal);
{$packset 1}
TShiftState = set of TShiftStateEnum;
@ -151,6 +152,9 @@ type
Const
// Delphi compatibility
ssCommand = ssMeta;
SGUIDObserved = '{663C603C-3F3C-4CC5-823C-AC8079F979E5}';
SGUIDObserver = '{BC7376EA-199C-4C2A-8684-F4805F0691CA}';