-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfrmTapeMgmt.dfm
216 lines (216 loc) · 4.38 KB
/
frmTapeMgmt.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
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
207
208
209
210
211
212
213
214
215
216
object fTapeMgmt: TfTapeMgmt
Left = 177
Top = 123
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = 'NewBrain Tape Management'
ClientHeight = 442
ClientWidth = 241
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 241
Height = 401
Align = alLeft
TabOrder = 0
object Label1: TLabel
Left = 80
Top = 8
Width = 68
Height = 24
Caption = 'TAPES'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ListBox1: TListBox
Left = 1
Top = 40
Width = 239
Height = 360
Align = alBottom
ItemHeight = 13
TabOrder = 0
OnClick = ListBox1Click
OnDblClick = ListBox1DblClick
OnKeyPress = ListBox1KeyPress
end
end
object Panel2: TPanel
Left = 0
Top = 401
Width = 241
Height = 41
Align = alBottom
TabOrder = 1
ExplicitWidth = 242
object Label4: TLabel
Left = 352
Top = 1
Width = 344
Height = 39
Alignment = taCenter
Caption =
'Move AVAILABLE FILES to Tape CONTENT.'#13#10'You can move CONTENT file' +
's up or down to change their order on tape.'#13#10'When you are done p' +
'ress Save.'
end
object Button1: TButton
Left = 8
Top = 8
Width = 75
Height = 25
Caption = 'Select'
ModalResult = 1
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 96
Top = 8
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
object Button10: TButton
Left = 178
Top = 8
Width = 59
Height = 25
Caption = 'MGMT -->'
TabOrder = 2
OnClick = Button10Click
end
end
object Panel3: TPanel
Left = 241
Top = 0
Width = 0
Height = 401
Align = alClient
TabOrder = 2
ExplicitWidth = 1
object Label2: TLabel
Left = 56
Top = 8
Width = 101
Height = 24
Caption = 'CONTENT'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 352
Top = 8
Width = 173
Height = 24
Caption = 'AVAILABLE FILES'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ListBox2: TListBox
Left = 3
Top = 40
Width = 228
Height = 359
ItemHeight = 13
TabOrder = 0
end
object Button3: TButton
Left = 237
Top = 48
Width = 75
Height = 25
Caption = 'Move Up'
TabOrder = 1
OnClick = Button3Click
end
object Button4: TButton
Left = 237
Top = 72
Width = 75
Height = 25
Caption = 'Move Down'
TabOrder = 2
OnClick = Button4Click
end
object Button5: TButton
Left = 237
Top = 96
Width = 75
Height = 25
Caption = 'Save'
TabOrder = 3
OnClick = Button5Click
end
object ListBox3: TListBox
Left = 319
Top = 40
Width = 230
Height = 359
ItemHeight = 13
TabOrder = 4
end
object Button6: TButton
Left = 260
Top = 183
Width = 25
Height = 25
Caption = '<'
TabOrder = 5
OnClick = Button6Click
end
object Button7: TButton
Left = 260
Top = 215
Width = 25
Height = 25
Caption = '>'
TabOrder = 6
OnClick = Button7Click
end
object Button8: TButton
Left = 260
Top = 151
Width = 25
Height = 25
Caption = '<<'
TabOrder = 7
OnClick = Button8Click
end
object Button9: TButton
Left = 260
Top = 247
Width = 25
Height = 25
Caption = '>>'
TabOrder = 8
OnClick = Button9Click
end
end
end