Changeset 70


Ignore:
Timestamp:
Dec 13, 2021, 6:33:23 PM (2 years ago)
Author:
chronos
Message:
  • Fixed: Also load contact photos with format in lower case.
Location:
trunk
Files:
2 added
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        1 *.lrj
        21heaptrclog.trc
        32lib

  • trunk/Forms/UFormContact.pas

    r59 r70  
    416416        Stream.Write(Photo[1], Length(Photo));
    417417        Stream.Position := 0;
    418         if PhotoProperty.Attributes.IndexOf('JPEG') <> -1 then begin
     418        if (PhotoProperty.Attributes.IndexOf('JPEG') <> -1) or
     419        (PhotoProperty.Attributes.IndexOf('jpeg') <> -1) then begin
    419420          JpegImage := TJPEGImage.Create;
    420421          try
    … …  
    434435          end;
    435436        end else
    436         if PhotoProperty.Attributes.IndexOf('PNG') <> -1 then begin
     437        if (PhotoProperty.Attributes.IndexOf('PNG') <> -1) or
     438        (PhotoProperty.Attributes.IndexOf('png') <> -1) then begin
    437439          PngImage := TPortableNetworkGraphic.Create;
    438440          try
    … …  
    452454          end;
    453455        end else
    454         if PhotoProperty.Attributes.IndexOf('GIF') <> -1 then begin
     456        if (PhotoProperty.Attributes.IndexOf('GIF') <> -1) or
     457        (PhotoProperty.Attributes.IndexOf('gif') <> -1) then begin
    455458          GifImage := TGIFImage.Create;
    456459          try
Note: See TracChangeset for help on using the changeset viewer.