Changeset 162 for trunk/Forms/FormCompareSideBySide.pas

Timestamp:

Jun 30, 2023, 10:01:24 PM (17 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Forms/FormCompareSideBySide.pas (modified) (6 diffs)

trunk/Forms/FormCompareSideBySide.pas

@@ -7 +7 @@
   VCard, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit,
   SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, Common,
-  SynEditEx;
+  SynEditEx, FormEx;
 
 type
@@ -13 +13 @@
   { TFormCompareSideBySide }
 
-  TFormCompareSideBySide = class(TForm)
+  TFormCompareSideBySide = class(TFormEx)
     ASwitchSides: TAction;
     AReloadFiles: TAction;
@@ -41 +41 @@
     procedure ASwitchSidesExecute(Sender: TObject);
     procedure FormActivate(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -80 +79 @@
 
 uses
-  Core, VCardFile;
+  VCardFile;
 
 { TFormCompareSideBySide }
-
-procedure TFormCompareSideBySide.FormClose(Sender: TObject; var CloseAction: TCloseAction
-  );
-begin
-  Core.Core.PersistentForm1.Save(Self);
-end;
 
 procedure TFormCompareSideBySide.ASwitchSidesExecute(Sender: TObject);
@@ -143 +136 @@
 procedure TFormCompareSideBySide.FormCreate(Sender: TObject);
 begin
-  Core.Core.Translator.TranslateComponentRecursive(Self);
-  Core.Core.ThemeManager1.UseTheme(Self);
   Diff := TDiff.Create(Self);
 
@@ -196 +187 @@
 procedure TFormCompareSideBySide.FormShow(Sender: TObject);
 begin
-  Core.Core.PersistentForm1.Load(Self);
   UpdateInterface;
   ReloadContent;