Changeset 16 for trunk/UCore.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/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UProject, UPhysDrive, UPersistentForm;
+  Classes, SysUtils, XMLConf, FileUtil, Controls, UProject, UPhysDrive,
+  UPersistentForm;
 
 type
@@ -13 +14 @@
 
   TCore = class(TDataModule)
+    ImageList1: TImageList;
     PersistentForm1: TPersistentForm;
+    XMLConfig1: TXMLConfig;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -36 +39 @@
   DriveList := TDriveList.Create;
   Project := nil;
+  XMLConfig1.Filename := 'config.xml';
 end;