source: trunk/Forms/UFormMain.lfm

Last change on this file was 41, checked in by chronos, 6 years ago
  • Modified: Build under Lazarus 2.0.
  • Modified: Used .lrj files instead of .lrt files.
  • Modified: Removed TemplateGenerics package.
File size: 13.9 KB
Line 
1object FormMain: TFormMain
2 Left = 221
3 Height = 1108
4 Top = 169
5 Width = 1654
6 Caption = 'CoolDisk'
7 ClientHeight = 1074
8 ClientWidth = 1654
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 OnClose = FormClose
12 OnCloseQuery = FormCloseQuery
13 OnCreate = FormCreate
14 OnDestroy = FormDestroy
15 OnShow = FormShow
16 LCLVersion = '2.0.0.4'
17 object ToolBar1: TToolBar
18 Left = 0
19 Height = 39
20 Top = 0
21 Width = 1654
22 Images = Core.ImageList1
23 ParentFont = False
24 TabOrder = 0
25 object ToolButton1: TToolButton
26 Left = 1
27 Top = 2
28 Action = AScanStart
29 end
30 object ToolButton2: TToolButton
31 Left = 36
32 Top = 2
33 Action = AScanStop
34 end
35 object ToolButton3: TToolButton
36 Left = 71
37 Top = 2
38 Action = AScanContinue
39 end
40 end
41 object Panel2: TPanel
42 Left = 0
43 Height = 1035
44 Top = 39
45 Width = 888
46 Align = alLeft
47 BevelOuter = bvNone
48 ClientHeight = 1035
49 ClientWidth = 888
50 ParentFont = False
51 TabOrder = 1
52 object Panel3: TPanel
53 Left = 0
54 Height = 568
55 Top = 0
56 Width = 888
57 Align = alTop
58 BevelOuter = bvNone
59 ClientHeight = 568
60 ClientWidth = 888
61 ParentFont = False
62 TabOrder = 0
63 object Label1: TLabel
64 Left = 24
65 Height = 26
66 Top = 268
67 Width = 96
68 Caption = 'Sector size:'
69 ParentColor = False
70 ParentFont = False
71 end
72 object LabelSectorSize: TLabel
73 Left = 386
74 Height = 26
75 Top = 268
76 Width = 10
77 Caption = ' '
78 ParentColor = False
79 ParentFont = False
80 end
81 object LabelSectorCount: TLabel
82 Left = 386
83 Height = 26
84 Top = 312
85 Width = 10
86 Caption = ' '
87 ParentColor = False
88 ParentFont = False
89 end
90 object Label2: TLabel
91 Left = 24
92 Height = 26
93 Top = 312
94 Width = 113
95 Caption = 'Sector count:'
96 ParentColor = False
97 ParentFont = False
98 end
99 object LabelBlockCurrent: TLabel
100 Left = 386
101 Height = 26
102 Top = 360
103 Width = 10
104 Caption = ' '
105 ParentColor = False
106 ParentFont = False
107 end
108 object Label3: TLabel
109 Left = 24
110 Height = 26
111 Top = 360
112 Width = 127
113 Caption = 'Current sector:'
114 ParentColor = False
115 ParentFont = False
116 end
117 object Label4: TLabel
118 Left = 24
119 Height = 26
120 Top = 408
121 Width = 154
122 Caption = 'Damaged sectors:'
123 ParentColor = False
124 ParentFont = False
125 end
126 object LabelBlockDamaged: TLabel
127 Left = 386
128 Height = 26
129 Top = 402
130 Width = 10
131 Caption = ' '
132 ParentColor = False
133 ParentFont = False
134 end
135 object Label5: TLabel
136 Left = 24
137 Height = 26
138 Top = 450
139 Width = 115
140 Caption = 'Elapsed time:'
141 ParentColor = False
142 ParentFont = False
143 end
144 object LabelElapsedTime: TLabel
145 Left = 386
146 Height = 26
147 Top = 444
148 Width = 10
149 Caption = ' '
150 ParentColor = False
151 ParentFont = False
152 end
153 object Label6: TLabel
154 Left = 24
155 Height = 26
156 Top = 492
157 Width = 135
158 Caption = 'Estimated time:'
159 ParentColor = False
160 ParentFont = False
161 end
162 object LabelEstimatedTime: TLabel
163 Left = 387
164 Height = 26
165 Top = 486
166 Width = 10
167 Caption = ' '
168 ParentColor = False
169 ParentFont = False
170 end
171 object Label7: TLabel
172 Left = 24
173 Height = 26
174 Top = 222
175 Width = 153
176 Caption = 'Sectors per Block:'
177 ParentColor = False
178 ParentFont = False
179 end
180 object LabelSectorPerBlock: TLabel
181 Left = 386
182 Height = 26
183 Top = 216
184 Width = 10
185 Caption = ' '
186 ParentColor = False
187 ParentFont = False
188 end
189 object LabelIOSpeed: TLabel
190 Left = 386
191 Height = 26
192 Top = 528
193 Width = 10
194 Caption = ' '
195 ParentColor = False
196 ParentFont = False
197 end
198 object Label8: TLabel
199 Left = 24
200 Height = 26
201 Top = 534
202 Width = 88
203 Caption = 'I/O speed:'
204 ParentColor = False
205 ParentFont = False
206 end
207 object Label10: TLabel
208 Left = 24
209 Height = 26
210 Top = 174
211 Width = 38
212 Caption = 'Size:'
213 ParentColor = False
214 ParentFont = False
215 end
216 object LabelSize: TLabel
217 Left = 386
218 Height = 26
219 Top = 168
220 Width = 10
221 Caption = ' '
222 ParentColor = False
223 ParentFont = False
224 end
225 object ButtonScan: TButton
226 Left = 24
227 Height = 38
228 Top = 108
229 Width = 112
230 Action = AScanStart
231 ParentFont = False
232 TabOrder = 0
233 end
234 object ButtonScan1: TButton
235 Left = 696
236 Height = 38
237 Top = 36
238 Width = 180
239 Action = AProjectOptions
240 Anchors = [akTop, akRight]
241 ParentFont = False
242 TabOrder = 1
243 end
244 object ButtonScan2: TButton
245 Left = 156
246 Height = 38
247 Top = 108
248 Width = 112
249 Action = AScanStop
250 ParentFont = False
251 TabOrder = 2
252 end
253 object Button2: TButton
254 Left = 288
255 Height = 38
256 Top = 108
257 Width = 160
258 Action = AScanContinue
259 ParentFont = False
260 TabOrder = 3
261 end
262 object Button3: TButton
263 Left = 468
264 Height = 38
265 Top = 108
266 Width = 168
267 Action = AOperationOptions
268 ParentFont = False
269 TabOrder = 4
270 end
271 object ComboBoxDrive: TComboBox
272 Left = 12
273 Height = 42
274 Top = 24
275 Width = 660
276 Anchors = [akTop, akLeft, akRight]
277 ItemHeight = 0
278 OnChange = ComboBoxDriveChange
279 ParentFont = False
280 Style = csDropDownList
281 TabOrder = 5
282 end
283 end
284 object Splitter2: TSplitter
285 Cursor = crVSplit
286 Left = 0
287 Height = 8
288 Top = 568
289 Width = 888
290 Align = alTop
291 ResizeAnchor = akTop
292 end
293 object Panel4: TPanel
294 Left = 0
295 Height = 459
296 Top = 576
297 Width = 888
298 Align = alClient
299 BevelOuter = bvNone
300 ClientHeight = 459
301 ClientWidth = 888
302 ParentFont = False
303 TabOrder = 2
304 object ListView1: TListView
305 Left = 24
306 Height = 313
307 Top = 72
308 Width = 854
309 Anchors = [akTop, akLeft, akRight, akBottom]
310 Columns = <
311 item
312 Caption = 'Name'
313 Width = 300
314 end
315 item
316 Caption = 'Time start'
317 Width = 225
318 end
319 item
320 Caption = 'Time end'
321 Width = 225
322 end
323 item
324 Caption = 'First sector'
325 Width = 150
326 end
327 item
328 Caption = 'Last sector'
329 Width = 520
330 end>
331 OwnerData = True
332 ParentFont = False
333 PopupMenu = PopupMenu1
334 ReadOnly = True
335 RowSelect = True
336 TabOrder = 0
337 ViewStyle = vsReport
338 OnData = ListView1Data
339 OnSelectItem = ListView1SelectItem
340 end
341 object Label11: TLabel
342 Left = 24
343 Height = 26
344 Top = 24
345 Width = 100
346 Caption = 'Operations:'
347 ParentColor = False
348 ParentFont = False
349 end
350 object Button1: TButton
351 Left = 28
352 Height = 38
353 Top = 401
354 Width = 156
355 Action = AOperationAdd
356 Anchors = [akLeft, akBottom]
357 ParentFont = False
358 TabOrder = 1
359 end
360 object Button4: TButton
361 Left = 216
362 Height = 38
363 Top = 401
364 Width = 172
365 Action = AOperationRemove
366 Anchors = [akLeft, akBottom]
367 ParentFont = False
368 TabOrder = 2
369 end
370 end
371 end
372 object Splitter1: TSplitter
373 Left = 888
374 Height = 1035
375 Top = 39
376 Width = 8
377 end
378 object PageControl1: TPageControl
379 Left = 896
380 Height = 1035
381 Top = 39
382 Width = 758
383 ActivePage = TabSheetSpeed
384 Align = alClient
385 ParentFont = False
386 TabIndex = 1
387 TabOrder = 3
388 object TabSheetSectors: TTabSheet
389 Caption = 'Sector map'
390 ClientHeight = 995
391 ClientWidth = 748
392 ParentFont = False
393 object Image1: TImage
394 Left = 4
395 Height = 964
396 Top = 4
397 Width = 1092
398 Align = alClient
399 BorderSpacing.Around = 6
400 OnResize = Image1Resize
401 end
402 end
403 object TabSheetSpeed: TTabSheet
404 Caption = 'Transfer speed'
405 ClientHeight = 995
406 ClientWidth = 748
407 ParentFont = False
408 object ChartSpeed: TChart
409 Left = 6
410 Height = 983
411 Top = 6
412 Width = 736
413 AxisList = <
414 item
415 Marks.Format = '%0:.9g MB/s'
416 Marks.LabelBrush.Style = bsClear
417 Marks.Style = smsCustom
418 Minors = <>
419 Range.UseMin = True
420 Title.LabelFont.Orientation = 900
421 Title.LabelBrush.Style = bsClear
422 end
423 item
424 Alignment = calBottom
425 Marks.LabelBrush.Style = bsClear
426 Minors = <>
427 Title.LabelBrush.Style = bsClear
428 end>
429 Foot.Brush.Color = clBtnFace
430 Foot.Font.Color = clBlue
431 Title.Brush.Color = clBtnFace
432 Title.Font.Color = clBlue
433 Title.Text.Strings = (
434 'TAChart'
435 )
436 Align = alClient
437 BorderSpacing.Around = 6
438 object ChartSpeedLineSeriesAvg: TLineSeries
439 LinePen.Color = clGreen
440 end
441 object ChartSpeedLineSeriesMin: TLineSeries
442 LinePen.Color = clBlue
443 end
444 object ChartSpeedLineSeriesMax: TLineSeries
445 LinePen.Color = clRed
446 end
447 end
448 end
449 end
450 object Timer1: TTimer
451 Interval = 500
452 OnTimer = Timer1Timer
453 left = 1008
454 top = 336
455 end
456 object ActionList1: TActionList
457 Images = Core.ImageList1
458 left = 1008
459 top = 437
460 object AScanStart: TAction
461 Caption = 'Start'
462 OnExecute = AScanStartExecute
463 end
464 object AScanStop: TAction
465 Caption = 'Stop'
466 OnExecute = AScanStopExecute
467 end
468 object AScanContinue: TAction
469 Caption = 'Continue'
470 OnExecute = AScanContinueExecute
471 end
472 object AProjectOptions: TAction
473 Caption = 'Options'
474 OnExecute = AProjectOptionsExecute
475 end
476 object ADriveSelect: TAction
477 Caption = 'Select...'
478 end
479 object AExit: TAction
480 Caption = 'Exit'
481 OnExecute = AExitExecute
482 end
483 object AFileSaveAs: TAction
484 Caption = 'Save as...'
485 OnExecute = AFileSaveAsExecute
486 end
487 object AFileOpen: TAction
488 Caption = 'Open...'
489 OnExecute = AFileOpenExecute
490 end
491 object AFileSave: TAction
492 Caption = 'Save'
493 OnExecute = AFileSaveExecute
494 end
495 object AFileNew: TAction
496 Caption = 'New'
497 OnExecute = AFileNewExecute
498 end
499 object AFileClose: TAction
500 Caption = 'Close'
501 OnExecute = AFileCloseExecute
502 end
503 object AViewToolbar: TAction
504 Caption = 'Toolbar'
505 OnExecute = AViewToolbarExecute
506 end
507 object AOperationOptions: TAction
508 Caption = 'Options'
509 OnExecute = AOperationOptionsExecute
510 end
511 object AOperationRemove: TAction
512 Caption = 'Remove'
513 OnExecute = AOperationRemoveExecute
514 end
515 object AOperationAdd: TAction
516 Caption = 'Add'
517 OnExecute = AOperationAddExecute
518 end
519 object AShowAbout: TAction
520 Caption = 'About'
521 OnExecute = AShowAboutExecute
522 end
523 object AShowSettings: TAction
524 Caption = 'Settings'
525 OnExecute = AShowSettingsExecute
526 end
527 end
528 object OpenDialog1: TOpenDialog
529 left = 1008
530 top = 540
531 end
532 object SaveDialog1: TSaveDialog
533 left = 1008
534 top = 648
535 end
536 object MainMenu1: TMainMenu
537 Images = Core.ImageList1
538 left = 1008
539 top = 756
540 object MenuItem1: TMenuItem
541 Caption = 'File'
542 object MenuItem10: TMenuItem
543 Action = AFileNew
544 end
545 object MenuItem2: TMenuItem
546 Action = AFileOpen
547 end
548 object MenuItemOpenRecent: TMenuItem
549 Caption = 'Open recent'
550 end
551 object MenuItem9: TMenuItem
552 Action = AFileSave
553 end
554 object MenuItem3: TMenuItem
555 Action = AFileSaveAs
556 end
557 object MenuItem11: TMenuItem
558 Action = AFileClose
559 end
560 object MenuItem15: TMenuItem
561 Action = AProjectOptions
562 end
563 object MenuItem12: TMenuItem
564 Caption = '-'
565 end
566 object MenuItem4: TMenuItem
567 Action = AExit
568 end
569 end
570 object MenuItem5: TMenuItem
571 Caption = 'Scan'
572 object MenuItem6: TMenuItem
573 Action = AScanStart
574 end
575 object MenuItem7: TMenuItem
576 Action = AScanStop
577 end
578 object MenuItem13: TMenuItem
579 Action = AScanContinue
580 end
581 object MenuItem14: TMenuItem
582 Caption = '-'
583 end
584 object MenuItem8: TMenuItem
585 Action = AOperationOptions
586 end
587 end
588 object MenuItem16: TMenuItem
589 Caption = 'View'
590 object MenuItem17: TMenuItem
591 Action = AViewToolbar
592 end
593 end
594 object MenuItem22: TMenuItem
595 Caption = 'Tools'
596 object MenuItem23: TMenuItem
597 Action = AShowSettings
598 end
599 end
600 object MenuItem20: TMenuItem
601 Caption = 'Help'
602 object MenuItem21: TMenuItem
603 Action = AShowAbout
604 end
605 end
606 end
607 object LastOpenedList1: TLastOpenedList
608 MaxCount = 10
609 left = 1008
610 top = 216
611 end
612 object PopupMenu1: TPopupMenu
613 left = 432
614 top = 792
615 object MenuItem18: TMenuItem
616 Action = AOperationAdd
617 end
618 object MenuItem19: TMenuItem
619 Action = AOperationRemove
620 end
621 end
622end
Note: See TracBrowser for help on using the repository browser.