Changeset 15 for trunk/Form/UFormProject.pas

Timestamp:

Apr 2, 2016, 1:39:42 PM (8 years ago)

Author:

chronos

Message:

• Added: UCore unit as main application unit. UFormMain serve for as main form interface.
• Added: Remember main form dimensions.

File:

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

trunk/Form/UFormProject.pas

@@ -38 +38 @@
 
 uses
-  UFormMain;
+  UCore;
 
 { TFormProject }
@@ -44 +44 @@
 procedure TFormProject.Load(Project: TProject);
 begin
-  FormMain.DriveList.LoadToStrings(ComboBoxDrive.Items);
+  Core.DriveList.LoadToStrings(ComboBoxDrive.Items);
   EditName.Text := Project.Name;
   SpinEditSectorSize.Value := Project.DriveInfo.SectorSize;
-  ComboBoxDrive.ItemIndex := FormMain.DriveList.IndexOf(FormMain.DriveList.FindByModel(Project.DriveInfo.Model));
+  ComboBoxDrive.ItemIndex := Core.DriveList.IndexOf(Core.DriveList.FindByModel(Project.DriveInfo.Model));
 end;