Changeset 123 for trunk/Forms/UFormImportFormats.pas

Timestamp:

Nov 26, 2016, 11:33:19 AM (7 years ago)

Author:

chronos

Message:

• Added: Remember width of list view columns after closing the application.

File:

• trunk/Forms/UFormImportFormats.pas (modified) (3 diffs)

trunk/Forms/UFormImportFormats.pas

@@ -30 +30 @@
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -103 +104 @@
 procedure TFormImportFormats.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
   UpdateList;
   Core.ScaleDPI1.ScaleControl(ToolBar1, Core.ScaleDPI1.DesignDPI);
@@ -177 +179 @@
 end;
 
+procedure TFormImportFormats.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 procedure TFormImportFormats.FormCreate(Sender: TObject);
 var