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
|
object PagesPropEditorFrm: TPagesPropEditorFrm
Left = 353
Height = 302
Top = 151
Width = 400
Caption = 'PagesPropEditorFrm'
ClientHeight = 302
ClientWidth = 400
Constraints.MinHeight = 160
Constraints.MinWidth = 180
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.7'
object TextGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnPanel
Left = 6
Height = 258
Top = 6
Width = 388
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClientHeight = 240
ClientWidth = 384
TabOrder = 0
object ListBox: TListBox
AnchorSideLeft.Control = TextGroupBox
AnchorSideTop.Control = TextGroupBox
AnchorSideRight.Control = AddButton
AnchorSideBottom.Control = TextGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 228
Top = 6
Width = 291
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = ListBoxSelectionChange
TabOrder = 0
end
object AddButton: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = TextGroupBox
AnchorSideRight.Side = asrBottom
Left = 303
Height = 23
Top = 6
Width = 75
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Add'
Constraints.MinWidth = 75
OnClick = AddButtonClick
TabOrder = 1
end
object RenameButton: TButton
AnchorSideLeft.Control = AddButton
AnchorSideTop.Control = AddButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AddButton
AnchorSideRight.Side = asrBottom
Left = 303
Height = 25
Top = 35
Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Rename'
OnClick = RenameButtonClick
TabOrder = 2
end
object DeleteButton: TButton
AnchorSideLeft.Control = AddButton
AnchorSideTop.Control = RenameButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AddButton
AnchorSideRight.Side = asrBottom
Left = 303
Height = 25
Top = 66
Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Delete'
OnClick = DeleteButtonClick
TabOrder = 3
end
object MoveUpButton: TButton
AnchorSideLeft.Control = AddButton
AnchorSideTop.Control = DeleteButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AddButton
AnchorSideRight.Side = asrBottom
Left = 303
Height = 25
Top = 97
Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Move Up'
OnClick = MoveUpButtonClick
TabOrder = 4
end
object MoveDownButton: TButton
AnchorSideLeft.Control = AddButton
AnchorSideTop.Control = MoveUpButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AddButton
AnchorSideRight.Side = asrBottom
Left = 303
Height = 25
Top = 128
Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Move Down'
OnClick = MoveDownButtonClick
TabOrder = 5
end
end
object BtnPanel: TButtonPanel
Left = 6
Height = 26
Top = 270
Width = 388
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
end
|
