Changeset 54 for trunk/Forms/UFormContact.pas

Timestamp:

Dec 8, 2021, 2:29:29 PM (2 years ago)

Author:

chronos

Message:

• Added: Support for PNG encoded contact photos.
• Added: Clone button on contact fields toolbar.
• Added: Show open file dialog on photo click.

File:

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

trunk/Forms/UFormContact.pas

@@ -206 +206 @@
   Stream: TMemoryStream;
   JpegImage: TJpegImage;
+  PngImage: TPortableNetworkGraphic;
 begin
   Contact.Fields[cfFullName] := EditFullName.Text;
@@ -247 +248 @@
           JpegImage.Free;
         end;
+      end else
+      if PhotoProperty.Attributes.IndexOf('PNG') <> -1 then begin
+        PngImage := TPortableNetworkGraphic.Create;
+        try
+          try
+            PngImage.SetSize(ImagePhoto.Picture.Bitmap.Width, ImagePhoto.Picture.Bitmap.Height);
+            PngImage.Canvas.Draw(0, 0, ImagePhoto.Picture.Bitmap);
+            PngImage.SaveToStream(Stream);
+          except
+          end;
+        finally
+          PngImage.Free;
+        end;
       end else begin
         try
@@ -274 +288 @@
   Photo: string;
   JpegImage: TJpegImage;
+  PngImage: TPortableNetworkGraphic;
   Stream: TMemoryStream;
   PhotoProperty: TContactProperty;
@@ -319 +334 @@
             JpegImage.Free;
           end;
+        end else
+        if PhotoProperty.Attributes.IndexOf('PNG') <> -1 then begin
+          PngImage := TPortableNetworkGraphic.Create;
+          try
+            try
+              PngImage.LoadFromStream(Stream);
+              with ImagePhoto.Picture.Bitmap do begin
+                PixelFormat := pf24bit;
+                SetSize(PngImage.Width, PngImage.Height);
+                Canvas.Draw(0, 0, PngImage);
+              end;
+              ProfilePhotoActive := True;
+            except
+              ProfilePhotoActive := False;
+            end;
+          finally
+            PngImage.Free;
+          end;
         end else begin
           try