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

fpspreadsheet: xlsx chart writer supports axis gridlines.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9196 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-01-31 23:51:14 +00:00
parent 65e4ef2636
commit c7f8ce5f38
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3404,6 +3404,25 @@ procedure TsSpreadOOXMLChartWriter.WriteChartAxisNode(AStream: TStream;
Result := 'cross';
end;
function GetGridLineStr(AIndent: Integer; ANodeName: String; ALine: TsChartLine): String;
var
indent: String;
begin
if ALine.Style <> clsNoLine then
begin
indent := DupeString(' ', AIndent);
Result := Format(
indent + '<%0:s>' + LE +
indent + ' <c:spPr>' + LE +
'%s' + LE +
indent + ' </c:spPr>' + LE +
indent + '</%0:s>' + LE,
[ ANodeName, GetChartLineXML(AIndent + 4, Axis.Chart, ALine) ]
)
end else
Result := '';
end;
const
AX_POS: array[TsChartAxisAlignment] of string = ('l', 't', 'r', 'b');
var
@ -3424,6 +3443,8 @@ begin
indent + ' </c:scaling>' + LE +
indent + ' <c:delete val="0"/>' + LE +
indent + ' <c:axPos val="%s" />' + LE +
GetGridLineStr(AIndent + 2, 'c:majorGridlines', Axis.MajorGridLines) +
GetGridLineStr(AIndent + 2, 'c:minorGridlines', Axis.MinorGridLines) +
indent + ' <c:numFmt formatCode="General" sourceLinked="1"/>' + LE +
indent + ' <c:majorTickMark val="%s"/>' + LE +
indent + ' <c:minorTickMark val="%s"/>' + LE +