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
|
object TextConvListEditor: TTextConvListEditor
Left = 290
Height = 296
Top = 202
Width = 656
HorzScrollBar.Page = 655
VertScrollBar.Page = 295
ActiveControl = ToolsListBox
Caption = 'TextConvListEditor'
ClientHeight = 296
ClientWidth = 656
Constraints.MinHeight = 200
Constraints.MinWidth = 400
OnCreate = FormCreate
LCLVersion = '1.1'
object ToolsLabel: TLabel
Left = 12
Height = 15
Top = 9
Width = 64
Caption = 'ToolsLabel'
ParentColor = False
end
object ToolsListBox: TListBox
AnchorSideTop.Control = ToolsLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ToolsSplitter
AnchorSideBottom.Control = UpDownSplitter
Left = 0
Height = 169
Top = 26
Width = 232
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2
ItemHeight = 0
OnSelectionChange = ToolsListBoxSelectionChange
TabOrder = 0
end
object UpDownSplitter: TSplitter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 0
Height = 5
Top = 195
Width = 656
Align = alNone
Anchors = [akTop, akLeft, akRight]
Beveled = True
ResizeAnchor = akBottom
end
object ToolsPanel: TPanel
AnchorSideLeft.Control = ToolsSplitter
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = UpDownSplitter
Left = 236
Height = 195
Top = 0
Width = 420
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 6
ChildSizing.VerticalSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 195
ClientWidth = 420
TabOrder = 1
object AddToolButton: TButton
Left = 6
Height = 34
Top = 6
Width = 133
BorderSpacing.InnerBorder = 4
Caption = 'AddToolButton'
OnClick = AddToolButtonClick
TabOrder = 0
end
object DeleteToolButton: TButton
Left = 145
Height = 34
Top = 6
Width = 150
BorderSpacing.InnerBorder = 4
Caption = 'DeleteToolButton'
OnClick = DeleteToolButtonClick
TabOrder = 1
end
object MoveToolUpButton: TButton
Left = 6
Height = 34
Top = 46
Width = 133
BorderSpacing.InnerBorder = 4
Caption = 'MoveToolUpButton'
OnClick = MoveToolUpButtonClick
TabOrder = 2
end
object MoveToolDownButton: TButton
Left = 145
Height = 34
Top = 46
Width = 150
BorderSpacing.InnerBorder = 4
Caption = 'MoveToolDownButton'
OnClick = MoveToolDownButtonClick
TabOrder = 3
end
object CopyToolButton: TButton
Left = 6
Height = 34
Top = 86
Width = 133
BorderSpacing.InnerBorder = 4
Caption = 'CopyToolButton'
OnClick = CopyToolButtonClick
TabOrder = 4
end
object PasteButton: TButton
Left = 145
Height = 34
Top = 86
Width = 150
BorderSpacing.InnerBorder = 4
Caption = 'PasteButton'
OnClick = PasteButtonClick
TabOrder = 5
end
object CloneButton: TButton
Left = 6
Height = 34
Top = 126
Width = 133
BorderSpacing.InnerBorder = 4
Caption = 'CloneButton'
OnClick = CloneButtonClick
TabOrder = 6
end
end
object ToolsSplitter: TSplitter
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = UpDownSplitter
Left = 232
Height = 195
Top = 0
Width = 4
Align = alNone
Anchors = [akTop, akLeft, akBottom]
Beveled = True
end
end
|
