mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
27 lines
498 B
ObjectPascal
27 lines
498 B
ObjectPascal
type
|
|
TShiftStateEnum = (ssShift, ssAlt, ssCtrl,
|
|
ssLeft, ssRight, ssMiddle, ssDouble,
|
|
// Extra additions
|
|
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
|
|
ssScroll,ssTriple,ssQuad);
|
|
|
|
{$packset 1}
|
|
TShiftState = set of TShiftStateEnum;
|
|
{$packset default}
|
|
|
|
var
|
|
s: tshiftstate;
|
|
ss: tshiftstateenum;
|
|
begin
|
|
s := [];
|
|
ss:=ssShift;
|
|
include(s,ss);
|
|
include(s,ssSuper);
|
|
if not(ssShift in s) or
|
|
not(ssSuper in s) then
|
|
halt(1);
|
|
if not(ss in s) then
|
|
halt(2);
|
|
end.
|
|
|