Changeset 70
- Timestamp:
- Dec 13, 2021, 6:33:23 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 2 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 1 *.lrj2 1 heaptrclog.trc 3 2 lib
-
- Property svn:ignore
-
trunk/Forms/UFormContact.pas
r59 r70 416 416 Stream.Write(Photo[1], Length(Photo)); 417 417 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 419 420 JpegImage := TJPEGImage.Create; 420 421 try … … 434 435 end; 435 436 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 437 439 PngImage := TPortableNetworkGraphic.Create; 438 440 try … … 452 454 end; 453 455 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 455 458 GifImage := TGIFImage.Create; 456 459 try
Note:
See TracChangeset
for help on using the changeset viewer.