Changeset 48 for trunk/Forms

Timestamp:

Dec 3, 2021, 2:07:27 PM (3 years ago)

Author:

chronos

Message:

• Added: Show default profile photo if contact image is not specified.

Location:

trunk/Forms

Files:

• UFormContact.lfm (modified) (1 diff)
• UFormContact.pas (modified) (7 diffs)

trunk/Forms/UFormContact.lfm

@@ -137 +137 @@
         Top = 16
         Width = 207
+        Center = True
         PopupMenu = PopupMenuPhoto
         Proportional = True

trunk/Forms/UFormContact.pas

@@ -147 +147 @@
     FOnPrevious: TNotifyEvent;
     FormProperties: TFormProperties;
+    ProfilePhotoActive: Boolean;
+    procedure DefaultPhoto;
     procedure SetContact(AValue: TContact);
     procedure ReloadAllPropertiesTab;
@@ -210 +212 @@
 
   // Photo
-  if (ImagePhoto.Picture.Bitmap.Width <> 0) and (ImagePhoto.Picture.Bitmap.Height <> 0) then begin
+  if ProfilePhotoActive then begin
     PhotoProperty := Contact.GetProperty(cfPhoto);
     if not Assigned(PhotoProperty) then begin
@@ -292 +294 @@
               ImagePhoto.Picture.Bitmap.SetSize(JpegImage.Width, JpegImage.Height);
               ImagePhoto.Picture.Bitmap.Canvas.Draw(0, 0, JpegImage);
+              ProfilePhotoActive := True;
             except
+              DefaultPhoto;
             end;
           finally
@@ -300 +304 @@
           try
             ImagePhoto.Picture.LoadFromStream(Stream);
+            ProfilePhotoActive := True;
           except
+            DefaultPhoto;
           end;
         end;
@@ -306 +312 @@
         Stream.Free;
       end;
-    end;
-  end;
+    end else DefaultPhoto;
+  end else DefaultPhoto;
 end;
 
@@ -400 +406 @@
 end;
 
+procedure TFormContact.DefaultPhoto;
+begin
+  ProfilePhotoActive := False;
+  ImagePhoto.Picture.Assign(Core.GetProfileImage.Picture);
+end;
+
 procedure TFormContact.SetContact(AValue: TContact);
 begin
@@ -458 +470 @@
 procedure TFormContact.UpdateInterface;
 begin
-  APhotoSave.Enabled := (ImagePhoto.Picture.Bitmap.Width <> 0) and
-    (ImagePhoto.Picture.Bitmap.Height <> 0);
+  APhotoSave.Enabled := ProfilePhotoActive;
 end;