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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
object ColorsFrm: TColorsFrm
Left = 549
Height = 194
Top = 321
Width = 372
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Colors'
ClientHeight = 194
ClientWidth = 372
OnCreate = FormCreate
Position = poOwnerFormCenter
LCLVersion = '1.9.0.0'
object lbName: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 85
Height = 15
Top = 25
Width = 32
BorderSpacing.Left = 85
BorderSpacing.Top = 25
Caption = 'Name'
ParentColor = False
end
object lbDescription: TLabel
AnchorSideLeft.Control = lbName
AnchorSideTop.Control = lbName
AnchorSideTop.Side = asrBottom
Left = 85
Height = 15
Top = 60
Width = 60
BorderSpacing.Top = 20
Caption = 'Description'
ParentColor = False
end
object lbLicense: TLabel
AnchorSideLeft.Control = lbName
AnchorSideTop.Control = lbDescription
AnchorSideTop.Side = asrBottom
Left = 85
Height = 15
Top = 95
Width = 39
BorderSpacing.Top = 20
Caption = 'License'
ParentColor = False
end
object shName: TShape
AnchorSideLeft.Control = lbName
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbName
AnchorSideTop.Side = asrCenter
Left = 167
Height = 27
Top = 19
Width = 76
BorderSpacing.Left = 50
OnMouseUp = shNameMouseUp
end
object shDescription: TShape
Tag = 1
AnchorSideLeft.Control = lbName
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbDescription
AnchorSideTop.Side = asrCenter
Left = 167
Height = 27
Top = 54
Width = 76
BorderSpacing.Left = 50
OnMouseDown = shNameMouseUp
end
object shLicense: TShape
Tag = 2
AnchorSideLeft.Control = lbName
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbLicense
AnchorSideTop.Side = asrCenter
Left = 167
Height = 27
Top = 89
Width = 76
BorderSpacing.Left = 50
OnMouseDown = shNameMouseUp
end
object bp: TButtonPanel
Left = 6
Height = 34
Top = 154
Width = 360
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Restore defaults'
HelpButton.DefaultCaption = False
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object CD: TColorDialog
Color = clBlack
CustomColors.Strings = (
'ColorA=000000'
'ColorB=000080'
'ColorC=008000'
'ColorD=008080'
'ColorE=800000'
'ColorF=800080'
'ColorG=808000'
'ColorH=808080'
'ColorI=C0C0C0'
'ColorJ=0000FF'
'ColorK=00FF00'
'ColorL=00FFFF'
'ColorM=FF0000'
'ColorN=FF00FF'
'ColorO=FFFF00'
'ColorP=FFFFFF'
'ColorQ=C0DCC0'
'ColorR=F0CAA6'
'ColorS=F0FBFF'
'ColorT=A4A0A0'
)
left = 8
top = 112
end
end
|
