pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Add headers and footers to the pagelayout record, implemented for all Excel formats (reading & writing).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4104 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-05-01 15:14:25 +00:00
parent 82117326a4
commit e66caefbe0
9 changed files with 402 additions and 151 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/fpsutils.pas
View File

@@ -2408,6 +2408,8 @@ end;
Initializes the fields of a TsPageLayout record
-------------------------------------------------------------------------------}
procedure InitPageLayout(out APageLayout: TsPageLayout);
var
i: Integer;
begin
with APageLayout do begin
Orientation := spoPortrait;
@@ -2425,6 +2427,8 @@ begin
FitHeightToPages := 0;
Copies := 1;
Options := [];
for i:=0 to 2 do Headers[i] := '';
for i:=0 to 2 do Footers[i] := '';
end;
end;