-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUFormViewToolbar.dfm
141 lines (141 loc) · 2.65 KB
/
UFormViewToolbar.dfm
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
object FormViewToolbar: TFormViewToolbar
Left = 197
Top = 219
ActiveControl = ListAvail
BorderStyle = bsDialog
Caption = 'Customize toolbar'
ClientHeight = 298
ClientWidth = 582
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object labAvail: TLabel
Left = 8
Top = 8
Width = 87
Height = 13
Caption = 'Available buttons:'
FocusControl = ListAvail
end
object labCurrent: TLabel
Left = 294
Top = 8
Width = 81
Height = 13
Caption = 'Current buttons:'
FocusControl = ListCurrent
end
object ListAvail: TListView
Left = 8
Top = 24
Width = 193
Height = 265
Columns = <
item
Caption = 'Command'
Width = 168
end>
HideSelection = False
ReadOnly = True
RowSelect = True
ShowColumnHeaders = False
TabOrder = 0
ViewStyle = vsReport
OnDblClick = btnAddClick
OnSelectItem = ListAvailSelectItem
end
object btnOk: TButton
Left = 498
Top = 24
Width = 75
Height = 23
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 4
end
object btnCancel: TButton
Left = 498
Top = 54
Width = 75
Height = 23
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 5
end
object ListCurrent: TListView
Left = 294
Top = 24
Width = 193
Height = 265
Columns = <
item
Caption = 'Command'
Width = 168
end>
HideSelection = False
ReadOnly = True
RowSelect = True
ShowColumnHeaders = False
TabOrder = 3
ViewStyle = vsReport
OnDblClick = btnRemoveClick
OnSelectItem = ListCurrentSelectItem
end
object btnAdd: TButton
Left = 210
Top = 24
Width = 75
Height = 23
Caption = 'Add ->'
TabOrder = 1
OnClick = btnAddClick
end
object btnRemove: TButton
Left = 210
Top = 54
Width = 75
Height = 23
Caption = '<- Remove'
TabOrder = 2
OnClick = btnRemoveClick
end
object btnReset: TButton
Left = 498
Top = 84
Width = 75
Height = 23
Caption = 'Reset'
TabOrder = 6
OnClick = btnResetClick
end
object btnUp: TButton
Left = 498
Top = 128
Width = 75
Height = 23
Caption = 'Up'
TabOrder = 7
OnClick = btnUpClick
end
object btnDown: TButton
Left = 498
Top = 158
Width = 75
Height = 23
Caption = 'Down'
TabOrder = 8
OnClick = btnDownClick
end
end