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

FPSpreadsheet: Fix no splines in rotated ods series.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9470 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-09-29 10:20:32 +00:00
parent 9c4fbfc963
commit b4d8b94830
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/source/common/fpsopendocumentchart.pas
View File

@ -1524,7 +1524,10 @@ begin
TsPieSeries(series).InnerRadiusPercent := 50;
end;
'chart:line':
series := TsLineSeries.Create(AChart);
begin
series := TsLineSeries.Create(AChart);
TsLineSeries(series).Interpolation := AChart.Interpolation;
end;
'chart:radar':
series := TsRadarSeries.Create(AChart);
// Note: In ods, line and symbol colors are equal!

5
components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
View File

@ -1958,6 +1958,11 @@ begin
Result := false;
exit;
end;
if (ser is TsLineSeries) and (TsLineSeries(ser).Interpolation in [ciCubicSpline, ciBSpline]) then
begin
Result := false;
exit;
end;
end;
end;
end;