Changeset 13 for trunk/Form/UFormProject.pas

Timestamp:

Apr 2, 2016, 1:06:34 PM (8 years ago)

Author:

chronos

Message:

• Modified: All drive dimensions are now stored in project file.
• Added: Confirmation dialog for saving project on application exit.
• Modified: ComboBox for selection of current drive now behaves correctly to update project parameters.

File:

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

trunk/Form/UFormProject.pas

@@ -16 +16 @@
     Button1: TButton;
     Button2: TButton;
-    Edit1: TEdit;
+    ComboBoxDrive: TComboBox;
+    EditName: TEdit;
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    LabelSectorCount: TLabel;
     SpinEditSectorSize: TSpinEdit;
   private
@@ -33 +37 @@
 {$R *.lfm}
 
+uses
+  UFormMain;
+
 { TFormProject }
 
 procedure TFormProject.Load(Project: TProject);
 begin
-  Edit1.Text := Project.Name;
-  SpinEditSectorSize.Value := Project.SectorSize;
+  FormMain.DriveList.LoadToStrings(ComboBoxDrive.Items);
+  EditName.Text := Project.Name;
+  SpinEditSectorSize.Value := Project.DriveInfo.SectorSize;
+  ComboBoxDrive.ItemIndex := FormMain.DriveList.IndexOf(FormMain.DriveList.FindByModel(Project.DriveInfo.Model));
 end;
 
 procedure TFormProject.Save(Project: TProject);
 begin
-  Project.Name := Edit1.Text;
-  Project.SectorSize := SpinEditSectorSize.Value;
+  Project.Name := EditName.Text;
+  Project.DriveInfo.SectorSize := SpinEditSectorSize.Value;
 end;