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

FPSpreadsheet: Fix incorrect bar and area series baseline of primary/secondary y axis charts in xlsx

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9460 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-09-21 21:41:16 +00:00
parent 179382c959
commit 89c9ad65c9
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4026,18 +4026,21 @@ begin
WriteChartLabels(AStream, AIndent + 2, Axis.LabelFont);
// Axis position
case Axis.Position of
capStart:
crosses := ' <c:crosses val="min"/>';
capEnd:
crosses := ' <c:crosses val="max"/>';
capValue:
crosses := Format(' <c:crossesAt val="%g"/>', [Axis.PositionValue], FPointSeparatorSettings);
else
raise Exception.Create('Unsupported value of Axis.Position');
// not used here: "autoZero"
if delete = 0 then
begin
case Axis.Position of
capStart:
crosses := ' <c:crosses val="min"/>';
capEnd:
crosses := ' <c:crosses val="max"/>';
capValue:
crosses := Format(' <c:crossesAt val="%g"/>', [Axis.PositionValue], FPointSeparatorSettings);
else
raise Exception.Create('Unsupported value of Axis.Position');
// not used here: "autoZero"
end;
if crosses <> '' then crosses := indent + crosses + LE;
end;
if crosses <> '' then crosses := indent + crosses + LE;
AppendToStream(AStream, Format(
indent + ' <c:numFmt formatCode="General" sourceLinked="1"/>' + LE +