Changeset 28 for trunk/Forms/UFormNew.pas

Timestamp:

Dec 22, 2016, 6:01:41 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember forms dimensions.
• Added: Remember recent opened files.

File:

• trunk/Forms/UFormNew.pas (modified) (4 diffs)

trunk/Forms/UFormNew.pas

@@ -26 +26 @@
     SpinEditWidth: TSpinEdit;
     SpinEditHeight: TSpinEdit;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure SpinEditWidthChange(Sender: TObject);
@@ -40 +41 @@
 
 {$R *.lfm}
+
+uses
+  UCore;
 
 { TFormNew }
@@ -57 +61 @@
   I: Integer;
 begin
+  Core.PersistentForm1.Load(Self);
+
   ComboBoxColorFormat.Clear;
   for I := 0 to ColorFormatManager.FormatCount - 1 do begin
@@ -71 +77 @@
 end;
 
+procedure TFormNew.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 end.