paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 11:40:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: added page margins to docxvectorialwriter

Browse Source
This commit is contained in:
Moritz Lamprecht 2023-08-07 08:26:23 +02:00 committed by Maxim Ganetsky
parent 98d5cc077b
commit 8d65086d85
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpvectorial/docxvectorialwriter.pas
View File

@ -822,9 +822,15 @@ Var
End;
{ TODO : Ensure these other properties can be set }
//<w:pgMar w:top="1440" w:right="1440" w:bottom="1440" w:left="1440" w:header="708" w:footer="708" w:gutter="0"/>
//<w:cols w:space="708"/>
//<w:docGrid w:linePitch="360"/>
// page margins
sTemp := Format('<w:pgMar w:top="%s" w:right="%s" w:bottom="%s" w:left="%s" w:header="708" w:footer="708" w:gutter="0"/>',
[mmToTwipsS(APageSequence.MarginTop), mmToTwipsS(APageSequence.MarginRight),
mmToTwipsS(APageSequence.MarginBottom), mmToTwipsS(APageSequence.MarginLeft)]);
oDocXML.Add(STemp);
oDocXML.Add(indDec, '</w:sectPr>', indDec);
If Not ALastPage Then