Changeset 73 for trunk/UCore.pas

Timestamp:

Oct 27, 2016, 3:00:47 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember position and size of main form after close of application.
• Modified: Updated Common package to latest version.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList, UProject,
-  UCoolTranslator, UTarget, URegistry, Registry, Graphics, UScaleDPI;
+  UCoolTranslator, UTarget, URegistry, Registry, Graphics, UScaleDPI,
+  UPersistentForm;
 
 type
@@ -17 +18 @@
     CoolTranslator1: TCoolTranslator;
     LastOpenedList: TLastOpenedList;
+    PersistentForm1: TPersistentForm;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -93 +95 @@
   LastOpenedList.LoadFromRegistry(RegContext(Root, Key));
   Targets.LoadFromRegistry(Root, Key);
+  PersistentForm1.RegistryContext := RegContext(Root, Key + '\Forms');
 end;