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
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
object EditorMouseOptionsAdvFrame: TEditorMouseOptionsAdvFrame
Left = 0
Height = 420
Top = 0
Width = 610
Anchors = [akTop]
ClientHeight = 420
ClientWidth = 610
TabOrder = 0
Visible = False
DesignLeft = 246
DesignTop = 209
object ActionGrid: TStringGrid
Left = 135
Height = 243
Top = 46
Width = 475
Align = alClient
AutoEdit = False
ColCount = 10
ExtendedSelect = False
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goSmoothScroll, goHeaderHotTracking]
RowCount = 1
ScrollBars = ssAutoVertical
TabOrder = 0
TitleStyle = tsNative
OnCompareCells = ActionGridCompareCells
OnDblClick = UpdateButtonClick
OnHeaderClick = ActionGridHeaderClick
OnHeaderSized = ActionGridHeaderSized
OnMouseDown = ActionGridMouseDown
OnMouseMove = ActionGridMouseMove
OnMouseUp = ActionGridMouseUp
OnResize = ActionGridResize
OnSelection = ActionGridSelection
end
object ContextTree: TTreeView
Left = 0
Height = 243
Top = 46
Width = 130
Align = alLeft
AutoExpand = True
Constraints.MinWidth = 50
DefaultItemHeight = 18
ReadOnly = True
ShowButtons = False
ShowRoot = False
TabOrder = 1
OnChange = ContextTreeChange
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw]
end
object Splitter1: TSplitter
Left = 130
Height = 243
Top = 46
Width = 5
AutoSnap = False
end
object ToolBar1: TToolBar
Left = 0
Height = 46
Top = 0
Width = 610
AutoSize = True
ButtonHeight = 46
Caption = 'ToolBar1'
EdgeBorders = []
ShowCaptions = True
TabOrder = 3
object BtnImport: TToolButton
Left = 1
Top = 0
Caption = 'BtnImport'
OnClick = BtnImportClick
end
object BtnExport: TToolButton
Left = 70
Top = 0
Caption = 'BtnExport'
OnClick = BtnExportClick
end
object ToolButton3: TToolButton
Left = 139
Top = 0
Width = 5
Caption = 'ToolButton3'
Style = tbsDivider
end
object UpdateButton: TToolButton
Left = 144
Top = 0
Caption = 'UpdateButton'
OnClick = UpdateButtonClick
end
object AddNewButton: TToolButton
Left = 240
Top = 0
Caption = 'AddNewButton'
OnClick = AddNewButtonClick
end
object DelButton: TToolButton
Left = 340
Top = 0
Caption = 'DelButton'
OnClick = DelButtonClick
end
end
object OtherActionPanel: TPanel
Left = 0
Height = 126
Top = 294
Width = 610
Align = alBottom
ClientHeight = 126
ClientWidth = 610
TabOrder = 4
object Panel1: TPanel
Left = 1
Height = 26
Top = 1
Width = 608
Align = alTop
AutoSize = True
ClientHeight = 26
ClientWidth = 608
TabOrder = 0
object OtherActionLabel: TLabel
Left = 1
Height = 24
Top = 1
Width = 107
Align = alLeft
Caption = 'OtherActionLabel'
ParentColor = False
ParentShowHint = False
ShowHint = True
end
object OtherActToggleBox: TToggleBox
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 477
Height = 24
Top = 0
Width = 130
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'OtherActToggleBox'
Checked = True
OnChange = OtherActToggleBoxChange
State = cbChecked
TabOrder = 0
end
end
object OtherActionGrid: TStringGrid
Left = 1
Height = 98
Top = 27
Width = 608
Align = alClient
AutoEdit = False
ColCount = 12
Constraints.MinHeight = 40
ExtendedSelect = False
FixedCols = 0
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goSmoothScroll, goHeaderHotTracking]
RowCount = 1
ScrollBars = ssAutoVertical
TabOrder = 1
TitleStyle = tsNative
OnCompareCells = ActionGridCompareCells
OnHeaderClick = OtherActionGridHeaderClick
OnHeaderSized = OtherActionGridHeaderSized
OnMouseDown = OtherActionGridMouseDown
OnMouseMove = OtherActionGridMouseMove
OnMouseUp = OtherActionGridMouseUp
OnResize = OtherActionGridResize
OnSelectCell = OtherActionGridSelectCell
end
end
object Splitter2: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 289
Width = 610
Align = alBottom
MinSize = 40
ResizeAnchor = akBottom
end
object SaveDialog1: TSaveDialog
DefaultExt = '.xml'
Filter = 'xml|*.xml|any|*.*'
Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
left = 24
top = 184
end
object OpenDialog1: TOpenDialog
DefaultExt = '.xml'
Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 72
top = 184
end
end
|
