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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
object Form1: TForm1
Left = 434
Height = 224
Top = 172
Width = 608
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
ActiveControl = StringGrid1
Caption = 'StringGrid Editor'
ClientHeight = 224
ClientWidth = 608
OnCreate = FormCreate
LCLVersion = '1.4.0.1'
object StringGrid1: TStringGrid
Left = 16
Height = 136
Top = 53
Width = 576
ColCount = 8
Columns = <
item
Title.Caption = 'Auto'
end
item
Title.Caption = 'EditMask'
end
item
ButtonStyle = cbsButton
Title.Caption = 'Button'
end
item
ButtonStyle = cbsButtonColumn
Title.Caption = 'ButtonColumn'
Width = 90
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'CheckBox'
end
item
ButtonStyle = cbsEllipsis
Title.Caption = 'Ellipsis'
end
item
ButtonStyle = cbsNone
Title.Caption = 'None'
Width = 80
end
item
ButtonStyle = cbsPickList
PickList.Strings = (
'Cow'
'Dog'
'Pig'
'Goat'
'Elephant'
)
Title.Caption = 'PickList'
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs, goAlwaysShowEditor, goSmoothScroll, goCellHints]
ParentShowHint = False
ScrollBars = ssBoth
ShowHint = True
TabOrder = 0
OnCheckboxToggled = StringGrid1CheckboxToggled
OnDrawCell = StringGrid1DrawCell
OnButtonClick = StringGrid1ButtonClick
OnGetCellHint = StringGrid1GetCellHint
OnGetCheckboxState = StringGrid1GetCheckboxState
OnGetEditMask = StringGrid1GetEditMask
OnSetEditText = StringGrid1SetEditText
OnValidateEntry = StringGrid1ValidateEntry
Cells = (
1
0
0
'Name'
)
end
object Edit1: TEdit
AnchorSideRight.Side = asrBottom
Left = 474
Height = 27
Hint = 'Change ''None'' text'
Top = 192
Width = 120
Anchors = [akTop]
AutoSize = False
OnChange = Edit1Change
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object Label1: TLabel
Left = 16
Height = 34
Top = 8
Width = 580
Caption = 'The stringgrid below shows the following button types:'#13#10'Auto, Auto with Editmask, Button, ButtonColumn, CheckBox, Ellipsis, None, and Picklist.'
ParentColor = False
WordWrap = True
end
object Label2: TLabel
AnchorSideRight.Control = Edit1
Left = 307
Height = 17
Top = 198
Width = 160
Anchors = [akTop]
AutoSize = False
Caption = 'Change text in this box:'
ParentColor = False
end
object Label3: TLabel
Left = 16
Height = 17
Top = 198
Width = 91
AutoSize = False
Caption = 'SetEdit text: '
ParentColor = False
end
object Label4: TLabel
Left = 112
Height = 17
Top = 198
Width = 140
AutoSize = False
Caption = 'Auto && EditMask text'
ParentColor = False
end
object ColorDialog1: 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 = 24
top = 120
end
object CalculatorDialog1: TCalculatorDialog
CalculatorLayout = clNormal
Value = 0
left = 136
top = 120
end
end
|
