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
|
object DBGridColumnsPropertyEditorForm: TDBGridColumnsPropertyEditorForm
Left = 637
Height = 300
Top = 48
Width = 379
HorzScrollBar.Page = 189
VertScrollBar.Page = 299
BorderStyle = bsSizeToolWin
Caption = 'DBGridColumnsPropertyEditorForm'
ClientHeight = 300
ClientWidth = 379
Constraints.MinHeight = 100
Constraints.MinWidth = 190
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poDefaultPosOnly
LCLVersion = '1.3'
object ToolBar1: TToolBar
Left = 0
Height = 82
Top = 0
Width = 379
AutoSize = True
ButtonHeight = 40
ButtonWidth = 44
Caption = 'ToolBar1'
ShowCaptions = True
TabOrder = 0
object AddButton: TToolButton
Left = 1
Top = 2
Action = actAdd
ParentShowHint = False
ShowHint = True
end
object DeleteButton: TToolButton
Left = 45
Top = 2
Action = actDel
ParentShowHint = False
ShowHint = True
end
object DividerToolButton: TToolButton
Left = 89
Top = 2
Width = 5
Caption = 'DividerToolButton'
Style = tbsDivider
end
object MoveUpButton: TToolButton
Left = 94
Top = 2
Action = actMoveUp
ParentShowHint = False
ShowHint = True
end
object MoveDownButton: TToolButton
Left = 138
Top = 2
Action = actMoveDown
ParentShowHint = False
ShowHint = True
end
object btAddFlds: TToolButton
Left = 187
Top = 2
Action = actAddFields
end
object DividerToolButton1: TToolButton
Left = 182
Top = 2
Width = 5
Caption = 'DividerToolButton1'
Style = tbsDivider
Visible = False
end
object DividerToolButton2: TToolButton
Left = 256
Top = 2
Width = 5
Caption = 'DividerToolButton2'
Style = tbsDivider
Visible = False
end
object ToolButton1: TToolButton
Left = 261
Top = 2
Action = actDeleteAll
end
object DividerToolButton3: TToolButton
Left = 324
Top = 2
Width = 5
Caption = 'DividerToolButton3'
Style = tbsDivider
Visible = False
end
object ToolButton2: TToolButton
Left = 1
Top = 42
Action = actFetchLabels
end
end
object CollectionListBox: TListBox
Left = 0
Height = 218
Top = 82
Width = 379
Align = alClient
ItemHeight = 0
OnClick = CollectionListBoxClick
ScrollWidth = 377
TabOrder = 1
TopIndex = -1
end
object ActionList1: TActionList
left = 61
top = 109
object actAdd: TAction
Caption = 'Add'
OnExecute = actAddExecute
ShortCut = 45
end
object actDel: TAction
Caption = 'Del'
OnExecute = actDelExecute
ShortCut = 46
end
object actMoveUp: TAction
Caption = 'Up'
OnExecute = actMoveUpExecute
end
object actMoveDown: TAction
Caption = 'Down'
OnExecute = actMoveDownExecute
end
object actAddFields: TAction
Caption = 'Add Fields'
OnExecute = actAddFieldsExecute
ShortCut = 16449
end
object actDeleteAll: TAction
Caption = 'Delete all'
OnExecute = actDeleteAllExecute
end
object actFetchLabels: TAction
Caption = 'Fetch Labels'
OnExecute = actFetchLabelsExecute
end
end
end
|
