paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:20:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed load/save ico

Browse Source 
git-svn-id: trunk@37939 -
This commit is contained in:
mattias 2012-07-14 08:32:17 +00:00
parent 4013b3bca7
commit d499695627
2 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
ide/lazarus.ico
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 133 KiB

After

Width:  |  Height:  |  Size: 198 KiB

43
ide/projecticon.pas
View File

@ -183,19 +183,18 @@ end;
function TProjectIcon.CreateIconFile: Boolean;
var
AStream: TStream;
Code: TCodeBuffer;
fs: TFileStreamUTF8;
begin
Result := False;
AStream := GetStream;
if AStream=nil then exit;
if IsEmpty then exit;
try
Code:=CodeToolBoss.CreateFile(FIcoFileName);
if Code=nil then exit;
Code.LoadFromStream(AStream);
Result:=SaveCodeBuffer(Code) in [mrOk,mrIgnore];
finally
AStream.Free;
fs:=TFileStreamUTF8.Create(FIcoFileName,fmCreate or fmOpenReadWrite);
try
fs.Write(FData[0],length(FData));
finally
fs.Free;
end;
except
end;
end;
@ -212,6 +211,7 @@ procedure TProjectIcon.SetIsEmpty(const AValue: Boolean);
var
NewData: TIconData;
Code: TCodeBuffer;
fs: TFileStreamUTF8;
begin
if IsEmpty=AValue then exit;
if AValue then
@ -219,16 +219,19 @@ begin
else
begin
// We need to restore data from the .ico file
Code:=CodeToolBoss.LoadFile(FIcoFileName,true,false);
if Code<>nil then
begin
SetLength(NewData, Code.SourceLength);
if length(NewData)>0 then
Move(Code.Source[1],NewData[0],length(NewData));
IconData := NewData;
end
else
IconData := nil;
IconData := nil;
try
fs:=TFileStreamUTF8.Create(FIcoFileName,fmOpenRead);
try
SetLength(NewData, fs.Size);
if length(NewData)>0 then
fs.Read(NewData[0],length(NewData));
IconData := NewData;
finally
fs.Free
end;
except
end;
end;
Modified := True;
end;