-
Notifications
You must be signed in to change notification settings - Fork 5
/
FormD64ExplorerMain.lfm
420 lines (420 loc) · 12.2 KB
/
FormD64ExplorerMain.lfm
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
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
object D64ExplorerMainForm: TD64ExplorerMainForm
Left = 421
Height = 749
Top = 200
Width = 1026
Caption = 'D64 Explorer'
ClientHeight = 729
ClientWidth = 1026
Menu = D64ExplorerMainDMod.MainMenu1
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDropFiles = FormDropFiles
OnResize = FormResize
Position = poDefaultPosOnly
LCLVersion = '2.0.10.0'
object CoolBar2: TCoolBar
Left = 0
Height = 697
Top = 32
Width = 56
Align = alLeft
Bands = <
item
Control = Panel1
FixedSize = True
ParentColor = False
Width = 196
end>
Color = clMenuBar
EdgeBorders = [ebLeft, ebRight, ebBottom]
HorizontalSpacing = 4
ParentColor = False
Vertical = True
VerticalSpacing = 0
object Panel1: TPanel
AnchorSideLeft.Control = CoolBar2
AnchorSideTop.Control = CoolBar2
Left = 12
Height = 536
Top = 20
Width = 52
AutoSize = True
BorderSpacing.Left = 10
BorderSpacing.Top = 20
BevelOuter = bvNone
ClientHeight = 536
ClientWidth = 52
TabOrder = 0
OnPaint = Panel1Paint
object SpeedButton1: TSpeedButton
Left = 0
Height = 52
Top = 0
Width = 52
Action = D64ExplorerMainDMod.ActTaskLibrary
Align = alTop
AllowAllUp = True
Flat = True
Font.Color = clAqua
GroupIndex = 1
Images = D64ExplorerMainDMod.ImgLstTasks
ImageIndex = 4
OnPaint = SpeedButton1Paint
ShowCaption = False
ShowHint = True
ParentFont = False
ParentShowHint = False
end
object SpeedButton2: TSpeedButton
Left = 0
Height = 52
Top = 52
Width = 52
Action = D64ExplorerMainDMod.ActTaskFManager
Align = alTop
AllowAllUp = True
Flat = True
GroupIndex = 1
Images = D64ExplorerMainDMod.ImgLstTasks
ImageIndex = 0
OnPaint = SpeedButton1Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object SpeedButton7: TSpeedButton
Left = 0
Height = 52
Top = 104
Width = 52
Action = D64ExplorerMainDMod.ActTaskFInspector
Align = alTop
AllowAllUp = True
Flat = True
GroupIndex = 1
Images = D64ExplorerMainDMod.ImgLstTasks
ImageIndex = 1
OnPaint = SpeedButton1Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object Panel5: TPanel
Left = 0
Height = 224
Top = 312
Width = 52
Align = alTop
BevelOuter = bvNone
TabOrder = 0
OnPaint = Panel5Paint
end
object SpeedButton9: TSpeedButton
Left = 0
Height = 52
Top = 156
Width = 52
Action = D64ExplorerMainDMod.ActTaskSectView
Align = alTop
AllowAllUp = True
Flat = True
GroupIndex = 1
Images = D64ExplorerMainDMod.ImgLstTasks
ImageIndex = 5
OnPaint = SpeedButton1Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object SpeedButton10: TSpeedButton
Left = 0
Height = 52
Top = 208
Width = 52
Action = D64ExplorerMainDMod.ActViewBAMView
Align = alTop
AllowAllUp = True
Flat = True
GroupIndex = 1
Images = D64ExplorerMainDMod.ImgLstTasks
ImageIndex = 7
OnPaint = SpeedButton1Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object SpeedButton11: TSpeedButton
Left = 0
Height = 52
Top = 260
Width = 52
Action = D64ExplorerMainDMod.ActViewDirView
Align = alTop
AllowAllUp = True
Flat = True
GroupIndex = 1
Images = D64ExplorerMainDMod.ImgLstTasks
ImageIndex = 6
OnPaint = SpeedButton1Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
end
end
object Panel3: TPanel
Left = 56
Height = 697
Top = 32
Width = 970
Align = alClient
BevelOuter = bvNone
ClientHeight = 697
ClientWidth = 970
ParentBackground = False
ParentColor = False
TabOrder = 1
object Panel4: TPanel
Left = 0
Height = 28
Top = 0
Width = 970
Align = alTop
BevelOuter = bvNone
ClientHeight = 28
ClientWidth = 970
TabOrder = 0
object PaintBox1: TPaintBox
Left = 0
Height = 28
Top = 0
Width = 970
Align = alClient
Color = clBackground
ParentColor = False
OnPaint = PaintBox1Paint
end
object Label1: TLabel
Left = 8
Height = 15
Top = 5
Width = 34
BorderSpacing.Left = 8
Caption = 'Label1'
Font.Color = clCaptionText
Layout = tlCenter
ParentColor = False
ParentFont = False
end
end
object Panel6: TPanel
Left = 4
Height = 36
Top = 28
Width = 966
Align = alTop
AutoSize = True
BorderSpacing.Left = 4
BevelOuter = bvNone
ClientHeight = 36
ClientWidth = 966
TabOrder = 1
object CoolBar1: TCoolBar
Left = 0
Height = 36
Top = 0
Width = 966
AutoSize = True
BandBorderStyle = bsNone
BandMaximize = bmDblClick
Bands = <
item
Control = Panel2
Width = 150
end>
Color = clMenuBar
HorizontalSpacing = 2
ParentColor = False
VerticalSpacing = 2
object Panel2: TPanel
AnchorSideLeft.Control = CoolBar1
AnchorSideTop.Control = CoolBar1
Left = 18
Height = 28
Top = 4
Width = 130
BorderSpacing.Left = 16
BorderSpacing.Top = 2
BevelOuter = bvNone
ClientHeight = 28
ClientWidth = 130
Constraints.MaxHeight = 28
Constraints.MaxWidth = 130
TabOrder = 0
object SpeedButton3: TSpeedButton
Left = 0
Height = 28
Top = 0
Width = 29
Action = D64ExplorerMainDMod.ActFileNew
Align = alLeft
Flat = True
Images = D64ExplorerMainDMod.ImgLstActionsMed
ImageIndex = 0
OnPaint = SpeedButton3Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object SpeedButton4: TSpeedButton
Left = 33
Height = 28
Top = 0
Width = 29
Action = D64ExplorerMainDMod.ActFileOpen
Align = alLeft
Flat = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000010000000100000001000000010000000100000001000000010000
00010000000100000001000000010000000100000001000000000000000D0000
005700000099000000A0000000A0000000A0000000A0000000A0000000A00000
00A0000000A0000000A0000000A00000009E000000540000000200000066084B
53FE0B9BA4FF06161DFE0B98A2FF084850FE08444DFE0B96A0FF06161CFE0A84
8CFF09525AFE07323AFE0A8C95FF051015FE000000C000000004000000660930
37FD0C828AFF44B7BCFF5F7279FF61D3D6FF5E8289FF5E9DA3FF5DC1C7FF5969
70FF5ABFC4FF3C7179FF095B64FF0A969FFF000000C000000004000000660FC3
C5FF0A4950FF9CBFC4FFE4E0E4FFE1DEE1FFCBC9D9FFB1AFD4FFC6C4D5FFD6D3
D6FFD1CDD1FF8CC3C8FF09555DFF083D45FE000000C00000000400000066092A
32FD0FDADCFFA0AEB4FFE8E5E8FF9B99DDFF5252E1FF5150E2FF4D4DD9FF9594
D1FFD6D3D6FF8D949AFF0CBAC3FF09555DFE000000C000000004000000660E91
96FE0A2F37FFA6DFE2FFC7C4DEFF5959EDFF5857EBFF5555E7FF5252E4FF4D4D
DAFFC4C2D6FF91C7CCFF08262FFF0B929BFF000000C000000004000000660E96
9AFE0FA7ABFFA9B4B9FFADABE8FF5E5DF3FF5C5CEFFF5A5AECFF5555E7FF5150
E2FFA7A6D7FF93B5BAFF0DB1B9FF071820FD000000C000000004000000660A29
33FD0E9A9FFFAED8DBFFC3C1E3FF6262F9FF6060F4FF5C5CEFFF5857EBFF5353
E4FFC1BEDCFF94A6ACFF0A747FFF0C9DA7FF000000C0000000040000006612C4
C7FF0C4048FFB1D9DCFFF9F5F9FF9290EFFF6262F9FF5E5DF3FF5959EFFF8B89
E3FFE1DDE1FF97D5D9FF094A53FF094F58FE000000C000000004000000660B38
40FD12DEE0FFB0BFC2FFFFFDFFFFF9F6F9FFBFBCE5FFADABE8FFBCB9E1FFE6E2
E6FFE4E0E4FF97A0A5FF0DCDD8FF094952FE000000C000000004000000660F7E
85FE0C3842FF5FD8DAFF869EA3FF87C4C7FF86C6CBFF819399FF80D3D7FF7A93
99FF77AAAFFF50AEB5FF092B35FF0CA5AFFF000000AE00000003000000630E77
7BFE0C4A51FD0A353CFD0F9094FE070F17FC0D7E82FE0B4D52FD08282EFD0D94
97FE06131AFC0B7176FE0A5B5FFE050F14FD0000006900000000000000060000
002F0000002F0000002F0000002F0000002F0000002F0000002F0000002F0000
002F0000002F0000002F0000002F0000002F0000000600000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
Images = D64ExplorerMainDMod.ImgLstActionsMed
ImageIndex = 1
OnPaint = SpeedButton3Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object SpeedButton5: TSpeedButton
Left = 66
Height = 28
Top = 0
Width = 29
Action = D64ExplorerMainDMod.ActFileSave
Align = alLeft
Flat = True
Images = D64ExplorerMainDMod.ImgLstActionsMed
ImageIndex = 2
OnPaint = SpeedButton3Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object SpeedButton6: TSpeedButton
Left = 95
Height = 28
Top = 0
Width = 29
Action = D64ExplorerMainDMod.ActFileSaveAs
Align = alLeft
Flat = True
Images = D64ExplorerMainDMod.ImgLstActionsMed
ImageIndex = 3
OnPaint = SpeedButton3Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
object Bevel1: TBevel
Left = 31
Height = 28
Top = 0
Width = 2
Align = alLeft
BorderSpacing.Left = 2
Shape = bsLeftLine
end
object Bevel2: TBevel
Left = 64
Height = 28
Top = 0
Width = 2
Align = alLeft
BorderSpacing.Left = 2
Shape = bsLeftLine
end
end
end
end
end
object Panel7: TPanel
Left = 0
Height = 32
Top = 0
Width = 1026
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 32
ClientWidth = 1026
TabOrder = 2
object CoolBar3: TCoolBar
Left = 0
Height = 32
Top = 0
Width = 997
Align = alClient
AutoSize = True
BandBorderStyle = bsNone
Bands = <>
Constraints.MaxHeight = 32
Constraints.MinHeight = 32
EdgeBorders = [ebLeft, ebTop, ebRight]
FixedSize = True
FixedOrder = True
OnResize = CoolBar3Resize
end
object SpeedButton8: TSpeedButton
Left = 997
Height = 28
Top = 2
Width = 29
Action = D64ExplorerMainDMod.ActFileClose
Align = alRight
BorderSpacing.Top = 2
BorderSpacing.Bottom = 2
Flat = True
Images = D64ExplorerMainDMod.ImgLstActionsMed
ImageIndex = 19
OnPaint = SpeedButton3Paint
ShowCaption = False
ShowHint = True
ParentShowHint = False
end
end
end