Changeset 3 for trunk/UFormMain.pas

Timestamp:

Apr 20, 2016, 9:25:55 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember last form position.

File:

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

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, Contnrs;
+  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, Contnrs,
+  URegistry, Registry;
 
 type
@@ -23 +24 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    PersistentForm1: TPersistentForm;
     PopupMenu1: TPopupMenu;
     TrayIcon1: TTrayIcon;
@@ -73 +75 @@
 begin
   AcronymDB.SaveToFile(DefaultFileName);
+  PersistentForm1.Save(Self);
 end;
 
@@ -103 +106 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
+const
+  DefaultRegKey = '\Software\Acronym Decoder';
 begin
+  PersistentForm1.RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
+  PersistentForm1.Load(Self);
   if FileExists(DefaultFileName) then
     AcronymDB.LoadFromFile(DefaultFileName);