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

LCL: Eliminate a nested loop in TLazIntfImage.CopyPixels.

Browse Source 
git-svn-id: trunk@64413 -
This commit is contained in:
juha 2021-01-20 22:00:02 +00:00
parent f852f4d56a
commit 9e251a5c0a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/intfgraphics.pas
View File

@ -3820,16 +3820,15 @@ begin
begin
SrcHasMask := SrcImg.FRawImage.Description.MaskBitsPerPixel > 0;
DstHasMask := FRawImage.Description.MaskBitsPerPixel > 0;
if DstHasMask then
for y:= yStart to yStop do
for x:=xStart to xStop do
Masked[x+XDst,y+YDst] := SrcHasMask and SrcImg.Masked[x,y];
// Optimization for common case. Inner loop is called millions of times in a big app.
for y:=yStart to yStop do
for x:=xStart to xStop do
begin
SrcImg.FGetInternalColorProc(x,y,c); // c := SrcImg.Colors[x,y];
if not DstHasMask and SrcHasMask and (c.alpha = $FFFF) then
if DstHasMask then // This can be optimized if needed.
Masked[x+XDst,y+YDst] := SrcHasMask and SrcImg.Masked[x,y]
else
if SrcHasMask and (c.alpha = $FFFF) then
begin // copy mask to alpha channel
SrcImg.GetXYMaskPosition(x,y,Position); //if SrcImg.Masked[x,y] then
SrcImg.FRawimage.ReadMask(Position, SrcMaskPix);