Changeset 18 for trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

Timestamp:

Sep 5, 2012, 8:53:56 PM (12 years ago)

Author:

chronos

Message:

• Used external packages are now stored in uncompressed form rather in zipped files. This allow better package version synchronisation.

File:

• trunk/StudioModules/LDModuleProject/ULDModuleProject.pas (modified) (3 diffs)

trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

@@ -59 +59 @@
     ProjectFileType: TSourceType;
   public
-    constructor Create; override;
+    constructor Create(Owner: TComponent); override;
     procedure Install; override;
     procedure Uninstall; override;
@@ -124 +124 @@
 procedure TDataModuleProject.LoadFromRegistry(Context: TRegistryContext);
 begin
-  LastOpenedList1.LoadFromRegistry(Context.RootKey, Context.Key + '\RecentFile');
+  LastOpenedList1.LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile'));
 end;
 
 procedure TDataModuleProject.SaveToRegistry(Context: TRegistryContext);
 begin
-  LastOpenedList1.SaveToRegistry(Context.RootKey, Context.Key + '\RecentFile');
+  LastOpenedList1.SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile'));
 end;
 
@@ -165 +165 @@
 { TLDModuleProject }
 
-constructor TLDModuleProject.Create;
-begin
-  inherited Create;
+constructor TLDModuleProject.Create(Owner: TComponent);
+begin
+  inherited;
   Identification := 'Project';
   Title := SProject;