Changeset 167 for branches/generator/UCore.pas

Timestamp:

Aug 9, 2018, 3:43:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Fixed: Remember forms dimensions after application restart.

File:

• branches/generator/UCore.pas (modified) (3 diffs)

branches/generator/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UGrammer,
-  UPersistentForm, ULastOpenedList;
+  UPersistentForm, ULastOpenedList, UApplicationInfo;
 
 type
@@ -14 +14 @@
 
   TCore = class(TDataModule)
+    ApplicationInfo1: TApplicationInfo;
     ImageList1: TImageList;
     PersistentForm1: TPersistentForm;
@@ -69 +70 @@
 procedure TCore.Initialize;
 begin
+  PersistentForm1.RegistryContext := ApplicationInfo1.GetRegistryContext;
   LoadConfig;
   FormMain.LoadConfig(XMLConfig1);