Changeset 3 for trunk/UFormMain.lfm


Ignore:
Timestamp:
Mar 26, 2016, 11:40:31 PM (9 years ago)
Author:
chronos
Message:
  • Modified: TDriveScan and TBlockMap moved to separate units.
  • Added: Show total drive size.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UFormMain.lfm

    r2 r3  
    11object FormMain: TFormMain
    2   Left = 355
     2  Left = 215
    33  Height = 941
    4   Top = 211
     4  Top = 79
    55  Width = 1703
    66  Caption = 'CoolDisk'
    … …  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '1.6.0.4'
     14  LCLVersion = '1.7'
    1515  object ListView1: TListView
    1616    Left = 16
    … …  
    4444  object Label1: TLabel
    4545    Left = 15
    46     Height = 24
     46    Height = 22
    4747    Top = 675
    48     Width = 101
     48    Width = 91
    4949    Caption = 'Sector size:'
    5050    ParentColor = False
    … …  
    5252  object LabelBlockSize: TLabel
    5353    Left = 256
    54     Height = 24
     54    Height = 22
    5555    Top = 675
    5656    Width = 10
    … …  
    6060  object LabelBlockCount: TLabel
    6161    Left = 256
    62     Height = 24
     62    Height = 22
    6363    Top = 704
    6464    Width = 10
    … …  
    6868  object Label2: TLabel
    6969    Left = 16
    70     Height = 24
     70    Height = 22
    7171    Top = 704
    72     Width = 119
     72    Width = 105
    7373    Caption = 'Sector count:'
    7474    ParentColor = False
    … …  
    7676  object LabelBlockCurrent: TLabel
    7777    Left = 256
    78     Height = 24
     78    Height = 22
    7979    Top = 736
    8080    Width = 10
    … …  
    8484  object Label3: TLabel
    8585    Left = 16
    86     Height = 24
     86    Height = 22
    8787    Top = 736
    88     Width = 136
     88    Width = 122
    8989    Caption = 'Current sector:'
    9090    ParentColor = False
    … …  
    9292  object Label4: TLabel
    9393    Left = 17
    94     Height = 24
     94    Height = 22
    9595    Top = 768
    96     Width = 162
     96    Width = 147
    9797    Caption = 'Damaged sectors:'
    9898    ParentColor = False
    … …  
    100100  object LabelBlockDamaged: TLabel
    101101    Left = 256
    102     Height = 24
     102    Height = 22
    103103    Top = 764
    104104    Width = 10
    … …  
    108108  object Label5: TLabel
    109109    Left = 16
    110     Height = 24
     110    Height = 22
    111111    Top = 796
    112     Width = 122
     112    Width = 112
    113113    Caption = 'Elapsed time:'
    114114    ParentColor = False
    … …  
    116116  object LabelElapsedTime: TLabel
    117117    Left = 256
    118     Height = 24
     118    Height = 22
    119119    Top = 792
    120120    Width = 10
    … …  
    124124  object Label6: TLabel
    125125    Left = 17
    126     Height = 24
     126    Height = 22
    127127    Top = 824
    128     Width = 142
     128    Width = 129
    129129    Caption = 'Estimated time:'
    130130    ParentColor = False
    … …  
    132132  object LabelEstimatedTime: TLabel
    133133    Left = 257
    134     Height = 24
     134    Height = 22
    135135    Top = 820
    136136    Width = 10
    … …  
    140140  object Label7: TLabel
    141141    Left = 17
    142     Height = 24
     142    Height = 22
    143143    Top = 644
    144     Width = 160
     144    Width = 144
    145145    Caption = 'Sectors per Block:'
    146146    ParentColor = False
    … …  
    148148  object LabelSectorPerBlock: TLabel
    149149    Left = 256
    150     Height = 24
     150    Height = 22
    151151    Top = 640
    152152    Width = 10
    … …  
    156156  object LabelIOSpeed: TLabel
    157157    Left = 256
    158     Height = 24
     158    Height = 22
    159159    Top = 848
    160160    Width = 10
    … …  
    164164  object Label8: TLabel
    165165    Left = 16
    166     Height = 24
     166    Height = 22
    167167    Top = 852
    168     Width = 94
     168    Width = 86
    169169    Caption = 'I/O speed:'
    170170    ParentColor = False
    … …  
    196196  object EditDrive: TEdit
    197197    Left = 16
    198     Height = 34
     198    Height = 32
    199199    Top = 8
    200200    Width = 448
    … …  
    203203  object ComboBoxRunMode: TComboBox
    204204    Left = 17
    205     Height = 38
     205    Height = 32
    206206    Top = 88
    207207    Width = 247
    … …  
    218218  object Label9: TLabel
    219219    Left = 286
    220     Height = 24
     220    Height = 22
    221221    Top = 95
    222     Width = 121
     222    Width = 108
    223223    Caption = 'Data pattern:'
    224224    ParentColor = False
    … …  
    226226  object EditPattern: TEdit
    227227    Left = 440
    228     Height = 34
     228    Height = 32
    229229    Top = 88
    230230    Width = 80
    231231    TabOrder = 7
    232232    Text = '0xff'
     233  end
     234  object Label10: TLabel
     235    Left = 16
     236    Height = 22
     237    Top = 612
     238    Width = 36
     239    Caption = 'Size:'
     240    ParentColor = False
     241  end
     242  object LabelSize: TLabel
     243    Left = 256
     244    Height = 22
     245    Top = 608
     246    Width = 10
     247    Caption = '  '
     248    ParentColor = False
    233249  end
    234250  object MainMenu1: TMainMenu
Note: See TracChangeset for help on using the changeset viewer.