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

IDE: TProjectIcon: do not set icon twice when loading

Browse Source 
git-svn-id: trunk@44057 -
This commit is contained in:
mattias 2014-02-13 22:44:16 +00:00
parent 05e6ad8dab
commit 84346a8450
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/projecticon.pas
View File

@ -181,6 +181,7 @@ var
begin
Result := False;
if IsEmpty then exit;
//debugln(['TProjectIcon.CreateIconFile ',FIcoFileName]);
try
if FileExistsUTF8(FIcoFileName) then
fs:=TFileStreamUTF8.Create(FIcoFileName,fmOpenWrite)
@ -211,6 +212,7 @@ procedure TProjectIcon.SetIsEmpty(const AValue: Boolean);
var
NewData: TIconData;
fs: TFileStreamUTF8;
ok: Boolean;
begin
if IsEmpty=AValue then exit;
if AValue then
@ -218,7 +220,7 @@ begin
else
begin
// We need to restore data from the .ico file
IconData := nil;
ok:=false;
try
fs:=TFileStreamUTF8.Create(FIcoFileName,fmOpenRead);
try
@ -226,11 +228,14 @@ begin
if length(NewData)>0 then
fs.Read(NewData[0],length(NewData));
IconData := NewData;
ok:=true;
finally
fs.Free
end;
except
end;
if not ok then
IconData:=nil;
end;
Modified := True;
end;