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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
object DraftDlg: TDraftDlg
Left = 325
Height = 511
Top = 206
Width = 315
BorderIcons = []
BorderStyle = bsNone
ClientHeight = 511
ClientWidth = 315
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
FormStyle = fsStayOnTop
OnCreate = FormCreate
OnDestroy = FormDestroy
OnMouseDown = PaintBox1MouseDown
OnMouseUp = PaintBox1MouseUp
OnShow = FormShow
LCLVersion = '1.6.0.4'
PixelsPerInch = 96
Scaled = False
object OKBtn: TButtonA
Left = 196
Height = 25
Top = 477
Width = 100
Down = False
Permanent = False
OnClick = OKBtnClick
end
object CloseBtn: TButtonB
Left = 284
Height = 25
Top = 6
Width = 25
Down = False
Permanent = False
OnClick = CloseBtnClick
ButtonIndex = 0
end
object GroundArea: TArea
Left = 30
Height = 36
Top = 464
Width = 36
end
object SeaArea: TArea
Left = 70
Height = 36
Top = 464
Width = 36
end
object AirArea: TArea
Left = 110
Height = 36
Top = 464
Width = 36
end
end
|
