Changeset 114 for branches/generator/Forms/UFormRules.pas

Timestamp:

Nov 27, 2017, 9:08:54 AM (7 years ago)

Author:

chronos

Message:

• Added: Common and TemplateGenerics packages.
• Added: Remember main and rules form dimensions.

Location:

branches/generator

Files:

• . (modified) (1 prop)
• Forms/UFormRules.pas (modified) (4 diffs)

branches/generator/Forms/UFormRules.pas

@@ -31 +31 @@
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -54 +55 @@
 
 uses
-  UFormRule;
+  UFormRule, UCore;
 
 { TFormRules }
@@ -60 +61 @@
 procedure TFormRules.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
   ReloadList;
   UpdateInterface;
@@ -98 +100 @@
     Rules.Remove(TRule(Item.Data));
   ReloadList;
+end;
+
+procedure TFormRules.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
 end;