Ignore:
Timestamp:
May 8, 2019, 11:54:23 AM (5 years ago)
Author:
chronos
Message:
  • Modified: Build under Lazarus 2.0.
  • Modified: Used .lrj files instead of .lrt files.
  • Modified: Removed TemplateGenerics package.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r34 r41  
    11object FormMain: TFormMain
    2   Left = 433
    3   Height = 1072
    4   Top = 204
    5   Width = 1703
     2  Left = 221
     3  Height = 1108
     4  Top = 169
     5  Width = 1654
    66  Caption = 'CoolDisk'
    7   ClientHeight = 1040
    8   ClientWidth = 1703
     7  ClientHeight = 1074
     8  ClientWidth = 1654
     9  DesignTimePPI = 144
    910  Menu = MainMenu1
    1011  OnClose = FormClose
    … …  
    1314  OnDestroy = FormDestroy
    1415  OnShow = FormShow
    15   LCLVersion = '1.6.0.4'
     16  LCLVersion = '2.0.0.4'
    1617  object ToolBar1: TToolBar
    1718    Left = 0
    18     Height = 26
     19    Height = 39
    1920    Top = 0
    20     Width = 1703
     21    Width = 1654
    2122    Images = Core.ImageList1
     23    ParentFont = False
    2224    TabOrder = 0
    2325    object ToolButton1: TToolButton
    … …  
    2729    end
    2830    object ToolButton2: TToolButton
    29       Left = 24
     31      Left = 36
    3032      Top = 2
    3133      Action = AScanStop
    3234    end
    3335    object ToolButton3: TToolButton
    34       Left = 47
     36      Left = 71
    3537      Top = 2
    3638      Action = AScanContinue
    … …  
    3941  object Panel2: TPanel
    4042    Left = 0
    41     Height = 1014
    42     Top = 26
    43     Width = 592
     43    Height = 1035
     44    Top = 39
     45    Width = 888
    4446    Align = alLeft
    4547    BevelOuter = bvNone
    46     ClientHeight = 1014
    47     ClientWidth = 592
     48    ClientHeight = 1035
     49    ClientWidth = 888
     50    ParentFont = False
    4851    TabOrder = 1
    4952    object Panel3: TPanel
    5053      Left = 0
    51       Height = 379
     54      Height = 568
    5255      Top = 0
    53       Width = 592
     56      Width = 888
    5457      Align = alTop
    5558      BevelOuter = bvNone
    56       ClientHeight = 379
    57       ClientWidth = 592
     59      ClientHeight = 568
     60      ClientWidth = 888
     61      ParentFont = False
    5862      TabOrder = 0
    5963      object Label1: TLabel
    60         Left = 16
    61         Height = 24
    62         Top = 179
     64        Left = 24
     65        Height = 26
     66        Top = 268
    6367        Width = 96
    6468        Caption = 'Sector size:'
    6569        ParentColor = False
     70        ParentFont = False
    6671      end
    6772      object LabelSectorSize: TLabel
    68         Left = 257
    69         Height = 24
    70         Top = 179
    71         Width = 10
    72         Caption = '  '
    73         ParentColor = False
     73        Left = 386
     74        Height = 26
     75        Top = 268
     76        Width = 10
     77        Caption = '  '
     78        ParentColor = False
     79        ParentFont = False
    7480      end
    7581      object LabelSectorCount: TLabel
    76         Left = 257
    77         Height = 24
    78         Top = 208
    79         Width = 10
    80         Caption = '  '
    81         ParentColor = False
     82        Left = 386
     83        Height = 26
     84        Top = 312
     85        Width = 10
     86        Caption = '  '
     87        ParentColor = False
     88        ParentFont = False
    8289      end
    8390      object Label2: TLabel
    84         Left = 16
    85         Height = 24
    86         Top = 208
     91        Left = 24
     92        Height = 26
     93        Top = 312
    8794        Width = 113
    8895        Caption = 'Sector count:'
    8996        ParentColor = False
     97        ParentFont = False
    9098      end
    9199      object LabelBlockCurrent: TLabel
    92         Left = 257
    93         Height = 24
    94         Top = 240
    95         Width = 10
    96         Caption = '  '
    97         ParentColor = False
     100        Left = 386
     101        Height = 26
     102        Top = 360
     103        Width = 10
     104        Caption = '  '
     105        ParentColor = False
     106        ParentFont = False
    98107      end
    99108      object Label3: TLabel
    100         Left = 16
    101         Height = 24
    102         Top = 240
     109        Left = 24
     110        Height = 26
     111        Top = 360
    103112        Width = 127
    104113        Caption = 'Current sector:'
    105114        ParentColor = False
     115        ParentFont = False
    106116      end
    107117      object Label4: TLabel
    108         Left = 16
    109         Height = 24
    110         Top = 272
     118        Left = 24
     119        Height = 26
     120        Top = 408
    111121        Width = 154
    112122        Caption = 'Damaged sectors:'
    113123        ParentColor = False
     124        ParentFont = False
    114125      end
    115126      object LabelBlockDamaged: TLabel
    116         Left = 257
    117         Height = 24
    118         Top = 268
    119         Width = 10
    120         Caption = '  '
    121         ParentColor = False
     127        Left = 386
     128        Height = 26
     129        Top = 402
     130        Width = 10
     131        Caption = '  '
     132        ParentColor = False
     133        ParentFont = False
    122134      end
    123135      object Label5: TLabel
    124         Left = 16
    125         Height = 24
    126         Top = 300
     136        Left = 24
     137        Height = 26
     138        Top = 450
    127139        Width = 115
    128140        Caption = 'Elapsed time:'
    129141        ParentColor = False
     142        ParentFont = False
    130143      end
    131144      object LabelElapsedTime: TLabel
    132         Left = 257
    133         Height = 24
    134         Top = 296
    135         Width = 10
    136         Caption = '  '
    137         ParentColor = False
     145        Left = 386
     146        Height = 26
     147        Top = 444
     148        Width = 10
     149        Caption = '  '
     150        ParentColor = False
     151        ParentFont = False
    138152      end
    139153      object Label6: TLabel
    140         Left = 16
    141         Height = 24
    142         Top = 328
     154        Left = 24
     155        Height = 26
     156        Top = 492
    143157        Width = 135
    144158        Caption = 'Estimated time:'
    145159        ParentColor = False
     160        ParentFont = False
    146161      end
    147162      object LabelEstimatedTime: TLabel
    148         Left = 258
    149         Height = 24
    150         Top = 324
    151         Width = 10
    152         Caption = '  '
    153         ParentColor = False
     163        Left = 387
     164        Height = 26
     165        Top = 486
     166        Width = 10
     167        Caption = '  '
     168        ParentColor = False
     169        ParentFont = False
    154170      end
    155171      object Label7: TLabel
    156         Left = 16
    157         Height = 24
    158         Top = 148
     172        Left = 24
     173        Height = 26
     174        Top = 222
    159175        Width = 153
    160176        Caption = 'Sectors per Block:'
    161177        ParentColor = False
     178        ParentFont = False
    162179      end
    163180      object LabelSectorPerBlock: TLabel
    164         Left = 257
    165         Height = 24
    166         Top = 144
    167         Width = 10
    168         Caption = '  '
    169         ParentColor = False
     181        Left = 386
     182        Height = 26
     183        Top = 216
     184        Width = 10
     185        Caption = '  '
     186        ParentColor = False
     187        ParentFont = False
    170188      end
    171189      object LabelIOSpeed: TLabel
    172         Left = 257
    173         Height = 24
    174         Top = 352
    175         Width = 10
    176         Caption = '  '
    177         ParentColor = False
     190        Left = 386
     191        Height = 26
     192        Top = 528
     193        Width = 10
     194        Caption = '  '
     195        ParentColor = False
     196        ParentFont = False
    178197      end
    179198      object Label8: TLabel
    180         Left = 16
    181         Height = 24
    182         Top = 356
     199        Left = 24
     200        Height = 26
     201        Top = 534
    183202        Width = 88
    184203        Caption = 'I/O speed:'
    185204        ParentColor = False
     205        ParentFont = False
    186206      end
    187207      object Label10: TLabel
    188         Left = 16
    189         Height = 24
    190         Top = 116
     208        Left = 24
     209        Height = 26
     210        Top = 174
    191211        Width = 38
    192212        Caption = 'Size:'
    193213        ParentColor = False
     214        ParentFont = False
    194215      end
    195216      object LabelSize: TLabel
    196         Left = 257
    197         Height = 24
    198         Top = 112
    199         Width = 10
    200         Caption = '  '
    201         ParentColor = False
     217        Left = 386
     218        Height = 26
     219        Top = 168
     220        Width = 10
     221        Caption = '  '
     222        ParentColor = False
     223        ParentFont = False
    202224      end
    203225      object ButtonScan: TButton
    204         Left = 16
    205         Height = 25
    206         Top = 72
    207         Width = 75
     226        Left = 24
     227        Height = 38
     228        Top = 108
     229        Width = 112
    208230        Action = AScanStart
     231        ParentFont = False
    209232        TabOrder = 0
    210233      end
    211234      object ButtonScan1: TButton
    212         Left = 464
    213         Height = 25
    214         Top = 24
    215         Width = 120
     235        Left = 696
     236        Height = 38
     237        Top = 36
     238        Width = 180
    216239        Action = AProjectOptions
    217240        Anchors = [akTop, akRight]
     241        ParentFont = False
    218242        TabOrder = 1
    219243      end
    220244      object ButtonScan2: TButton
    221         Left = 104
    222         Height = 25
    223         Top = 72
    224         Width = 75
     245        Left = 156
     246        Height = 38
     247        Top = 108
     248        Width = 112
    225249        Action = AScanStop
     250        ParentFont = False
    226251        TabOrder = 2
    227252      end
    228253      object Button2: TButton
    229         Left = 192
    230         Height = 25
    231         Top = 72
    232         Width = 107
     254        Left = 288
     255        Height = 38
     256        Top = 108
     257        Width = 160
    233258        Action = AScanContinue
     259        ParentFont = False
    234260        TabOrder = 3
    235261      end
    236262      object Button3: TButton
    237         Left = 312
    238         Height = 25
    239         Top = 72
    240         Width = 112
     263        Left = 468
     264        Height = 38
     265        Top = 108
     266        Width = 168
    241267        Action = AOperationOptions
     268        ParentFont = False
    242269        TabOrder = 4
    243270      end
    244271      object ComboBoxDrive: TComboBox
    245         Left = 8
    246         Height = 38
    247         Top = 16
    248         Width = 440
     272        Left = 12
     273        Height = 42
     274        Top = 24
     275        Width = 660
    249276        Anchors = [akTop, akLeft, akRight]
    250277        ItemHeight = 0
    251278        OnChange = ComboBoxDriveChange
     279        ParentFont = False
    252280        Style = csDropDownList
    253281        TabOrder = 5
    … …  
    257285      Cursor = crVSplit
    258286      Left = 0
    259       Height = 5
    260       Top = 379
    261       Width = 592
     287      Height = 8
     288      Top = 568
     289      Width = 888
    262290      Align = alTop
    263291      ResizeAnchor = akTop
    … …  
    265293    object Panel4: TPanel
    266294      Left = 0
    267       Height = 630
    268       Top = 384
    269       Width = 592
     295      Height = 459
     296      Top = 576
     297      Width = 888
    270298      Align = alClient
    271299      BevelOuter = bvNone
    272       ClientHeight = 630
    273       ClientWidth = 592
     300      ClientHeight = 459
     301      ClientWidth = 888
     302      ParentFont = False
    274303      TabOrder = 2
    275304      object ListView1: TListView
    276         Left = 16
    277         Height = 533
    278         Top = 48
    279         Width = 569
     305        Left = 24
     306        Height = 313
     307        Top = 72
     308        Width = 854
    280309        Anchors = [akTop, akLeft, akRight, akBottom]
    281310        Columns = <       
    282311          item
    283312            Caption = 'Name'
    284             Width = 200
     313            Width = 300
    285314          end       
    286315          item
    287316            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'
    288325            Width = 150
    289326          end       
    290327          item
    291             Caption = 'Time end'
    292             Width = 150
    293           end       
    294           item
    295             Caption = 'First sector'
    296             Width = 100
    297           end       
    298           item
    299328            Caption = 'Last sector'
    300             Width = 347
     329            Width = 520
    301330          end>
    302331        OwnerData = True
     332        ParentFont = False
    303333        PopupMenu = PopupMenu1
    304334        ReadOnly = True
    … …  
    310340      end
    311341      object Label11: TLabel
    312         Left = 16
    313         Height = 24
    314         Top = 16
     342        Left = 24
     343        Height = 26
     344        Top = 24
    315345        Width = 100
    316346        Caption = 'Operations:'
    317347        ParentColor = False
     348        ParentFont = False
    318349      end
    319350      object Button1: TButton
    320         Left = 19
    321         Height = 25
    322         Top = 592
    323         Width = 104
     351        Left = 28
     352        Height = 38
     353        Top = 401
     354        Width = 156
    324355        Action = AOperationAdd
    325356        Anchors = [akLeft, akBottom]
     357        ParentFont = False
    326358        TabOrder = 1
    327359      end
    328360      object Button4: TButton
    329         Left = 144
    330         Height = 25
    331         Top = 592
    332         Width = 115
     361        Left = 216
     362        Height = 38
     363        Top = 401
     364        Width = 172
    333365        Action = AOperationRemove
    334366        Anchors = [akLeft, akBottom]
     367        ParentFont = False
    335368        TabOrder = 2
    336369      end
    … …  
    338371  end
    339372  object Splitter1: TSplitter
    340     Left = 592
    341     Height = 1014
    342     Top = 26
    343     Width = 5
     373    Left = 888
     374    Height = 1035
     375    Top = 39
     376    Width = 8
    344377  end
    345378  object PageControl1: TPageControl
    346     Left = 597
    347     Height = 1014
    348     Top = 26
    349     Width = 1106
     379    Left = 896
     380    Height = 1035
     381    Top = 39
     382    Width = 758
    350383    ActivePage = TabSheetSpeed
    351384    Align = alClient
     385    ParentFont = False
    352386    TabIndex = 1
    353387    TabOrder = 3
    354388    object TabSheetSectors: TTabSheet
    355389      Caption = 'Sector map'
    356       ClientHeight = 972
    357       ClientWidth = 1100
     390      ClientHeight = 995
     391      ClientWidth = 748
     392      ParentFont = False
    358393      object Image1: TImage
    359394        Left = 4
    … …  
    362397        Width = 1092
    363398        Align = alClient
    364         BorderSpacing.Around = 4
     399        BorderSpacing.Around = 6
    365400        OnResize = Image1Resize
    366401      end
    … …  
    368403    object TabSheetSpeed: TTabSheet
    369404      Caption = 'Transfer speed'
    370       ClientHeight = 972
    371       ClientWidth = 1100
     405      ClientHeight = 995
     406      ClientWidth = 748
     407      ParentFont = False
    372408      object ChartSpeed: TChart
    373         Left = 4
    374         Height = 964
    375         Top = 4
    376         Width = 1092
     409        Left = 6
     410        Height = 983
     411        Top = 6
     412        Width = 736
    377413        AxisList = <       
    378414          item
    379415            Marks.Format = '%0:.9g MB/s'
     416            Marks.LabelBrush.Style = bsClear
    380417            Marks.Style = smsCustom
    381418            Minors = <>
    382419            Range.UseMin = True
    383420            Title.LabelFont.Orientation = 900
     421            Title.LabelBrush.Style = bsClear
    384422          end       
    385423          item
    386424            Alignment = calBottom
     425            Marks.LabelBrush.Style = bsClear
    387426            Minors = <>
     427            Title.LabelBrush.Style = bsClear
    388428          end>
    389429        Foot.Brush.Color = clBtnFace
    … …  
    395435        )
    396436        Align = alClient
    397         BorderSpacing.Around = 4
     437        BorderSpacing.Around = 6
    398438        object ChartSpeedLineSeriesAvg: TLineSeries
    399439          LinePen.Color = clGreen
    … …  
    411451    Interval = 500
    412452    OnTimer = Timer1Timer
    413     left = 672
    414     top = 224
     453    left = 1008
     454    top = 336
    415455  end
    416456  object ActionList1: TActionList
    417457    Images = Core.ImageList1
    418     left = 672
    419     top = 291
     458    left = 1008
     459    top = 437
    420460    object AScanStart: TAction
    421461      Caption = 'Start'
    … …  
    487527  end
    488528  object OpenDialog1: TOpenDialog
    489     left = 672
    490     top = 360
     529    left = 1008
     530    top = 540
    491531  end
    492532  object SaveDialog1: TSaveDialog
    493     left = 672
    494     top = 432
     533    left = 1008
     534    top = 648
    495535  end
    496536  object MainMenu1: TMainMenu
    497537    Images = Core.ImageList1
    498     left = 672
    499     top = 504
     538    left = 1008
     539    top = 756
    500540    object MenuItem1: TMenuItem
    501541      Caption = 'File'
    … …  
    567607  object LastOpenedList1: TLastOpenedList
    568608    MaxCount = 10
    569     left = 672
    570     top = 144
     609    left = 1008
     610    top = 216
    571611  end
    572612  object PopupMenu1: TPopupMenu
    573     left = 320
    574     top = 664
     613    left = 432
     614    top = 792
    575615    object MenuItem18: TMenuItem
    576616      Action = AOperationAdd
Note: See TracChangeset for help on using the changeset viewer.