paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: improve TPicture.LoadFromFile - if there is no extension then detect the file format based on file content (issue #0018453)

Browse Source 
git-svn-id: trunk@28943 -
This commit is contained in:
paul 2011-01-11 02:45:12 +00:00
parent 18c9e1f4f3
commit 2b1ccdaa38
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/picture.inc
View File

@ -511,7 +511,10 @@ begin
Stream := TFileStream.Create(UTF8ToSys(Filename), fmOpenRead or fmShareDenyWrite);
try
LoadFromStreamWithFileExt(Stream, ext);
if Ext <> '' then
LoadFromStreamWithFileExt(Stream, Ext)
else
LoadFromStream(Stream);
finally
Stream.Free;
end;