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

fpvectorial: Support writing gradient opacity in svg.

Browse Source
This commit is contained in:
wp_xyz 2023-01-06 13:20:49 +01:00
parent 0e8088ef64
commit c051f85d6f
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpvectorial/svgvectorialwriter.pas
View File

@ -135,7 +135,7 @@ end;
function TvSVGVectorialWriter.GetGradientBrushAsXML(ABrush: TvBrush): String;
var
gradientCol: TvGradientColor;
colorStr, gradientColors, gradientParams: String;
colorStr, opacityStr, gradientColors, gradientParams: String;
x1Str, y1Str, x2Str, y2Str: String;
cxstr, cystr, rstr, fxstr, fystr: String;
gradientTag: String;
@ -189,8 +189,12 @@ begin
gradientColors := '';
for gradientCol in ABrush.Gradient_colors do begin
colorStr := '#' + FPColorToRGBHexString(gradientCol.Color);
gradientColors := gradientColors + Format('<stop offset="%f%%" stop-color="%s" />', [
gradientCol.Position*100, colorStr], FPointSeparator);
if gradientCol.Color.Alpha <> alphaOpaque then
opacityStr := Format('stop-opacity="%f" ', [gradientCol.Color.Alpha/alphaOpaque], FPointSeparator)
else
opacityStr := '';
gradientColors := gradientColors + Format('<stop offset="%f%%" stop-color="%s" %s/>', [
gradientCol.Position*100, colorStr, opacityStr], FPointSeparator);
end;
Result := Format(