Changeset 162 for trunk/Forms/FormContact.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Forms/FormContact.pas (modified) (5 diffs)

trunk/Forms/FormContact.pas

@@ -7 +7 @@
   ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, VCard, LCLIntf,
   FormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}ContactImage,
-  ubarcodes;
+  ubarcodes, FormEx;
 
 type
@@ -13 +13 @@
   { TFormContact }
 
-  TFormContact = class(TForm)
+  TFormContact = class(TFormEx)
     APhotoSetUrl: TAction;
     APhotoShow: TAction;
@@ -325 +325 @@
   if Visible then LastMouse.WinControl := PageControlContact.ActivePage;
   {$ENDIF}
-  Core.Core.PersistentForm1.Load(Self);
   PhotoChange(nil);
 
@@ -695 +694 @@
 
   Core.Core.LastContactTabIndex := PageControlContact.TabIndex;
-  Core.Core.PersistentForm1.Save(Self);
 end;
 
@@ -837 +835 @@
 procedure TFormContact.FormCreate(Sender: TObject);
 begin
-  Core.Core.Translator.TranslateComponentRecursive(Self);
-  Core.Core.ThemeManager1.UseTheme(Self);
   FContact := nil;
   FormProperties := TFormProperties.Create(nil);