Changeset 59 for trunk/Forms

Timestamp:

Dec 8, 2021, 11:33:52 PM (2 years ago)

Author:

chronos

Message:

• Added: Support for GIF images for contact photo.
• Fixed: Saving multi-line values.
• Fixed: Escaping combined values with backslash symbol.

File:

• trunk/Forms/UFormContact.pas (modified) (4 diffs)

trunk/Forms/UFormContact.pas

@@ -288 +288 @@
   Stream: TMemoryStream;
   JpegImage: TJpegImage;
+  GifImage: TGIFImage;
   PngImage: TPortableNetworkGraphic;
 begin
@@ -344 +345 @@
           PngImage.Free;
         end;
+      end else
+      if PhotoProperty.Attributes.IndexOf('GIF') <> -1 then begin
+        GifImage := TGIFImage.Create;
+        try
+          try
+            GifImage.SetSize(ImagePhoto.Picture.Bitmap.Width, ImagePhoto.Picture.Bitmap.Height);
+            GifImage.Canvas.Draw(0, 0, ImagePhoto.Picture.Bitmap);
+            GifImage.SaveToStream(Stream);
+          except
+          end;
+        finally
+          GifImage.Free;
+        end;
       end else begin
         try
@@ -372 +386 @@
   JpegImage: TJpegImage;
   PngImage: TPortableNetworkGraphic;
+  GifImage: TGIFImage;
   Stream: TMemoryStream;
   PhotoProperty: TContactProperty;
@@ -436 +451 @@
             PngImage.Free;
           end;
+        end else
+        if PhotoProperty.Attributes.IndexOf('GIF') <> -1 then begin
+          GifImage := TGIFImage.Create;
+          try
+            try
+              GifImage.LoadFromStream(Stream);
+              with ImagePhoto.Picture.Bitmap do begin
+                PixelFormat := pf24bit;
+                SetSize(GifImage.Width, GifImage.Height);
+                Canvas.Draw(0, 0, GifImage);
+              end;
+              ProfilePhotoActive := True;
+            except
+              ProfilePhotoActive := False;
+            end;
+          finally
+            GifImage.Free;
+          end;
         end else begin
           try