Changeset 133 for trunk/Forms/UFormTargets.pas

Timestamp:

Mar 4, 2022, 10:57:08 PM (3 years ago)

Author:

chronos

Message:

• Added: Compile multiple action for compilation of code with mutliple compilers at once.

File:

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

trunk/Forms/UFormTargets.pas

@@ -14 +14 @@
   TFormTargets = class(TForm)
     ListView1: TListView;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -39 +40 @@
 procedure TFormTargets.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
   ReloadList;
 end;
@@ -46 +48 @@
   Core.Translator.TranslateComponentRecursive(Self);
   Core.ThemeManager.UseTheme(Self);
+end;
+
+procedure TFormTargets.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  Core.PersistentForm1.Save(Self);
 end;