Changeset 32 for trunk/Forms/UFormContact.pas

Timestamp:

Nov 25, 2021, 11:32:55 AM (3 years ago)

Author:

chronos

Message:

• Added: Bottom column filter bar in contacts list.
• Added: Allow to sort columns in contacts list.

File:

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

trunk/Forms/UFormContact.pas

@@ -182 +182 @@
       Photo := PhotoProperty.GetDecodedValue;
       Stream := TMemoryStream.Create;
-      Stream.Write(Photo[1], Length(Photo));
-      Stream.Position := 0;
-      JpegImage := TJPEGImage.Create;
-      JpegImage.LoadFromStream(Stream);
-      ImagePhoto.Picture.Bitmap.SetSize(JpegImage.Width, JpegImage.Height);
-      ImagePhoto.Picture.Bitmap.Canvas.Draw(0, 0, JpegImage);
-      JpegImage.Free;
-      Stream.Free;
+      try
+        Stream.Write(Photo[1], Length(Photo));
+        Stream.Position := 0;
+        if PhotoProperty.Attributes.IndexOf('JPEG') <> -1 then begin
+          JpegImage := TJPEGImage.Create;
+          try
+            JpegImage.LoadFromStream(Stream);
+            ImagePhoto.Picture.Bitmap.SetSize(JpegImage.Width, JpegImage.Height);
+            ImagePhoto.Picture.Bitmap.Canvas.Draw(0, 0, JpegImage);
+          finally
+            JpegImage.Free;
+          end;
+        end else begin
+          ImagePhoto.Picture.Bitmap.LoadFromStream(Stream);
+        end;
+      finally
+        Stream.Free;
+      end;
     end;
   end;