* Only add paper sizes once

git-svn-id: trunk@37153 -

packages/fcl-report/demos/rptcolumns.pp

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

packages/fcl-report/demos/rptcontnr.pp

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

packages/fcl-report/demos/rptdataset.pp

@@ -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');

packages/fcl-report/demos/rptexpressions.pp

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

packages/fcl-report/demos/rptframes.pp

@@ -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';
 

packages/fcl-report/demos/rptgrouping.pp

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

packages/fcl-report/demos/rptimages.pp

@@ -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';
 

packages/fcl-report/demos/rptjson.pp

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

packages/fcl-report/demos/rptmasterdetail.pp

@@ -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';
 

packages/fcl-report/demos/rptmasterdetaildataset.pp

@@ -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);

packages/fcl-report/demos/rptshapes.pp

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

packages/fcl-report/demos/rptsimplelist.pp

@@ -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;

packages/fcl-report/demos/rptttf.pp

@@ -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;