Ignore:
Timestamp:
Apr 2, 2016, 8:18:30 PM (8 years ago)
Author:
chronos
Message:
  • Added: Ability to add and remove scan operation.
  • Modified: XMLConfig moved from TMainForm to TCore as more proper place for general object.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Form/UFormMain.lfm

    r15 r16  
    1414  OnShow = FormShow
    1515  LCLVersion = '1.7'
    16   object ButtonScan: TButton
    17     Left = 16
    18     Height = 25
    19     Top = 104
    20     Width = 75
    21     Action = AScanStart
    22     TabOrder = 0
    23   end
    24   object Image1: TImage
    25     Left = 600
    26     Height = 856
    27     Top = 40
    28     Width = 1092
    29     Anchors = [akTop, akLeft, akRight, akBottom]
    30     OnResize = Image1Resize
    31   end
    32   object Label1: TLabel
    33     Left = 15
    34     Height = 24
    35     Top = 675
    36     Width = 101
    37     Caption = 'Sector size:'
    38     ParentColor = False
    39   end
    40   object LabelSectorSize: TLabel
    41     Left = 256
    42     Height = 24
    43     Top = 675
    44     Width = 10
    45     Caption = '  '
    46     ParentColor = False
    47   end
    48   object LabelSectorCount: TLabel
    49     Left = 256
    50     Height = 24
    51     Top = 704
    52     Width = 10
    53     Caption = '  '
    54     ParentColor = False
    55   end
    56   object Label2: TLabel
    57     Left = 16
    58     Height = 24
    59     Top = 704
    60     Width = 119
    61     Caption = 'Sector count:'
    62     ParentColor = False
    63   end
    64   object LabelBlockCurrent: TLabel
    65     Left = 256
    66     Height = 24
    67     Top = 736
    68     Width = 10
    69     Caption = '  '
    70     ParentColor = False
    71   end
    72   object Label3: TLabel
    73     Left = 16
    74     Height = 24
    75     Top = 736
    76     Width = 136
    77     Caption = 'Current sector:'
    78     ParentColor = False
    79   end
    80   object Label4: TLabel
    81     Left = 17
    82     Height = 24
    83     Top = 768
    84     Width = 162
    85     Caption = 'Damaged sectors:'
    86     ParentColor = False
    87   end
    88   object LabelBlockDamaged: TLabel
    89     Left = 256
    90     Height = 24
    91     Top = 764
    92     Width = 10
    93     Caption = '  '
    94     ParentColor = False
    95   end
    96   object Label5: TLabel
    97     Left = 16
    98     Height = 24
    99     Top = 796
    100     Width = 122
    101     Caption = 'Elapsed time:'
    102     ParentColor = False
    103   end
    104   object LabelElapsedTime: TLabel
    105     Left = 256
    106     Height = 24
    107     Top = 792
    108     Width = 10
    109     Caption = '  '
    110     ParentColor = False
    111   end
    112   object Label6: TLabel
    113     Left = 17
    114     Height = 24
    115     Top = 824
    116     Width = 142
    117     Caption = 'Estimated time:'
    118     ParentColor = False
    119   end
    120   object LabelEstimatedTime: TLabel
    121     Left = 257
    122     Height = 24
    123     Top = 820
    124     Width = 10
    125     Caption = '  '
    126     ParentColor = False
    127   end
    128   object Label7: TLabel
    129     Left = 17
    130     Height = 24
    131     Top = 644
    132     Width = 160
    133     Caption = 'Sectors per Block:'
    134     ParentColor = False
    135   end
    136   object LabelSectorPerBlock: TLabel
    137     Left = 256
    138     Height = 24
    139     Top = 640
    140     Width = 10
    141     Caption = '  '
    142     ParentColor = False
    143   end
    144   object LabelIOSpeed: TLabel
    145     Left = 256
    146     Height = 24
    147     Top = 848
    148     Width = 10
    149     Caption = '  '
    150     ParentColor = False
    151   end
    152   object Label8: TLabel
    153     Left = 16
    154     Height = 24
    155     Top = 852
    156     Width = 94
    157     Caption = 'I/O speed:'
    158     ParentColor = False
    159   end
    160   object ButtonScan1: TButton
    161     Left = 440
    162     Height = 25
    163     Top = 48
    164     Width = 120
    165     Action = AProjectOptions
    166     TabOrder = 1
    167   end
    168   object ButtonScan2: TButton
    169     Left = 104
    170     Height = 25
    171     Top = 104
    172     Width = 75
    173     Action = AScanStop
    174     TabOrder = 2
    175   end
    176   object Label10: TLabel
    177     Left = 16
    178     Height = 24
    179     Top = 612
    180     Width = 40
    181     Caption = 'Size:'
    182     ParentColor = False
    183   end
    184   object LabelSize: TLabel
    185     Left = 256
    186     Height = 24
    187     Top = 608
    188     Width = 10
    189     Caption = '  '
    190     ParentColor = False
    191   end
    192   object Button2: TButton
    193     Left = 192
    194     Height = 25
    195     Top = 104
    196     Width = 107
    197     Action = AScanContinue
    198     TabOrder = 3
    199   end
    200   object ListView1: TListView
    201     Left = 17
    202     Height = 414
    203     Top = 168
    204     Width = 567
    205     Columns = <   
    206       item
    207         Caption = 'Name'
    208       end   
    209       item
    210         Caption = 'Time start'
    211       end   
    212       item
    213         Caption = 'Time end'
    214       end   
    215       item
    216         Caption = 'First sector'
    217       end   
    218       item
    219         Caption = 'Last sector'
    220         Width = 347
    221       end>
    222     OwnerData = True
    223     ReadOnly = True
    224     RowSelect = True
    225     TabOrder = 4
    226     ViewStyle = vsReport
    227     OnData = ListView1Data
    228   end
    229   object Label11: TLabel
    230     Left = 17
    231     Height = 24
    232     Top = 141
    233     Width = 107
    234     Caption = 'Operations:'
    235     ParentColor = False
    236   end
    237   object Button3: TButton
    238     Left = 312
    239     Height = 25
    240     Top = 104
    241     Width = 112
    242     Action = AOperationOptions
    243     TabOrder = 5
    244   end
    245   object ComboBoxDrive: TComboBox
    246     Left = 8
    247     Height = 38
    248     Top = 40
    249     Width = 416
    250     ItemHeight = 0
    251     OnChange = ComboBoxDriveChange
    252     Style = csDropDownList
    253     TabOrder = 6
    254   end
    25516  object ToolBar1: TToolBar
    25617    Left = 0
    … …  
    25920    Width = 1703
    26021    Caption = 'ToolBar1'
    261     Images = ImageList1
    262     TabOrder = 7
     22    Images = Core.ImageList1
     23    TabOrder = 0
    26324    object ToolButton1: TToolButton
    26425      Left = 1
    … …  
    27738    end
    27839  end
     40  object Panel1: TPanel
     41    Left = 597
     42    Height = 883
     43    Top = 26
     44    Width = 1106
     45    Align = alClient
     46    BevelOuter = bvNone
     47    ClientHeight = 883
     48    ClientWidth = 1106
     49    TabOrder = 1
     50    object Image1: TImage
     51      Left = 8
     52      Height = 867
     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 = 883
     63    Top = 26
     64    Width = 592
     65    Align = alLeft
     66    BevelOuter = bvNone
     67    ClientHeight = 883
     68    ClientWidth = 592
     69    TabOrder = 2
     70    object ButtonScan: TButton
     71      Left = 16
     72      Height = 25
     73      Top = 104
     74      Width = 75
     75      Action = AScanStart
     76      TabOrder = 0
     77    end
     78    object Label1: TLabel
     79      Left = 15
     80      Height = 24
     81      Top = 675
     82      Width = 101
     83      Caption = 'Sector size:'
     84      ParentColor = False
     85    end
     86    object LabelSectorSize: TLabel
     87      Left = 256
     88      Height = 24
     89      Top = 675
     90      Width = 10
     91      Caption = '  '
     92      ParentColor = False
     93    end
     94    object LabelSectorCount: TLabel
     95      Left = 256
     96      Height = 24
     97      Top = 704
     98      Width = 10
     99      Caption = '  '
     100      ParentColor = False
     101    end
     102    object Label2: TLabel
     103      Left = 15
     104      Height = 24
     105      Top = 704
     106      Width = 119
     107      Caption = 'Sector count:'
     108      ParentColor = False
     109    end
     110    object LabelBlockCurrent: TLabel
     111      Left = 256
     112      Height = 24
     113      Top = 736
     114      Width = 10
     115      Caption = '  '
     116      ParentColor = False
     117    end
     118    object Label3: TLabel
     119      Left = 15
     120      Height = 24
     121      Top = 736
     122      Width = 136
     123      Caption = 'Current sector:'
     124      ParentColor = False
     125    end
     126    object Label4: TLabel
     127      Left = 15
     128      Height = 24
     129      Top = 768
     130      Width = 162
     131      Caption = 'Damaged sectors:'
     132      ParentColor = False
     133    end
     134    object LabelBlockDamaged: TLabel
     135      Left = 256
     136      Height = 24
     137      Top = 764
     138      Width = 10
     139      Caption = '  '
     140      ParentColor = False
     141    end
     142    object Label5: TLabel
     143      Left = 15
     144      Height = 24
     145      Top = 796
     146      Width = 122
     147      Caption = 'Elapsed time:'
     148      ParentColor = False
     149    end
     150    object LabelElapsedTime: TLabel
     151      Left = 256
     152      Height = 24
     153      Top = 792
     154      Width = 10
     155      Caption = '  '
     156      ParentColor = False
     157    end
     158    object Label6: TLabel
     159      Left = 15
     160      Height = 24
     161      Top = 824
     162      Width = 142
     163      Caption = 'Estimated time:'
     164      ParentColor = False
     165    end
     166    object LabelEstimatedTime: TLabel
     167      Left = 257
     168      Height = 24
     169      Top = 820
     170      Width = 10
     171      Caption = '  '
     172      ParentColor = False
     173    end
     174    object Label7: TLabel
     175      Left = 15
     176      Height = 24
     177      Top = 644
     178      Width = 160
     179      Caption = 'Sectors per Block:'
     180      ParentColor = False
     181    end
     182    object LabelSectorPerBlock: TLabel
     183      Left = 256
     184      Height = 24
     185      Top = 640
     186      Width = 10
     187      Caption = '  '
     188      ParentColor = False
     189    end
     190    object LabelIOSpeed: TLabel
     191      Left = 256
     192      Height = 24
     193      Top = 848
     194      Width = 10
     195      Caption = '  '
     196      ParentColor = False
     197    end
     198    object Label8: TLabel
     199      Left = 15
     200      Height = 24
     201      Top = 852
     202      Width = 94
     203      Caption = 'I/O speed:'
     204      ParentColor = False
     205    end
     206    object ButtonScan1: TButton
     207      Left = 440
     208      Height = 25
     209      Top = 16
     210      Width = 120
     211      Action = AProjectOptions
     212      Anchors = [akTop, akRight]
     213      TabOrder = 1
     214    end
     215    object ButtonScan2: TButton
     216      Left = 104
     217      Height = 25
     218      Top = 104
     219      Width = 75
     220      Action = AScanStop
     221      TabOrder = 2
     222    end
     223    object Label10: TLabel
     224      Left = 15
     225      Height = 24
     226      Top = 612
     227      Width = 40
     228      Caption = 'Size:'
     229      ParentColor = False
     230    end
     231    object LabelSize: TLabel
     232      Left = 256
     233      Height = 24
     234      Top = 608
     235      Width = 10
     236      Caption = '  '
     237      ParentColor = False
     238    end
     239    object Button2: TButton
     240      Left = 192
     241      Height = 25
     242      Top = 104
     243      Width = 107
     244      Action = AScanContinue
     245      TabOrder = 3
     246    end
     247    object ListView1: TListView
     248      Left = 17
     249      Height = 398
     250      Top = 168
     251      Width = 567
     252      Anchors = [akTop, akLeft, akRight]
     253      Columns = <     
     254        item
     255          Caption = 'Name'
     256          Width = 100
     257        end     
     258        item
     259          Caption = 'Time start'
     260          Width = 100
     261        end     
     262        item
     263          Caption = 'Time end'
     264          Width = 100
     265        end     
     266        item
     267          Caption = 'First sector'
     268          Width = 100
     269        end     
     270        item
     271          Caption = 'Last sector'
     272          Width = 347
     273        end>
     274      OwnerData = True
     275      PopupMenu = PopupMenu1
     276      ReadOnly = True
     277      RowSelect = True
     278      TabOrder = 4
     279      ViewStyle = vsReport
     280      OnData = ListView1Data
     281      OnSelectItem = ListView1SelectItem
     282    end
     283    object Label11: TLabel
     284      Left = 17
     285      Height = 24
     286      Top = 141
     287      Width = 107
     288      Caption = 'Operations:'
     289      ParentColor = False
     290    end
     291    object Button3: TButton
     292      Left = 312
     293      Height = 25
     294      Top = 104
     295      Width = 112
     296      Action = AOperationOptions
     297      TabOrder = 5
     298    end
     299    object ComboBoxDrive: TComboBox
     300      Left = 8
     301      Height = 38
     302      Top = 16
     303      Width = 416
     304      Anchors = [akTop, akLeft, akRight]
     305      ItemHeight = 0
     306      OnChange = ComboBoxDriveChange
     307      Style = csDropDownList
     308      TabOrder = 6
     309    end
     310    object Button1: TButton
     311      Left = 21
     312      Height = 25
     313      Top = 576
     314      Width = 75
     315      Action = AOperationAdd
     316      TabOrder = 7
     317    end
     318    object Button4: TButton
     319      Left = 112
     320      Height = 25
     321      Top = 576
     322      Width = 115
     323      Action = AOperationRemove
     324      TabOrder = 8
     325    end
     326  end
     327  object Splitter1: TSplitter
     328    Left = 592
     329    Height = 883
     330    Top = 26
     331    Width = 5
     332  end
    279333  object Timer1: TTimer
    280334    Interval = 500
    … …  
    284338  end
    285339  object ActionList1: TActionList
     340    Images = Core.ImageList1
    286341    left = 672
    287342    top = 291
    … …  
    294349      OnExecute = AScanStopExecute
    295350    end
     351    object AScanContinue: TAction
     352      Caption = 'Continue'
     353      OnExecute = AScanContinueExecute
     354    end
    296355    object AProjectOptions: TAction
    297356      Caption = 'Options'
    … …  
    317376      OnExecute = AFileSaveExecute
    318377    end
    319     object AScanContinue: TAction
    320       Caption = 'Continue'
    321       OnExecute = AScanContinueExecute
    322     end
    323378    object AFileNew: TAction
    324379      Caption = 'New'
    … …  
    329384      OnExecute = AFileCloseExecute
    330385    end
     386    object AViewToolbar: TAction
     387      Caption = 'Toolbar'
     388      OnExecute = AViewToolbarExecute
     389    end
    331390    object AOperationOptions: TAction
    332391      Caption = 'Options'
    333392      OnExecute = AOperationOptionsExecute
    334393    end
     394    object AOperationRemove: TAction
     395      Caption = 'Remove'
     396      OnExecute = AOperationRemoveExecute
     397    end
     398    object AOperationAdd: TAction
     399      Caption = 'Add'
     400      OnExecute = AOperationAddExecute
     401    end
    335402  end
    336403  object OpenDialog1: TOpenDialog
    … …  
    343410  end
    344411  object MainMenu1: TMainMenu
    345     Images = ImageList1
     412    Images = Core.ImageList1
    346413    left = 672
    347414    top = 504
    … …  
    394461      end
    395462    end
    396   end
    397   object XMLConfig1: TXMLConfig
    398     StartEmpty = False
    399     RootName = 'CONFIG'
    400     ReadOnly = False
    401     left = 672
    402     top = 160
    403   end
    404   object ImageList1: TImageList
    405     left = 672
    406     top = 573
     463    object MenuItem16: TMenuItem
     464      Caption = 'View'
     465      object MenuItem17: TMenuItem
     466        Action = AViewToolbar
     467      end
     468    end
    407469  end
    408470  object LastOpenedList1: TLastOpenedList
    409471    MaxCount = 10
    410     left = 904
     472    left = 672
    411473    top = 144
    412474  end
     475  object PopupMenu1: TPopupMenu
     476    left = 257
     477    top = 425
     478    object MenuItem18: TMenuItem
     479      Action = AOperationAdd
     480    end
     481    object MenuItem19: TMenuItem
     482      Action = AOperationRemove
     483    end
     484  end
    413485end
Note: See TracChangeset for help on using the changeset viewer.