paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 11:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: added cell spacing to docxvectorialwriter

Browse Source
This commit is contained in:
Moritz Lamprecht 2023-08-07 09:15:44 +02:00 committed by Maxim Ganetsky
parent 8d65086d85
commit 9613dea1c4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpvectorial/docxvectorialwriter.pas
View File

@ -991,6 +991,14 @@ Var
oDocXML.Add('<w:vAlign w:val="' + LU_V_ALIGN[oCell.VerticalAlignment] + '" />');
// cell padding
oDocXML.Add('<w:tcMar>', indInc);
oDocXML.Add(Format('<w:top w:w="%s" w:type="dxa"/>', [mmToTwipsS(oCell.SpacingTop)]));
oDocXML.Add(Format('<w:start w:w="%s" w:type="dxa"/>', [mmToTwipsS(oCell.SpacingLeft)]));
oDocXML.Add(Format('<w:bottom w:w="%s" w:type="dxa"/>', [mmToTwipsS(oCell.SpacingBottom)]));
oDocXML.Add(Format('<w:end w:w="%s" w:type="dxa"/>', [mmToTwipsS(oCell.SpacingRight)]));
oDocXML.Add('</w:tcMar>', indDec);
oDocXML.Add(indDec, '</w:tcPr>', indDec);
ProcessRichText(oCell);