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

fpvectorial: Improves radial gradient drawing

Browse Source 
git-svn-id: trunk@51538 -
This commit is contained in:
sekelsenmat 2016-02-08 18:34:27 +00:00
parent 458c26d88f
commit 16ac9de63c
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpvectorial/fpvectorial.pas
View File

@ -4013,13 +4013,14 @@ begin
begin
for J := 0 to lHeight-1 do
begin
lx := ARect.Left + i;
ly := ARect.Top + j;
if not IsPointInPolygon(lx, ly, APoints) then Continue;
lDist := sqrt(sqr(i-lGradient_cx_px)+sqr(j-lGradient_cy_px));
lDist := lDist / lBiggestHalfSide;
lDist := Min(Max(0, lDist), 1);
lColor := Distance_To_RadialGradient_Color(lDist);
lx := ARect.Left + i;
ly := ARect.Top + j;
if not IsPointInPolygon(lx, ly, APoints) then Exit;
ADest.Colors[lx, ly] := AlphaBlendColor(ADest.Colors[lx, ly], lColor);
end;
end;

4
components/fpvectorial/svgvectorialreader.pas
View File

@ -1271,7 +1271,7 @@ begin
for i := 0 to ANode.Attributes.Length - 1 do
begin
lAttrName := lowercase(ANode.Attributes.Item[i].NodeName);
lAttrValue := lowercase(ANode.Attributes.Item[i].NodeValue);
lAttrValue := ANode.Attributes.Item[i].NodeValue;
if lAttrName = 'id' then
ADest.Name := lAttrValue
else
@ -1301,6 +1301,7 @@ begin
end else
if lAttrName = 'gradientunits' then
begin
lAttrValue := LowerCase(lAttrValue);
if lAttrValue = 'userspaceonuse' then
Include(ADest.Brush.Gradient_flags, gfRelToUserSpace)
else if lAttrValue = 'objectboundingbox' then
@ -1395,6 +1396,7 @@ begin
lAttrValue := lCurNode.Attributes.Item[i].NodeValue;
if lAttrName = 'xlink:href' then
begin
lAttrValue := StringReplace(Trim(lAttrValue), '#', '', []);
lCurBrush := FindBrushDef_WithName(lAttrValue);
if lCurBrush <> nil then
lBrushEntity.Brush := lCurBrush.Brush;