Changeset 70 for trunk/Forms

Timestamp:

Dec 13, 2021, 6:33:23 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Also load contact photos with format in lower case.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormContact.pas (modified) (3 diffs)

trunk

@@ -1 @@
-*.lrj
 heaptrclog.trc
 lib

@@ -1 @@
-*.lrj
 heaptrclog.trc
 lib

trunk/Forms/UFormContact.pas

@@ -416 +416 @@
         Stream.Write(Photo[1], Length(Photo));
         Stream.Position := 0;
-        if PhotoProperty.Attributes.IndexOf('JPEG') <> -1 then begin
+        if (PhotoProperty.Attributes.IndexOf('JPEG') <> -1) or
+        (PhotoProperty.Attributes.IndexOf('jpeg') <> -1) then begin
           JpegImage := TJPEGImage.Create;
           try
@@ -434 +435 @@
           end;
         end else
-        if PhotoProperty.Attributes.IndexOf('PNG') <> -1 then begin
+        if (PhotoProperty.Attributes.IndexOf('PNG') <> -1) or
+        (PhotoProperty.Attributes.IndexOf('png') <> -1) then begin
           PngImage := TPortableNetworkGraphic.Create;
           try
@@ -452 +454 @@
           end;
         end else
-        if PhotoProperty.Attributes.IndexOf('GIF') <> -1 then begin
+        if (PhotoProperty.Attributes.IndexOf('GIF') <> -1) or
+        (PhotoProperty.Attributes.IndexOf('gif') <> -1) then begin
           GifImage := TGIFImage.Create;
           try

@@ -1 @@
-*.lrj
 heaptrclog.trc
 lib