paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 21:41:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove unused code in TLazIntfImage.Assign.

Browse Source 
git-svn-id: trunk@53056 -
This commit is contained in:
juha 2016-09-29 08:35:07 +00:00
parent 73ef3706d2
commit 39ac467fe2
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/intfgraphics.pas
View File

@ -3460,17 +3460,9 @@ begin
end; end;
procedure TLazIntfImage.Assign(Source: TPersistent); procedure TLazIntfImage.Assign(Source: TPersistent);
var
Src: TLazIntfImage;
Desc: TRawImageDescription;
begin begin
if Source is TLazIntfImage then begin if Source is TLazIntfImage then
Src:=TLazIntfImage(Source); DataDescription:=TLazIntfImage(Source).DataDescription;
Desc:=Src.DataDescription;
Desc.Width:=0; // avoid side effects
Desc.Height:=0; // avoid side effects
DataDescription:=Src.DataDescription;
end;
inherited Assign(Source); inherited Assign(Source);
end; end;