paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 18:29:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Ondrej Pokorny to enable Alpha blending in (stretch)Draw (bug ID 34266)

Browse Source 
git-svn-id: trunk@39748 -
This commit is contained in:
michael 2018-09-12 15:21:38 +00:00
parent a84554ef9f
commit e1b5f21b01
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-image/src/fpcanvas.inc
View File

@ -784,7 +784,7 @@ begin
begin
xx := r - x;
for t := yi to ym do
colors [r,t] := image.colors[xx,t-y];
colors [r,t] := AlphaBlend(colors [r,t], image.colors[xx,t-y]);
end;
end;

2
packages/fcl-image/src/fpinterpolation.inc
View File

@ -223,7 +223,7 @@ begin
NewCol.blue:=Min(NewCol.blue+round(Col.blue*f),$ffff);
NewCol.alpha:=Min(NewCol.alpha+round(Col.alpha*f),$ffff);
end;
Canvas.Colors[x+dx,y+dy]:=NewCol;
Canvas.Colors[x+dx,y+dy]:=AlphaBlend(Canvas.Colors[x+dx,y+dy], NewCol);
end;
end;
finally