paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 07:07:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Only add paper sizes once

Browse Source 
git-svn-id: trunk@37153 -
This commit is contained in:
michael 2017-09-07 07:33:07 +00:00
parent 5fd38b9916
commit 0ba38f50fe
13 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,7 +101,7 @@ var
DataFooter: TFPReportDataFooterBand;
ChildBand: TFPReportChildBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 9 - Multi Columns';

2
packages/fcl-report/demos/rptcontnr.pp
View File

@ -112,7 +112,7 @@ var
PageFooter: TFPReportPageFooterBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 12 - JSON Data';

4
packages/fcl-report/demos/rptdataset.pp
View File

@ -45,7 +45,8 @@ var
Image: TFPReportImage;
PageFooter: TFPReportPageFooterBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 8 - Datasets';
@ -126,6 +127,7 @@ var
fields: TDbfFieldDefs;
lDataSet : TDBF;
begin
if FileExists('test.dbf') then
begin
DeleteFile('test.dbf');

2
packages/fcl-report/demos/rptexpressions.pp
View File

@ -96,7 +96,7 @@ var
PageFooter: TFPReportPageFooterBand;
DataHeader: TFPReportDataHeaderBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 2 - Expression Evaluation';

3
packages/fcl-report/demos/rptframes.pp
View File

@ -99,7 +99,8 @@ var
ReportSummary: TFPReportSummaryBand;
PageHeader: TFPReportPageHeaderBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 4 - Frames and Fonts';

2
packages/fcl-report/demos/rptgrouping.pp
View File

@ -100,7 +100,7 @@ var
Memo: TFPReportMemo;
PageFooter: TFPReportPageFooterBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 3 - Grouping';

3
packages/fcl-report/demos/rptimages.pp
View File

@ -74,7 +74,8 @@ var
Image: TFPReportImage;
Checkbox: TFPReportCheckbox;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 7 - Images and Checkboxes';

2
packages/fcl-report/demos/rptjson.pp
View File

@ -54,7 +54,7 @@ var
PageFooter: TFPReportPageFooterBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 12 - JSON Data';

2
packages/fcl-report/demos/rptmasterdetail.pp
View File

@ -171,7 +171,7 @@ var
Detail2DataBand: TFPReportDataBand;
Memo: TFPReportMemo;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 10 - Master/Detail using userdata';

2
packages/fcl-report/demos/rptmasterdetaildataset.pp
View File

@ -60,7 +60,7 @@ var
DataHeader: TFPReportDataHeaderBand;
BudgetDataHeader: TFPReportDataHeaderBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 11 - Master/Detail using datasets';
p := TFPReportPage.Create(rpt);

2
packages/fcl-report/demos/rptshapes.pp
View File

@ -87,7 +87,7 @@ var
Poly : TReportPolygon;
{$ENDIF}
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 6 - Shapes';

2
packages/fcl-report/demos/rptsimplelist.pp
View File

@ -89,9 +89,9 @@ var
PageFooter: TFPReportPageFooterBand;
SummaryBand: TFPReportSummaryBand;
begin
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 1 - Simple Listing';
PaperManager.RegisterStandardSizes;
p := TFPReportPage.Create(rpt);
p.Orientation := poPortrait;

2
packages/fcl-report/demos/rptttf.pp
View File

@ -95,7 +95,7 @@ var
Memo: TFPReportMemo;
PageFooter: TFPReportPageFooterBand;
begin
PaperManager.RegisterStandardSizes;
Inherited;
rpt.Author := 'Graeme Geldenhuys';
rpt.Title := 'FPReport Demo 5 - TrueType Fonts';
rpt.TwoPass := True;