Changeset 61 for trunk/UCore.pas

Timestamp:

Dec 4, 2014, 11:26:54 AM (10 years ago)

Author:

chronos

Message:

• Added: Unit project which should handle all project related operations.
• Fixed: TScaleDPI to handle also lower then default DPI and different horizontal and vertical DPI.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList,
+  Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList, UProject,
   UCoolTranslator, UTarget, URegistry, Registry, XMLConf, Graphics, UScaleDPI;
 
@@ -22 +22 @@
   public
     ScaleDPI: TScaleDPI;
-    Modified: Boolean;
-    ProjectFileName: string;
+    Project: TProject;
     Targets: TTargetList;
     OpenProjectOnStart: Boolean;
@@ -46 +45 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
-  ScaleDPI := TScaleDPI.Create;
+  Project := TProject.Create;
+  ScaleDPI := TScaleDPI.Create(nil);
   Targets := TTargetList.Create;
   Targets.Add(TTargetInterpretter.Create);
@@ -61 +61 @@
   SaveToRegistry(HKEY(ApplicationInfo.RegistryRoot), ApplicationInfo.RegistryKey);
   Targets.Free;
+  Project.Free;
   ScaleDPI.Free;
 end;