Changeset 162 for trunk/Forms/FormContacts.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/Forms/FormContacts.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, VCard, ListViewSort, LazUTF8, Clipbrd, RegistryEx,
+  Menus, ActnList, VCard, ListViewSort, LazUTF8, Clipbrd, RegistryEx, FormEx,
   Generics.Collections;
 
@@ -12 +12 @@
   { TFormContacts }
 
-  TFormContacts = class(TForm)
+  TFormContacts = class(TFormEx)
     AAdd: TAction;
     AClone: TAction;
@@ -385 +385 @@
   LoadFromRegistry(Context);
   UpdateColumns;
-  Core.Core.Translator.TranslateComponentRecursive(Self);
-  Core.Core.ThemeManager1.UseTheme(Self);
-  Core.Core.PersistentForm1.Load(Self);
   ReloadList;
   UpdateInterface;
@@ -672 +669 @@
 begin
   SaveToRegistry(Context);
-  Core.Core.PersistentForm1.Save(Self);
 end;