1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
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.
|
