Changeset 16 for trunk/UProject.pas

Timestamp:

Apr 2, 2016, 8:18:30 PM (8 years ago)

Author:

chronos

Message:

• Added: Ability to add and remove scan operation.
• Modified: XMLConfig moved from TMainForm to TCore as more proper place for general object.

File:

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

trunk/UProject.pas

@@ -15 +15 @@
   TProject = class
   private
+    FCurrentScan: TDriveScan;
     function GetCurrentScan: TDriveScan;
     function GetSectorCount: Integer;
@@ -28 +29 @@
     procedure SaveToFile(FileName: string);
     property SectorCount: Integer read GetSectorCount;
-    property CurrentScan: TDriveScan read GetCurrentScan;
+    property CurrentScan: TDriveScan read FCurrentScan write FCurrentScan;
   end;