Changeset 10 for trunk/UFormProject.pas

Timestamp:

Apr 2, 2016, 12:02:59 AM (8 years ago)

Author:

chronos

Message:

• Added support for continue previous stopped scan.
• Modified: Allow to scan only part of drive by specifiing start and end sector.
• Added: Table showing list of operations in project.
• Added: Allow to create new project and close project.

File:

• trunk/UFormProject.pas (modified) (2 diffs)

trunk/UFormProject.pas

@@ -16 +16 @@
     Button1: TButton;
     Button2: TButton;
+    Edit1: TEdit;
     Label1: TLabel;
     Label2: TLabel;
-    Label3: TLabel;
     SpinEditSectorSize: TSpinEdit;
-    SpinEditFirstSector: TSpinEdit;
-    SpinEditLastSector: TSpinEdit;
   private
-    { private declarations }
   public
     procedure Load(Project: TProject);
@@ -40 +37 @@
 procedure TFormProject.Load(Project: TProject);
 begin
+  Edit1.Text := Project.Name;
   SpinEditSectorSize.Value := Project.SectorSize;
-  SpinEditFirstSector.Value := Project.FirstSector;
-  SpinEditLastSector.Value := Project.LastSector;
 end;
 
 procedure TFormProject.Save(Project: TProject);
 begin
+  Project.Name := Edit1.Text;
   Project.SectorSize := SpinEditSectorSize.Value;
-  Project.FirstSector := SpinEditFirstSector.Value;
-  Project.LastSector := SpinEditLastSector.Value;
 end;