paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 18:40:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: ignore exceptions for invalid project icons

Browse Source
This commit is contained in:
Ondrej Pokorny 2023-01-10 18:57:21 +01:00
parent 77aecca951
commit 3c917017f5
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/ideutils.pas
View File

@ -124,10 +124,12 @@ begin
xIcon := TIcon.Create;
try
xIcon.LoadFromFile(xIconFile);
Result := Images.AddIcon(xIcon);
finally
xIcon.Free;
except
FreeAndNil(xIcon); // ignore exceptions for invalid icons
end;
if Assigned(xIcon) then
Result := Images.AddIcon(xIcon);
xIcon.Free;
end;
xObj := TLoadProjectIconIntoImagesObject.Create;

7
ide/projectinspector.pas
View File

@ -1700,11 +1700,14 @@ begin
begin
IconStream := LazProject.ProjResources.ProjectIcon.GetStream;
if IconStream<>nil then
begin
try
Icon.LoadFromStream(IconStream);
finally
IconStream.Free;
except
Icon.Clear; // ignore exceptions for invalid icons
end;
IconStream.Free;
end;
end;
end;
end;