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

LCL: TLazIntfImage.Assign: copy DataDescription

Browse Source 
git-svn-id: trunk@52005 -
This commit is contained in:
mattias 2016-03-20 23:46:20 +00:00
parent 5d6e5012ea
commit de6e0945f8
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/intfgraphics.pas
View File

@ -232,6 +232,7 @@ type
constructor Create(ARawImage: TRawImage; ADataOwner: Boolean); constructor Create(ARawImage: TRawImage; ADataOwner: Boolean);
constructor CreateCompatible(IntfImg: TLazIntfImage; AWidth, AHeight: integer); constructor CreateCompatible(IntfImg: TLazIntfImage; AWidth, AHeight: integer);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
procedure BeginUpdate; procedure BeginUpdate;
procedure EndUpdate; procedure EndUpdate;
procedure SetSize(AWidth, AHeight: integer); override; procedure SetSize(AWidth, AHeight: integer); override;
@ -3458,6 +3459,21 @@ begin
inherited Destroy; inherited Destroy;
end; end;
procedure TLazIntfImage.Assign(Source: TPersistent);
var
Src: TLazIntfImage;
Desc: TRawImageDescription;
begin
if Source is TLazIntfImage then begin
Src:=TLazIntfImage(Source);
Desc:=Src.DataDescription;
Desc.Width:=0; // avoid side effects
Desc.Height:=0; // avoid side effects
DataDescription:=Src.DataDescription;
end;
inherited Assign(Source);
end;
procedure TLazIntfImage.AlphaFromMask(AKeepAlpha: Boolean); procedure TLazIntfImage.AlphaFromMask(AKeepAlpha: Boolean);
var var
x, y, xStop, yStop: Integer; x, y, xStop, yStop: Integer;