Changeset 21 for trunk/Form/UFormMain.pas

Timestamp:

Apr 2, 2016, 11:12:47 PM (9 years ago)

Author:

chronos

Message:

• Added: Suport for physical drive enumeration under Windows.

Location:

trunk

Files:

• . (modified) (1 prop)
• Form/UFormMain.pas (modified) (2 diffs)

trunk

@@ -2 +2 @@
 lib
 CoolDisk.lps
+CoolDisk.exe

@@ -2 +2 @@
 lib
 CoolDisk.lps
+CoolDisk.exe

trunk/Form/UFormMain.pas

@@ -242 +242 @@
     DriveInfo.Assign(TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]));
     Modified := True;
-    Core.Project.ScanProfile.SectorCount := DriveInfo.SectorCount;
-    Core.Project.ScanProfile.SectorStart := 0;
-    Core.Project.ScanProfile.SectorEnd := Core.Project.ScanProfile.SectorCount - 1;
+    Core.Project.ScanProfile.LoadFromDriveInfo(DriveInfo);
     UpdateInterface;
     Redraw;
@@ -307 +305 @@
   ComboBoxDrive.ItemIndex := Core.DriveList.IndexOf(Core.DriveList.FindByModel(Core.Project.DriveInfo.Model));
   if (ComboBoxDrive.ItemIndex = -1) and (ComboBoxDrive.Items.Count > 0) then ComboBoxDrive.ItemIndex := 0;
-  ComboBoxDriveChange(Self);
+  if ComboBoxDrive.ItemIndex <> -1 then
+    Core.Project.DriveInfo.Assign(TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]));
+  Core.Project.ScanProfile.LoadFromDriveInfo(Core.Project.DriveInfo);
 
   Redraw;

@@ -2 +2 @@
 lib
 CoolDisk.lps
+CoolDisk.exe