Changeset 22 for trunk/Form/UFormMain.pas

Timestamp:

Apr 4, 2016, 12:24:37 AM (8 years ago)

Author:

chronos

Message:

• Modified: Show name in operation list.
• Fixed: Store scan run mode in project file.

File:

• trunk/Form/UFormMain.pas (modified) (3 diffs)

trunk/Form/UFormMain.pas

@@ -185 +185 @@
   if (Item.Index >= 0) and (Item.Index < Scans.Count) then
   with TDriveScan(Scans[Item.Index]) do begin
-    Item.Caption := IntToStr(Item.Index);
+    Item.Caption := GetName;
     Item.Data := TDriveScan(Scans[Item.Index]);
     Item.SubItems.Add(DateTimeToStr(TimeStart));
@@ -309 +309 @@
   Core.Project.ScanProfile.LoadFromDriveInfo(Core.Project.DriveInfo);
 
+
   Redraw;
   UpdateInterface;
@@ -357 +358 @@
     Scans.Add(NewOperation);
     CurrentScan := TDriveScan(Scans.Last);
+    CurrentScan.LoadProfile(ScanProfile);
     ReloadOperationList;
     Redraw;