Changeset 41 for trunk/Forms


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.
Location:
trunk/Forms
Files:
6 added
3 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAbout.lfm

    r37 r41  
    11object FormAbout: TFormAbout
    22  Left = 562
    3   Height = 335
     3  Height = 502
    44  Top = 339
    5   Width = 533
     5  Width = 800
    66  Caption = 'About'
    7   ClientHeight = 335
    8   ClientWidth = 533
     7  ClientHeight = 502
     8  ClientWidth = 800
     9  DesignTimePPI = 144
    910  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  Position = poScreenCenter
    12   LCLVersion = '1.6.2.0'
     13  LCLVersion = '2.0.0.4'
    1314  object LabelDescription: TLabel
    14     Left = 20
    15     Height = 50
    16     Top = 108
    17     Width = 493
     15    Left = 30
     16    Height = 26
     17    Top = 162
     18    Width = 740
    1819    Align = alTop
    19     BorderSpacing.Around = 20
     20    BorderSpacing.Around = 30
    2021    Caption = 'CoolDisk is helpful GUI application for various disk surface operations.'
    2122    ParentColor = False
     23    ParentFont = False
    2224    WordWrap = True
    2325  end
    2426  object ButtonClose: TButton
    25     Left = 420
    26     Height = 25
    27     Top = 295
    28     Width = 93
     27    Left = 630
     28    Height = 38
     29    Top = 442
     30    Width = 140
    2931    Anchors = [akRight, akBottom]
    3032    Caption = 'Close'
    3133    ModalResult = 1
     34    ParentFont = False
    3235    TabOrder = 0
    3336  end
    3437  object LabelContent: TLabel
    35     Left = 20
    36     Height = 25
    37     Top = 178
    38     Width = 493
     38    Left = 30
     39    Height = 26
     40    Top = 218
     41    Width = 740
    3942    Align = alTop
    40     BorderSpacing.Around = 20
     43    BorderSpacing.Around = 30
    4144    Caption = '   '
    4245    ParentColor = False
     46    ParentFont = False
    4347  end
    4448  object ButtonHomePage: TButton
    45     Left = 16
    46     Height = 25
    47     Top = 295
    48     Width = 176
     49    Left = 24
     50    Height = 38
     51    Top = 442
     52    Width = 264
    4953    Anchors = [akLeft, akBottom]
    5054    Caption = 'Home page'
    5155    OnClick = ButtonHomePageClick
     56    ParentFont = False
    5257    TabOrder = 1
    5358  end
    5459  object Panel1: TPanel
    5560    Left = 0
    56     Height = 88
     61    Height = 132
    5762    Top = 0
    58     Width = 533
     63    Width = 800
    5964    Align = alTop
    6065    BevelOuter = bvNone
    61     ClientHeight = 88
    62     ClientWidth = 533
     66    ClientHeight = 132
     67    ClientWidth = 800
     68    ParentFont = False
    6369    TabOrder = 2
    6470    object Image1: TImage
    65       Left = 24
    66       Height = 66
    67       Top = 16
    68       Width = 69
     71      Left = 36
     72      Height = 99
     73      Top = 24
     74      Width = 104
    6975      Picture.Data = {
    7076        1754506F727461626C654E6574776F726B47726170686963B30C000089504E47
    … …  
    175181    object LabelAppName: TLabel
    176182      Left = 104
    177       Height = 54
     183      Height = 83
    178184      Top = 16
    179       Width = 167
     185      Width = 261
    180186      Align = alCustom
    181       BorderSpacing.Around = 20
     187      BorderSpacing.Around = 30
    182188      Caption = 'Cool Disk'
    183       Font.Height = -40
     189      Font.Height = -60
    184190      ParentColor = False
    185191      ParentFont = False

  • trunk/Forms/UFormBenchmark.lfm

    r22 r41  
    11object FormBenchmark: TFormBenchmark
    22  Left = 874
    3   Height = 711
    4   Top = 372
    5   Width = 773
     3  Height = 1066
     4  Top = 316
     5  Width = 1160
    66  Caption = 'Benchmark'
    7   ClientHeight = 711
    8   ClientWidth = 773
    9   LCLVersion = '1.7'
     7  ClientHeight = 1066
     8  ClientWidth = 1160
     9  DesignTimePPI = 144
     10  LCLVersion = '2.0.0.4'
    1011  object Chart1: TChart
    11     Left = 24
    12     Height = 656
    13     Top = 40
    14     Width = 728
     12    Left = 36
     13    Height = 984
     14    Top = 60
     15    Width = 1092
    1516    AxisList = <   
    1617      item
     18        Marks.LabelBrush.Style = bsClear
    1719        Minors = <>
    1820        Title.LabelFont.Orientation = 900
     21        Title.LabelBrush.Style = bsClear
    1922      end   
    2023      item
    2124        Alignment = calBottom
     25        Marks.LabelBrush.Style = bsClear
    2226        Minors = <>
     27        Title.LabelBrush.Style = bsClear
    2328      end>
    2429    Foot.Brush.Color = clBtnFace

  • 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

  • trunk/Forms/UFormMain.pas

    r34 r41  
    171171  SModifiedFlag = '(modified)';
    172172  SNewProject = 'New project';
    173   SSelectDriveForScan = 'Select drive for scan';
    174173  SOpenStoredProject = 'Open stored scan project';
    175174  SSaveProject = 'Save scan project';
    … …  
    227226procedure TFormMain.FormCreate(Sender: TObject);
    228227begin
    229   PrefixMultiplier := TPrefixMultiplier.Create;
     228  PrefixMultiplier := TPrefixMultiplier.Create(nil);
    230229end;
    231230
    … …  
    588587procedure TFormMain.SaveConfig;
    589588begin
    590   Core.XMLConfig1.SetValue('DriveName', LastDriveName);
     589  Core.XMLConfig1.SetValue('DriveName', UnicodeString(LastDriveName));
    591590  LastOpenedList1.SaveToXMLConfig(Core.XMLConfig1, 'RecentProjects');
    592591  Core.XMLConfig1.SetValue('ShowToolBar', ShowToolBar);
    … …  
    595594procedure TFormMain.LoadConfig;
    596595begin
    597   LastDriveName := Core.XMLConfig1.GetValue('DriveName', '');
     596  LastDriveName := string(Core.XMLConfig1.GetValue('DriveName', UnicodeString('')));
    598597  LastOpenedList1.LoadFromXMLConfig(Core.XMLConfig1, 'RecentProjects');
    599598  ShowToolBar := Core.XMLConfig1.GetValue('ShowToolBar', False);

  • trunk/Forms/UFormOperation.lfm

    r29 r41  
    11object FormOperation: TFormOperation
    22  Left = 558
    3   Height = 482
     3  Height = 723
    44  Top = 480
    5   Width = 725
     5  Width = 1088
    66  Caption = 'Operation settings'
    7   ClientHeight = 482
    8   ClientWidth = 725
    9   LCLVersion = '1.7'
     7  ClientHeight = 723
     8  ClientWidth = 1088
     9  DesignTimePPI = 144
     10  LCLVersion = '2.0.0.4'
    1011  object ButtonOk: TButton
    11     Left = 559
    12     Height = 25
    13     Top = 427
    14     Width = 75
     12    Left = 838
     13    Height = 38
     14    Top = 640
     15    Width = 112
    1516    Caption = 'Ok'
    1617    ModalResult = 1
     18    ParentFont = False
    1719    TabOrder = 0
    1820  end
    1921  object ButtonCancel: TButton
    20     Left = 448
    21     Height = 25
    22     Top = 424
    23     Width = 75
     22    Left = 672
     23    Height = 38
     24    Top = 636
     25    Width = 112
    2426    Caption = 'Cancel'
    2527    ModalResult = 2
     28    ParentFont = False
    2629    TabOrder = 1
    2730  end
    2831  object ComboBoxRunMode: TComboBox
    29     Left = 16
    30     Height = 34
    31     Top = 16
    32     Width = 247
     32    Left = 24
     33    Height = 38
     34    Top = 24
     35    Width = 370
    3336    ItemHeight = 0
    3437    ItemIndex = 0
    … …  
    3841    )
    3942    OnChange = ComboBoxRunModeChange
     43    ParentFont = False
    4044    Style = csDropDownList
    4145    TabOrder = 2
    … …  
    4347  end
    4448  object Label9: TLabel
    45     Left = 16
    46     Height = 24
    47     Top = 200
    48     Width = 172
     49    Left = 24
     50    Height = 26
     51    Top = 300
     52    Width = 161
    4953    Caption = 'Write byte pattern:'
    5054    ParentColor = False
     55    ParentFont = False
    5156  end
    5257  object EditPattern: TEdit
    53     Left = 232
    54     Height = 34
    55     Top = 192
    56     Width = 80
     58    Left = 348
     59    Height = 43
     60    Top = 288
     61    Width = 120
     62    ParentFont = False
    5763    TabOrder = 3
    5864    Text = '0xff'
    5965  end
    6066  object Label2: TLabel
    61     Left = 24
    62     Height = 24
    63     Top = 64
    64     Width = 105
     67    Left = 36
     68    Height = 26
     69    Top = 96
     70    Width = 100
    6571    Caption = 'First sector:'
    6672    ParentColor = False
     73    ParentFont = False
    6774  end
    6875  object SpinEditFirstSector: TSpinEdit
    69     Left = 192
    70     Height = 34
    71     Top = 64
    72     Width = 162
     76    Left = 288
     77    Height = 43
     78    Top = 96
     79    Width = 243
    7380    MaxValue = 100000
    7481    OnChange = SpinEditFirstSectorChange
     82    ParentFont = False
    7583    TabOrder = 4
    7684    Value = 1
    7785  end
    7886  object SpinEditLastSector: TSpinEdit
    79     Left = 192
    80     Height = 34
    81     Top = 104
    82     Width = 162
     87    Left = 288
     88    Height = 43
     89    Top = 156
     90    Width = 243
    8391    MaxValue = 100000
    8492    OnChange = SpinEditLastSectorChange
     93    ParentFont = False
    8594    TabOrder = 5
    8695    Value = 1
    8796  end
    8897  object Label3: TLabel
    89     Left = 24
    90     Height = 24
    91     Top = 104
    92     Width = 81
     98    Left = 36
     99    Height = 26
     100    Top = 156
     101    Width = 77
    93102    Caption = 'Last size:'
    94103    ParentColor = False
     104    ParentFont = False
    95105  end
    96106  object CheckBoxRandomPattern: TCheckBox
    97     Left = 16
    98     Height = 28
    99     Top = 160
    100     Width = 174
     107    Left = 24
     108    Height = 30
     109    Top = 240
     110    Width = 165
    101111    Caption = 'Random pattern'
    102112    OnChange = CheckBoxRandomPatternChange
     113    ParentFont = False
    103114    TabOrder = 6
    104115  end

  • trunk/Forms/UFormProject.lfm

    r31 r41  
    11object FormProject: TFormProject
    22  Left = 537
    3   Height = 392
     3  Height = 588
    44  Top = 440
    5   Width = 612
     5  Width = 918
    66  Caption = 'Project settings'
    7   ClientHeight = 392
    8   ClientWidth = 612
    9   LCLVersion = '1.7'
     7  ClientHeight = 588
     8  ClientWidth = 918
     9  DesignTimePPI = 144
     10  LCLVersion = '2.0.0.4'
    1011  object SpinEditSectorSize: TSpinEdit
    11     Left = 224
    12     Height = 34
    13     Top = 152
    14     Width = 101
     12    Left = 336
     13    Height = 43
     14    Top = 228
     15    Width = 152
    1516    MaxValue = 63
    1617    OnChange = SpinEditSectorSizeChange
     18    ParentFont = False
    1719    TabOrder = 0
    1820    Value = 1
    1921  end
    2022  object Label1: TLabel
    21     Left = 16
    22     Height = 24
    23     Top = 160
    24     Width = 101
     23    Left = 24
     24    Height = 26
     25    Top = 240
     26    Width = 96
    2527    Caption = 'Sector size:'
    2628    ParentColor = False
     29    ParentFont = False
    2730  end
    2831  object Button1: TButton
    29     Left = 326
    30     Height = 25
    31     Top = 280
    32     Width = 75
     32    Left = 489
     33    Height = 38
     34    Top = 420
     35    Width = 112
    3336    Caption = 'Ok'
    3437    ModalResult = 1
     38    ParentFont = False
    3539    TabOrder = 1
    3640  end
    3741  object Button2: TButton
    38     Left = 224
    39     Height = 25
    40     Top = 280
    41     Width = 75
     42    Left = 336
     43    Height = 38
     44    Top = 420
     45    Width = 112
    4246    Caption = 'Cancel'
    4347    ModalResult = 2
     48    ParentFont = False
    4449    TabOrder = 2
    4550  end
    4651  object EditName: TEdit
    47     Left = 192
    48     Height = 34
    49     Top = 8
    50     Width = 240
     52    Left = 288
     53    Height = 43
     54    Top = 12
     55    Width = 360
     56    ParentFont = False
    5157    TabOrder = 3
    5258  end
    5359  object Label2: TLabel
    54     Left = 16
    55     Height = 24
    56     Top = 16
    57     Width = 60
     60    Left = 24
     61    Height = 26
     62    Top = 24
     63    Width = 56
    5864    Caption = 'Name:'
    5965    ParentColor = False
     66    ParentFont = False
    6067  end
    6168  object ComboBoxDrive: TComboBox
    62     Left = 192
    63     Height = 38
    64     Top = 56
    65     Width = 384
     69    Left = 288
     70    Height = 42
     71    Top = 84
     72    Width = 576
    6673    ItemHeight = 0
     74    ParentFont = False
    6775    Style = csDropDownList
    6876    TabOrder = 4
    6977  end
    7078  object Label3: TLabel
    71     Left = 16
    72     Height = 24
    73     Top = 64
    74     Width = 53
     79    Left = 24
     80    Height = 26
     81    Top = 96
     82    Width = 49
    7583    Caption = 'Drive:'
    7684    ParentColor = False
     85    ParentFont = False
    7786  end
    7887  object Label4: TLabel
    79     Left = 16
    80     Height = 24
    81     Top = 112
    82     Width = 119
     88    Left = 24
     89    Height = 26
     90    Top = 168
     91    Width = 113
    8392    Caption = 'Sector count:'
    8493    ParentColor = False
     94    ParentFont = False
    8595  end
    8696  object LabelSectorCount: TLabel
    87     Left = 192
    88     Height = 24
    89     Top = 112
     97    Left = 288
     98    Height = 26
     99    Top = 168
    90100    Width = 15
    91101    Caption = '   '
    92102    ParentColor = False
     103    ParentFont = False
    93104  end
    94105  object Label5: TLabel
    95     Left = 192
    96     Height = 24
    97     Top = 160
    98     Width = 22
     106    Left = 288
     107    Height = 26
     108    Top = 240
     109    Width = 20
    99110    Caption = '2^'
    100111    ParentColor = False
     112    ParentFont = False
    101113  end
    102114  object Label6: TLabel
    103     Left = 341
    104     Height = 24
    105     Top = 160
    106     Width = 11
     115    Left = 512
     116    Height = 26
     117    Top = 240
     118    Width = 10
    107119    Caption = '='
    108120    ParentColor = False
     121    ParentFont = False
    109122  end
    110123end

  • trunk/Forms/UFormSettings.lfm

    r34 r41  
    11object FormSettings: TFormSettings
    22  Left = 404
    3   Height = 327
     3  Height = 490
    44  Top = 574
    5   Width = 554
     5  Width = 831
    66  ActiveControl = ButtonOk
    77  Caption = 'Settings'
    8   ClientHeight = 327
    9   ClientWidth = 554
    10   Constraints.MinHeight = 327
    11   Constraints.MinWidth = 554
     8  ClientHeight = 490
     9  ClientWidth = 831
     10  Constraints.MinHeight = 490
     11  Constraints.MinWidth = 831
     12  DesignTimePPI = 144
    1213  OnCreate = FormCreate
    1314  OnShow = FormShow
    1415  Position = poMainFormCenter
    15   LCLVersion = '1.6.0.4'
     16  LCLVersion = '2.0.0.4'
    1617  object ButtonOk: TButton
    17     Left = 444
    18     Height = 25
    19     Top = 284
    20     Width = 75
     18    Left = 667
     19    Height = 38
     20    Top = 425
     21    Width = 112
    2122    Anchors = [akRight, akBottom]
    2223    Caption = 'Ok'
    2324    ModalResult = 1
     25    ParentFont = False
    2426    TabOrder = 0
    2527  end
    2628  object ButtonCancel: TButton
    27     Left = 322
    28     Height = 25
    29     Top = 284
    30     Width = 75
     29    Left = 483
     30    Height = 38
     31    Top = 425
     32    Width = 112
    3133    Anchors = [akRight, akBottom]
    3234    Caption = 'Cancel'
    3335    ModalResult = 2
     36    ParentFont = False
    3437    TabOrder = 1
    3538  end
    3639  object PageControl1: TPageControl
    37     Left = 4
    38     Height = 264
    39     Top = 4
    40     Width = 546
     40    Left = 6
     41    Height = 425
     42    Top = 6
     43    Width = 819
    4144    ActivePage = TabSheetGeneral
    4245    Align = alTop
    4346    Anchors = [akTop, akLeft, akRight, akBottom]
    44     BorderSpacing.Around = 4
     47    BorderSpacing.Around = 6
     48    ParentFont = False
    4549    TabIndex = 0
    4650    TabOrder = 2
    4751    object TabSheetGeneral: TTabSheet
    4852      Caption = 'General'
    49       ClientHeight = 222
    50       ClientWidth = 540
     53      ClientHeight = 385
     54      ClientWidth = 809
     55      ParentFont = False
    5156      object Label1: TLabel
    52         Left = 20
    53         Height = 24
    54         Top = 26
     57        Left = 30
     58        Height = 26
     59        Top = 39
    5560        Width = 88
    5661        Caption = 'Language:'
    5762        ParentColor = False
     63        ParentFont = False
    5864      end
    5965      object ComboBoxLanguage: TComboBox
    60         Left = 178
    61         Height = 38
    62         Top = 24
    63         Width = 196
     66        Left = 267
     67        Height = 42
     68        Top = 36
     69        Width = 294
    6470        ItemHeight = 0
     71        ParentFont = False
    6572        Style = csDropDownList
    6673        TabOrder = 0
    … …  
    6976    object TabSheetDebug: TTabSheet
    7077      Caption = 'Debug'
    71       ClientHeight = 222
    72       ClientWidth = 540
     78      ClientHeight = 385
     79      ClientWidth = 809
     80      ParentFont = False
    7381      object CheckBoxDevelMode: TCheckBox
    74         Left = 16
    75         Height = 27
    76         Top = 136
    77         Width = 514
     82        Left = 24
     83        Height = 40
     84        Top = 204
     85        Width = 503
    7886        Anchors = [akTop, akLeft, akRight]
    7987        AutoSize = False
    8088        Caption = 'Developer mode'
     89        ParentFont = False
    8190        TabOrder = 0
    8291      end
    8392      object Label4: TLabel
    84         Left = 14
     93        Left = 21
    8594        Height = 24
    86         Top = 67
     95        Top = 100
    8796        Width = 35
    8897        Caption = 'DPI:'
    8998        ParentColor = False
     99        ParentFont = False
    90100      end
    91101      object SpinEditX: TSpinEdit
    92         Left = 104
     102        Left = 156
    93103        Height = 34
    94         Top = 64
    95         Width = 96
     104        Top = 96
     105        Width = 144
    96106        MaxValue = 500
    97107        MinValue = 20
     108        ParentFont = False
    98109        TabOrder = 1
    99110        Value = 50
    100111      end
    101112      object SpinEditY: TSpinEdit
    102         Left = 232
     113        Left = 348
    103114        Height = 34
    104         Top = 64
    105         Width = 90
     115        Top = 96
     116        Width = 135
    106117        MaxValue = 500
    107118        MinValue = 20
     119        ParentFont = False
    108120        TabOrder = 2
    109121        Value = 20
    110122      end
    111123      object Label5: TLabel
    112         Left = 208
     124        Left = 312
    113125        Height = 24
    114         Top = 67
     126        Top = 100
    115127        Width = 10
    116128        Caption = 'x'
    117129        ParentColor = False
     130        ParentFont = False
    118131      end
    119132      object CheckBox2: TCheckBox
    120         Left = 16
    121         Height = 24
    122         Top = 32
    123         Width = 510
     133        Left = 24
     134        Height = 36
     135        Top = 48
     136        Width = 497
    124137        Anchors = [akTop, akLeft, akRight]
    125138        AutoSize = False
    126139        Caption = 'Automatic DPI'
    127140        OnChange = CheckBox2Change
     141        ParentFont = False
    128142        TabOrder = 3
    129143      end
Note: See TracChangeset for help on using the changeset viewer.