Changeset 50 for trunk/Forms

Timestamp:

Dec 3, 2021, 7:06:14 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Contact photo was not visible under Linux.

File:

• trunk/Forms/UFormContact.pas (modified) (1 diff)

trunk/Forms/UFormContact.pas

@@ -307 +307 @@
             try
               JpegImage.LoadFromStream(Stream);
-              ImagePhoto.Picture.Bitmap.Clear;
-              ImagePhoto.Picture.Bitmap.SetSize(JpegImage.Width, JpegImage.Height);
-              ImagePhoto.Picture.Bitmap.Canvas.Draw(0, 0, JpegImage);
+              with ImagePhoto.Picture.Bitmap do begin
+                PixelFormat := pf24bit;
+                SetSize(JpegImage.Width, JpegImage.Height);
+                Canvas.Draw(0, 0, JpegImage);
+              end;
               ProfilePhotoActive := True;
             except