paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 08:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Pascal Riekenberg to fix multi-column layout

Browse Source 
git-svn-id: trunk@37363 -
This commit is contained in:
michael 2017-09-30 11:58:05 +00:00
parent 96aa33cfd9
commit 76a6c67022
2 changed files with 309 additions and 403 deletions
packages/fcl-report
demos
rptcolumns.pp
src
fpreport.pp

37
packages/fcl-report/demos/rptcolumns.pp
View File

@ -263,13 +263,33 @@ begin
Memo.TextAlignment.Horizontal := taLeftJustified;
Memo.TextAlignment.Vertical := tlCenter;
DataFooter := TFPReportDataFooterBand.Create(p);
DataFooter.Layout.Height := 10;
DataFooter.Frame.Shape := fsRectangle;
DataFooter.Frame.BackgroundColor := TFPReportColor($ffa500);
DataFooter.UseParentFont := False;
DataFooter.Font.Name := 'LiberationSans-Bold';
DataFooter.Font.Color := clWhite;
Memo := TFPReportMemo.Create(DataFooter);
Memo.Layout.Left := 5;
Memo.Layout.Top := 1.5;
Memo.Layout.Width := 50;
Memo.Layout.Height := 8;
Memo.Text := 'DataFooter Band';
Memo.TextAlignment.Horizontal := taLeftJustified;
Memo.TextAlignment.Vertical := tlCenter;
DataBand := TFPReportDataBand.Create(p);
DataBand.Layout.Height := 10;
DataBand.Data := FDataPage2;
DataBand.KeepTogetherWithChildren := False;
DataBand.Frame.Shape := fsRectangle;
DataBand.Frame.BackgroundColor := clDataBand;
{ associated DataHeader band }
DataBand.HeaderBand := DataHeader;
{ associated DataFooter band }
DataBand.FooterBand := DataFooter;
Memo := TFPReportMemo.Create(DataBand);
Memo.Layout.Left := 5;
@ -292,23 +312,6 @@ begin
DataBand.ChildBand := ChildBand;
DataFooter := TFPReportDataFooterBand.Create(p);
DataFooter.Layout.Height := 10;
DataFooter.Frame.Shape := fsRectangle;
DataFooter.Frame.BackgroundColor := TFPReportColor($ffa500);
DataFooter.UseParentFont := False;
DataFooter.Font.Name := 'LiberationSans-Bold';
DataFooter.Font.Color := clWhite;
Memo := TFPReportMemo.Create(DataFooter);
Memo.Layout.Left := 5;
Memo.Layout.Top := 1.5;
Memo.Layout.Width := 50;
Memo.Layout.Height := 8;
Memo.Text := 'DataFooter Band';
Memo.TextAlignment.Horizontal := taLeftJustified;
Memo.TextAlignment.Vertical := tlCenter;
ColumnFooter := TFPReportColumnFooterBand.Create(p);
ColumnFooter.Layout.Height := 15;
ColumnFooter.Frame.Shape := fsRectangle;

675
packages/fcl-report/src/fpreport.pp
View File

File diff suppressed because it is too large Load Diff