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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
object frShapeForm: TfrShapeForm
Left = 344
Height = 143
Top = 163
Width = 367
HorzScrollBar.Page = 276
VertScrollBar.Page = 93
ActiveControl = ButtonPanel1
BorderStyle = bsDialog
Caption = 'Shape'
ClientHeight = 143
ClientWidth = 367
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.29'
object Image1: TImage
Left = 32
Height = 16
Top = 64
Width = 16
Picture.Data = {
07544269746D6170F6000000424DF60000000000000076000000280000001000
0000100000000100040000000000800000000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF007777777700000007777777770FFFFF07777777770FFFFF07770000770FFF
FF07702222070FFFFF07022222200FFFFF070222222000000007022222207777
77770222000000000777702220CCCCC07777770000CCCCC077777777770CCC07
77777777770CCC07777777777770C077777777777770C0777777777777770777
7777
}
Transparent = True
Visible = False
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 57
Top = 6
Width = 355
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = ' Shape kind '
ClientHeight = 41
ClientWidth = 353
TabOrder = 0
object CB1: TComboBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 6
Width = 341
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
Style = csDropDownList
TabOrder = 0
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 38
Top = 99
Width = 355
OKButton.Name = 'OKButton'
HelpButton.Name = 'HelpButton'
CloseButton.Name = 'CloseButton'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
end
end
|
