blob: 7aec067fc1e1430d4adf41cd7006deb017e86662 (
plain)
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
27
28
29
30
31
32
33
34
35
36
37
|
{ problem of conversion between
smallsets and long sets }
type
{ Command sets }
PCommandSet = ^TCommandSet;
TCommandSet = set of Byte;
Const
cmValid = 0;
cmQuit = 1;
cmError = 2;
cmMenu = 3;
cmClose = 4;
cmZoom = 5;
cmResize = 6;
cmNext = 7;
cmPrev = 8;
cmHelp = 9;
{ Application command codes }
cmCut = 20;
cmCopy = 21;
cmPaste = 22;
cmUndo = 23;
cmClear = 24;
cmTile = 25;
cmCascade = 26;
CurCommandSet: TCommandSet =
[0..255] - [cmZoom, cmClose, cmResize, cmNext, cmPrev];
begin
end.
|
