Changeset 131 for trunk/Forms

Timestamp:

Apr 9, 2022, 12:13:45 PM (3 years ago)

Author:

chronos

Message:

• Modified: Contact image unit moved into VCard package.

Location:

trunk/Forms

Files:

• UFormContact.pas (modified) (1 diff)
• UFormImage.pas (modified) (1 diff)

trunk/Forms/UFormContact.pas

@@ -814 +814 @@
   FContact := nil;
   FormProperties := TFormProperties.Create(nil);
-  FPhoto := TContactImage.Create;
+  FPhoto := TContactImage.Create(nil);
   FPhoto.FieldIndex := cfPhoto;
   FPhoto.OnChange := PhotoChange;

trunk/Forms/UFormImage.pas

@@ -60 +60 @@
   Core.ThemeManager1.UseTheme(Self);
 
-  Image := TContactImage.Create;
+  Image := TContactImage.Create(nil);
   Image.OnChange := ImageChange;
 end;