paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 14:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: icon should not crash now

Browse Source 
git-svn-id: trunk@16922 -
This commit is contained in:
paul 2008-10-07 21:50:49 +00:00
parent d4de936c86
commit c35a24043c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/projecticon.pas
View File

@ -123,6 +123,10 @@ var
AResource: TStream; AResource: TStream;
begin begin
Result := True; Result := True;
if IconText = '' then
Exit;
SetFileNames(MainFilename); SetFileNames(MainFilename);
AResource := GetStream; AResource := GetStream;