source: trunk/Form/UFormMain.lfm@ 24

Last change on this file since 24 was 24, checked in by chronos, 9 years ago
  • Modified: List of scan operations are now automatically enlarged if entire windows is enlarged. Also added splitter between.
File size: 11.1 KB
Line 
1object FormMain: TFormMain
2 Left = 433
3 Height = 1072
4 Top = 204
5 Width = 1703
6 Caption = 'CoolDisk'
7 ClientHeight = 1040
8 ClientWidth = 1703
9 Menu = MainMenu1
10 OnClose = FormClose
11 OnCloseQuery = FormCloseQuery
12 OnCreate = FormCreate
13 OnDestroy = FormDestroy
14 OnShow = FormShow
15 LCLVersion = '1.7'
16 object ToolBar1: TToolBar
17 Left = 0
18 Height = 26
19 Top = 0
20 Width = 1703
21 Caption = 'ToolBar1'
22 Images = Core.ImageList1
23 TabOrder = 0
24 object ToolButton1: TToolButton
25 Left = 1
26 Top = 2
27 Action = AScanStart
28 end
29 object ToolButton2: TToolButton
30 Left = 24
31 Top = 2
32 Action = AScanStop
33 end
34 object ToolButton3: TToolButton
35 Left = 47
36 Top = 2
37 Action = AScanContinue
38 end
39 end
40 object Panel1: TPanel
41 Left = 597
42 Height = 1014
43 Top = 26
44 Width = 1106
45 Align = alClient
46 BevelOuter = bvNone
47 ClientHeight = 1014
48 ClientWidth = 1106
49 TabOrder = 1
50 object Image1: TImage
51 Left = 8
52 Height = 998
53 Top = 8
54 Width = 1090
55 Align = alClient
56 BorderSpacing.Around = 8
57 OnResize = Image1Resize
58 end
59 end
60 object Panel2: TPanel
61 Left = 0
62 Height = 1014
63 Top = 26
64 Width = 592
65 Align = alLeft
66 BevelOuter = bvNone
67 ClientHeight = 1014
68 ClientWidth = 592
69 TabOrder = 2
70 object Panel3: TPanel
71 Left = 0
72 Height = 379
73 Top = 0
74 Width = 592
75 Align = alTop
76 BevelOuter = bvNone
77 ClientHeight = 379
78 ClientWidth = 592
79 TabOrder = 0
80 object Label1: TLabel
81 Left = 16
82 Height = 24
83 Top = 179
84 Width = 101
85 Caption = 'Sector size:'
86 ParentColor = False
87 end
88 object LabelSectorSize: TLabel
89 Left = 257
90 Height = 24
91 Top = 179
92 Width = 10
93 Caption = ' '
94 ParentColor = False
95 end
96 object LabelSectorCount: TLabel
97 Left = 257
98 Height = 24
99 Top = 208
100 Width = 10
101 Caption = ' '
102 ParentColor = False
103 end
104 object Label2: TLabel
105 Left = 16
106 Height = 24
107 Top = 208
108 Width = 119
109 Caption = 'Sector count:'
110 ParentColor = False
111 end
112 object LabelBlockCurrent: TLabel
113 Left = 257
114 Height = 24
115 Top = 240
116 Width = 10
117 Caption = ' '
118 ParentColor = False
119 end
120 object Label3: TLabel
121 Left = 16
122 Height = 24
123 Top = 240
124 Width = 136
125 Caption = 'Current sector:'
126 ParentColor = False
127 end
128 object Label4: TLabel
129 Left = 16
130 Height = 24
131 Top = 272
132 Width = 162
133 Caption = 'Damaged sectors:'
134 ParentColor = False
135 end
136 object LabelBlockDamaged: TLabel
137 Left = 257
138 Height = 24
139 Top = 268
140 Width = 10
141 Caption = ' '
142 ParentColor = False
143 end
144 object Label5: TLabel
145 Left = 16
146 Height = 24
147 Top = 300
148 Width = 122
149 Caption = 'Elapsed time:'
150 ParentColor = False
151 end
152 object LabelElapsedTime: TLabel
153 Left = 257
154 Height = 24
155 Top = 296
156 Width = 10
157 Caption = ' '
158 ParentColor = False
159 end
160 object Label6: TLabel
161 Left = 16
162 Height = 24
163 Top = 328
164 Width = 142
165 Caption = 'Estimated time:'
166 ParentColor = False
167 end
168 object LabelEstimatedTime: TLabel
169 Left = 258
170 Height = 24
171 Top = 324
172 Width = 10
173 Caption = ' '
174 ParentColor = False
175 end
176 object Label7: TLabel
177 Left = 16
178 Height = 24
179 Top = 148
180 Width = 160
181 Caption = 'Sectors per Block:'
182 ParentColor = False
183 end
184 object LabelSectorPerBlock: TLabel
185 Left = 257
186 Height = 24
187 Top = 144
188 Width = 10
189 Caption = ' '
190 ParentColor = False
191 end
192 object LabelIOSpeed: TLabel
193 Left = 257
194 Height = 24
195 Top = 352
196 Width = 10
197 Caption = ' '
198 ParentColor = False
199 end
200 object Label8: TLabel
201 Left = 16
202 Height = 24
203 Top = 356
204 Width = 94
205 Caption = 'I/O speed:'
206 ParentColor = False
207 end
208 object Label10: TLabel
209 Left = 16
210 Height = 24
211 Top = 116
212 Width = 40
213 Caption = 'Size:'
214 ParentColor = False
215 end
216 object LabelSize: TLabel
217 Left = 257
218 Height = 24
219 Top = 112
220 Width = 10
221 Caption = ' '
222 ParentColor = False
223 end
224 object ButtonScan: TButton
225 Left = 16
226 Height = 25
227 Top = 72
228 Width = 75
229 Action = AScanStart
230 TabOrder = 0
231 end
232 object ButtonScan1: TButton
233 Left = 464
234 Height = 25
235 Top = 24
236 Width = 120
237 Action = AProjectOptions
238 Anchors = [akTop, akRight]
239 TabOrder = 1
240 end
241 object ButtonScan2: TButton
242 Left = 104
243 Height = 25
244 Top = 72
245 Width = 75
246 Action = AScanStop
247 TabOrder = 2
248 end
249 object Button2: TButton
250 Left = 192
251 Height = 25
252 Top = 72
253 Width = 107
254 Action = AScanContinue
255 TabOrder = 3
256 end
257 object Button3: TButton
258 Left = 312
259 Height = 25
260 Top = 72
261 Width = 112
262 Action = AOperationOptions
263 TabOrder = 4
264 end
265 object ComboBoxDrive: TComboBox
266 Left = 8
267 Height = 38
268 Top = 16
269 Width = 440
270 Anchors = [akTop, akLeft, akRight]
271 ItemHeight = 0
272 OnChange = ComboBoxDriveChange
273 Style = csDropDownList
274 TabOrder = 5
275 end
276 end
277 object Splitter2: TSplitter
278 Cursor = crVSplit
279 Left = 0
280 Height = 5
281 Top = 379
282 Width = 592
283 Align = alTop
284 ResizeAnchor = akTop
285 end
286 object Panel4: TPanel
287 Left = 0
288 Height = 630
289 Top = 384
290 Width = 592
291 Align = alClient
292 BevelOuter = bvNone
293 ClientHeight = 630
294 ClientWidth = 592
295 TabOrder = 2
296 object ListView1: TListView
297 Left = 16
298 Height = 533
299 Top = 48
300 Width = 569
301 Anchors = [akTop, akLeft, akRight, akBottom]
302 Columns = <
303 item
304 Caption = 'Name'
305 Width = 100
306 end
307 item
308 Caption = 'Time start'
309 Width = 100
310 end
311 item
312 Caption = 'Time end'
313 Width = 100
314 end
315 item
316 Caption = 'First sector'
317 Width = 100
318 end
319 item
320 Caption = 'Last sector'
321 Width = 347
322 end>
323 OwnerData = True
324 PopupMenu = PopupMenu1
325 ReadOnly = True
326 RowSelect = True
327 TabOrder = 0
328 ViewStyle = vsReport
329 OnData = ListView1Data
330 OnSelectItem = ListView1SelectItem
331 end
332 object Label11: TLabel
333 Left = 16
334 Height = 24
335 Top = 16
336 Width = 107
337 Caption = 'Operations:'
338 ParentColor = False
339 end
340 object Button1: TButton
341 Left = 19
342 Height = 25
343 Top = 592
344 Width = 104
345 Action = AOperationAdd
346 Anchors = [akLeft, akBottom]
347 TabOrder = 1
348 end
349 object Button4: TButton
350 Left = 144
351 Height = 25
352 Top = 592
353 Width = 115
354 Action = AOperationRemove
355 Anchors = [akLeft, akBottom]
356 TabOrder = 2
357 end
358 end
359 end
360 object Splitter1: TSplitter
361 Left = 592
362 Height = 1014
363 Top = 26
364 Width = 5
365 end
366 object Timer1: TTimer
367 Interval = 500
368 OnTimer = Timer1Timer
369 left = 672
370 top = 224
371 end
372 object ActionList1: TActionList
373 Images = Core.ImageList1
374 left = 672
375 top = 291
376 object AScanStart: TAction
377 Caption = 'Start'
378 OnExecute = AScanStartExecute
379 end
380 object AScanStop: TAction
381 Caption = 'Stop'
382 OnExecute = AScanStopExecute
383 end
384 object AScanContinue: TAction
385 Caption = 'Continue'
386 OnExecute = AScanContinueExecute
387 end
388 object AProjectOptions: TAction
389 Caption = 'Options'
390 OnExecute = AProjectOptionsExecute
391 end
392 object ADriveSelect: TAction
393 Caption = 'Select...'
394 end
395 object AExit: TAction
396 Caption = 'Exit'
397 OnExecute = AExitExecute
398 end
399 object AFileSaveAs: TAction
400 Caption = 'Save as...'
401 OnExecute = AFileSaveAsExecute
402 end
403 object AFileOpen: TAction
404 Caption = 'Open...'
405 OnExecute = AFileOpenExecute
406 end
407 object AFileSave: TAction
408 Caption = 'Save'
409 OnExecute = AFileSaveExecute
410 end
411 object AFileNew: TAction
412 Caption = 'New'
413 OnExecute = AFileNewExecute
414 end
415 object AFileClose: TAction
416 Caption = 'Close'
417 OnExecute = AFileCloseExecute
418 end
419 object AViewToolbar: TAction
420 Caption = 'Toolbar'
421 OnExecute = AViewToolbarExecute
422 end
423 object AOperationOptions: TAction
424 Caption = 'Options'
425 OnExecute = AOperationOptionsExecute
426 end
427 object AOperationRemove: TAction
428 Caption = 'Remove'
429 OnExecute = AOperationRemoveExecute
430 end
431 object AOperationAdd: TAction
432 Caption = 'Add'
433 OnExecute = AOperationAddExecute
434 end
435 end
436 object OpenDialog1: TOpenDialog
437 left = 672
438 top = 360
439 end
440 object SaveDialog1: TSaveDialog
441 left = 672
442 top = 432
443 end
444 object MainMenu1: TMainMenu
445 Images = Core.ImageList1
446 left = 672
447 top = 504
448 object MenuItem1: TMenuItem
449 Caption = 'File'
450 object MenuItem10: TMenuItem
451 Action = AFileNew
452 end
453 object MenuItem2: TMenuItem
454 Action = AFileOpen
455 end
456 object MenuItemOpenRecent: TMenuItem
457 Caption = 'Open recent'
458 end
459 object MenuItem9: TMenuItem
460 Action = AFileSave
461 end
462 object MenuItem3: TMenuItem
463 Action = AFileSaveAs
464 end
465 object MenuItem11: TMenuItem
466 Action = AFileClose
467 end
468 object MenuItem15: TMenuItem
469 Action = AProjectOptions
470 end
471 object MenuItem12: TMenuItem
472 Caption = '-'
473 end
474 object MenuItem4: TMenuItem
475 Action = AExit
476 end
477 end
478 object MenuItem5: TMenuItem
479 Caption = 'Scan'
480 object MenuItem6: TMenuItem
481 Action = AScanStart
482 end
483 object MenuItem7: TMenuItem
484 Action = AScanStop
485 end
486 object MenuItem13: TMenuItem
487 Action = AScanContinue
488 end
489 object MenuItem14: TMenuItem
490 Caption = '-'
491 end
492 object MenuItem8: TMenuItem
493 Action = AOperationOptions
494 end
495 end
496 object MenuItem16: TMenuItem
497 Caption = 'View'
498 object MenuItem17: TMenuItem
499 Action = AViewToolbar
500 end
501 end
502 end
503 object LastOpenedList1: TLastOpenedList
504 MaxCount = 10
505 left = 672
506 top = 144
507 end
508 object PopupMenu1: TPopupMenu
509 left = 320
510 top = 664
511 object MenuItem18: TMenuItem
512 Action = AOperationAdd
513 end
514 object MenuItem19: TMenuItem
515 Action = AOperationRemove
516 end
517 end
518end
Note: See TracBrowser for help on using the repository browser.