paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-07 13:20:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Prevent total crash when trying to load a non-existent image to IDEimages.

Browse Source 
git-svn-id: trunk@32815 -
This commit is contained in:
juha 2011-10-11 08:33:05 +00:00
parent 166844b8e5
commit 252e2b9acc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/ideimagesintf.pas
View File

@ -169,8 +169,12 @@ begin
else
Exit;
end;
Result := List.AddLazarusResource(ImageName);
try
Result := List.AddLazarusResource(ImageName);
except
on E: Exception do
DebugLn('While loading IDEImages: ' + e.Message);
end;
Names.AddObject(ImageName, TObject(PtrInt(Result)));
end;