paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Supporting smooth scatter/line series for xlsx (less options than for ods)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9219 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-02-06 15:53:19 +00:00
parent efcf55181b
commit 5f781b622a
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/examples/other/chart/scatter_write_demo.lpr
View File

@ -111,7 +111,10 @@ begin
ch.YAxis.Logarithmic := true;
end;
end;
ch.XAxis.Inverted := true;
// For testing:
// ch.XAxis.Inverted := true;
ch.Interpolation := ciCubicSpline;
// Add scatter series
ser := TsScatterSeries.Create(ch);

13
components/fpspreadsheet/source/common/xlsxooxmlchart.pas
View File

@ -3964,14 +3964,25 @@ procedure TsSpreadOOXMLChartWriter.WriteScatterSeries(AStream: TStream;
var
indent: String;
chart: TsChart;
scatterStyleStr: String;
begin
indent := DupeString(' ', AIndent);
chart := ASeries.Chart;
case chart.Interpolation of
ciLinear:
scatterStyleStr := 'lineMarker';
ciCubicSpline, ciBSpline:
scatterStyleStr := 'smoothMarker';
else
//ciStepStart, ciStepEnd, ciCenterX, ciCenterY
scatterStyleStr := 'lineMarker'; // better than nothing...
end;
AppendToStream(AStream,
indent + '<c:scatterChart>' + LE +
indent + ' <c:varyColors val="0"/>' + LE +
indent + ' <c:scatterStyle val="lineMarker"/>' + LE
indent + ' <c:scatterStyle val="' + scatterStyleStr + '"/>' + LE
);
WriteChartSeriesNode(AStream, AIndent + 4, ASeries, ASeriesIndex);