blob: a8139579f7aea1d567ae60ac00b7179c88fe65d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
type
TDragHandleStyle = (dhDouble, dhNone, dhSingle);
var b : boolean;
fdraghandlestyle : TDraghandlestyle;
i : longint;
begin
i:=0;
FDraghandlestyle:=dhDouble;
for B := False to (FDragHandleStyle = dhDouble) do
inc(i);
if (i<>2) then
halt(1);
end.
|
