paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 07:59:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash when trying to load an image type fpimage doesn't support

Browse Source 
git-svn-id: trunk@17849 -
This commit is contained in:
andrew 2008-12-16 04:50:15 +00:00
parent 332993241d
commit e059ec103f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/chmhelp/lhelp/chmdataprovider.pas
View File

@ -139,16 +139,18 @@ begin
FileExt := ExtractFileExt(URL);
Picture := TPicture.Create;
Stream := fChm.GetObject('/'+URL);
try
Stream := fChm.GetObject('/'+URL);
if Assigned(Stream) then
if Assigned(Stream) then
begin
Stream.Position := 0;
Picture.LoadFromStreamWithFileExt(Stream, FileExt);
end;
finally
Stream.Free;
except
// only happens if it's an image type we can't handle
end;
if Stream <> nil then
Stream.Free;
end;
function TIpChmDataProvider.CanHandle(const URL: string): Boolean;