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

LCL: TRawImage.PerformEffect: added option to free old data

Browse Source 
git-svn-id: trunk@34802 -
This commit is contained in:
mattias 2012-01-19 21:20:47 +00:00
parent 6776c76423
commit a9debb99ed
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/graphtype.pp
View File

@ -215,7 +215,7 @@ type
procedure ReleaseData;
procedure ExtractRect(const ARect: TRect; out ADst: TRawImage);
procedure PerformEffect(const ADrawEffect: TGraphicsDrawEffect; CreateNewData: Boolean = True);
procedure PerformEffect(const ADrawEffect: TGraphicsDrawEffect; CreateNewData: Boolean = True; FreeOldData: boolean = false);
function ReadBits(const APosition: TRawImagePosition; APrec, AShift: Byte): Word;
procedure ReadChannels(const APosition: TRawImagePosition; out ARed, AGreen, ABlue, AAlpha: Word);
procedure ReadMask(const APosition: TRawImagePosition; out AMask: Boolean);
@ -1592,7 +1592,7 @@ begin
end;
procedure TRawImage.PerformEffect(const ADrawEffect: TGraphicsDrawEffect;
CreateNewData: Boolean);
CreateNewData: Boolean; FreeOldData: boolean);
function CheckDescription: Boolean;
begin
@ -1641,8 +1641,7 @@ begin
Move(Data^, AData^, DataSize);
P := AData;
end
else
begin
else begin
P := Data;
AData := P;
end;
@ -1715,6 +1714,9 @@ begin
end;
end;
end;
if FreeOldData then
ReAllocMem(Data,0);
Data := P;
end;