![(please configure the [header_logo] section in trac.ini)](/CoolDisk/chrome/site/your_project_logo.png){kind=logo}
Changeset 24 for trunk/Form
- Timestamp:
- Apr 4, 2016, 10:05:30 PM (9 years ago)
- Location:
- trunk/Form
- Files:
-
- 2 edited
-
UFormMain.lfm (modified) (4 diffs)
-
UFormMain.pas (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Form/UFormMain.lfm
r22 r24 1 1 object FormMain: TFormMain 2 2 Left = 433 3 Height = 9414 Top = 3353 Height = 1072 4 Top = 204 5 5 Width = 1703 6 6 Caption = 'CoolDisk' 7 ClientHeight = 9097 ClientHeight = 1040 8 8 ClientWidth = 1703 9 9 Menu = MainMenu1 … … 40 40 object Panel1: TPanel 41 41 Left = 597 42 Height = 88342 Height = 1014 43 43 Top = 26 44 44 Width = 1106 45 45 Align = alClient 46 46 BevelOuter = bvNone 47 ClientHeight = 88347 ClientHeight = 1014 48 48 ClientWidth = 1106 49 49 TabOrder = 1 50 50 object Image1: TImage 51 51 Left = 8 52 Height = 86752 Height = 998 53 53 Top = 8 54 54 Width = 1090 … … 60 60 object Panel2: TPanel 61 61 Left = 0 62 Height = 88362 Height = 1014 63 63 Top = 26 64 64 Width = 592 65 65 Align = alLeft 66 66 BevelOuter = bvNone 67 ClientHeight = 88367 ClientHeight = 1014 68 68 ClientWidth = 592 69 69 TabOrder = 2 70 object ButtonScan: TButton 71 Left = 16 72 Height = 25 73 Top = 104 74 Width = 75 75 Action = AScanStart 70 object Panel3: TPanel 71 Left = 0 72 Height = 379 73 Top = 0 74 Width = 592 75 Align = alTop 76 BevelOuter = bvNone 77 ClientHeight = 379 78 ClientWidth = 592 76 79 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 80 object Label1: TLabel 81 Left = 16 82 Height = 24 83 Top = 179 84 Width = 101 85 Caption = 'Sector size:' 86 ParentColor = False 87 end 88 object LabelSectorSize: TLabel 89 Left = 257 90 Height = 24 91 Top = 179 92 Width = 10 93 Caption = ' ' 94 ParentColor = False 95 end 96 object LabelSectorCount: TLabel 97 Left = 257 98 Height = 24 99 Top = 208 100 Width = 10 101 Caption = ' ' 102 ParentColor = False 103 end 104 object Label2: TLabel 105 Left = 16 106 Height = 24 107 Top = 208 108 Width = 119 109 Caption = 'Sector count:' 110 ParentColor = False 111 end 112 object LabelBlockCurrent: TLabel 113 Left = 257 114 Height = 24 115 Top = 240 116 Width = 10 117 Caption = ' ' 118 ParentColor = False 119 end 120 object Label3: TLabel 121 Left = 16 122 Height = 24 123 Top = 240 124 Width = 136 125 Caption = 'Current sector:' 126 ParentColor = False 127 end 128 object Label4: TLabel 129 Left = 16 130 Height = 24 131 Top = 272 132 Width = 162 133 Caption = 'Damaged sectors:' 134 ParentColor = False 135 end 136 object LabelBlockDamaged: TLabel 137 Left = 257 138 Height = 24 139 Top = 268 140 Width = 10 141 Caption = ' ' 142 ParentColor = False 143 end 144 object Label5: TLabel 145 Left = 16 146 Height = 24 147 Top = 300 148 Width = 122 149 Caption = 'Elapsed time:' 150 ParentColor = False 151 end 152 object LabelElapsedTime: TLabel 153 Left = 257 154 Height = 24 155 Top = 296 156 Width = 10 157 Caption = ' ' 158 ParentColor = False 159 end 160 object Label6: TLabel 161 Left = 16 162 Height = 24 163 Top = 328 164 Width = 142 165 Caption = 'Estimated time:' 166 ParentColor = False 167 end 168 object LabelEstimatedTime: TLabel 169 Left = 258 170 Height = 24 171 Top = 324 172 Width = 10 173 Caption = ' ' 174 ParentColor = False 175 end 176 object Label7: TLabel 177 Left = 16 178 Height = 24 179 Top = 148 180 Width = 160 181 Caption = 'Sectors per Block:' 182 ParentColor = False 183 end 184 object LabelSectorPerBlock: TLabel 185 Left = 257 186 Height = 24 187 Top = 144 188 Width = 10 189 Caption = ' ' 190 ParentColor = False 191 end 192 object LabelIOSpeed: TLabel 193 Left = 257 194 Height = 24 195 Top = 352 196 Width = 10 197 Caption = ' ' 198 ParentColor = False 199 end 200 object Label8: TLabel 201 Left = 16 202 Height = 24 203 Top = 356 204 Width = 94 205 Caption = 'I/O speed:' 206 ParentColor = False 207 end 208 object Label10: TLabel 209 Left = 16 210 Height = 24 211 Top = 116 212 Width = 40 213 Caption = 'Size:' 214 ParentColor = False 215 end 216 object LabelSize: TLabel 217 Left = 257 218 Height = 24 219 Top = 112 220 Width = 10 221 Caption = ' ' 222 ParentColor = False 223 end 224 object ButtonScan: TButton 225 Left = 16 226 Height = 25 227 Top = 72 228 Width = 75 229 Action = AScanStart 230 TabOrder = 0 231 end 232 object ButtonScan1: TButton 233 Left = 464 234 Height = 25 235 Top = 24 236 Width = 120 237 Action = AProjectOptions 238 Anchors = [akTop, akRight] 239 TabOrder = 1 240 end 241 object ButtonScan2: TButton 242 Left = 104 243 Height = 25 244 Top = 72 245 Width = 75 246 Action = AScanStop 247 TabOrder = 2 248 end 249 object Button2: TButton 250 Left = 192 251 Height = 25 252 Top = 72 253 Width = 107 254 Action = AScanContinue 255 TabOrder = 3 256 end 257 object Button3: TButton 258 Left = 312 259 Height = 25 260 Top = 72 261 Width = 112 262 Action = AOperationOptions 263 TabOrder = 4 264 end 265 object ComboBoxDrive: TComboBox 266 Left = 8 267 Height = 38 268 Top = 16 269 Width = 440 270 Anchors = [akTop, akLeft, akRight] 271 ItemHeight = 0 272 OnChange = ComboBoxDriveChange 273 Style = csDropDownList 274 TabOrder = 5 275 end 276 end 277 object Splitter2: TSplitter 278 Cursor = crVSplit 279 Left = 0 280 Height = 5 281 Top = 379 282 Width = 592 283 Align = alTop 284 ResizeAnchor = akTop 285 end 286 object Panel4: TPanel 287 Left = 0 288 Height = 630 289 Top = 384 290 Width = 592 291 Align = alClient 292 BevelOuter = bvNone 293 ClientHeight = 630 294 ClientWidth = 592 221 295 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 296 object ListView1: TListView 297 Left = 16 298 Height = 533 299 Top = 48 300 Width = 569 301 Anchors = [akTop, akLeft, akRight, akBottom] 302 Columns = < 303 item 304 Caption = 'Name' 305 Width = 100 306 end 307 item 308 Caption = 'Time start' 309 Width = 100 310 end 311 item 312 Caption = 'Time end' 313 Width = 100 314 end 315 item 316 Caption = 'First sector' 317 Width = 100 318 end 319 item 320 Caption = 'Last sector' 321 Width = 347 322 end> 323 OwnerData = True 324 PopupMenu = PopupMenu1 325 ReadOnly = True 326 RowSelect = True 327 TabOrder = 0 328 ViewStyle = vsReport 329 OnData = ListView1Data 330 OnSelectItem = ListView1SelectItem 331 end 332 object Label11: TLabel 333 Left = 16 334 Height = 24 335 Top = 16 336 Width = 107 337 Caption = 'Operations:' 338 ParentColor = False 339 end 340 object Button1: TButton 341 Left = 19 342 Height = 25 343 Top = 592 344 Width = 104 345 Action = AOperationAdd 346 Anchors = [akLeft, akBottom] 347 TabOrder = 1 348 end 349 object Button4: TButton 350 Left = 144 351 Height = 25 352 Top = 592 353 Width = 115 354 Action = AOperationRemove 355 Anchors = [akLeft, akBottom] 356 TabOrder = 2 357 end 325 358 end 326 359 end 327 360 object Splitter1: TSplitter 328 361 Left = 592 329 Height = 883362 Height = 1014 330 363 Top = 26 331 364 Width = 5 … … 474 507 end 475 508 object PopupMenu1: TPopupMenu 476 left = 257477 top = 425509 left = 320 510 top = 664 478 511 object MenuItem18: TMenuItem 479 512 Action = AOperationAdd -
trunk/Form/UFormMain.pas
r22 r24 85 85 Panel1: TPanel; 86 86 Panel2: TPanel; 87 Panel3: TPanel; 88 Panel4: TPanel; 87 89 PopupMenu1: TPopupMenu; 88 90 SaveDialog1: TSaveDialog; 89 91 Splitter1: TSplitter; 92 Splitter2: TSplitter; 90 93 Timer1: TTimer; 91 94 ToolBar1: TToolBar; … … 359 362 CurrentScan := TDriveScan(Scans.Last); 360 363 CurrentScan.LoadProfile(ScanProfile); 364 CurrentScan.Mode := rmNone; 361 365 ReloadOperationList; 362 366 Redraw;
Note:
See TracChangeset
for help on using the changeset viewer.
