123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964 |
- unit rptnestedgroups;
- {$mode objfpc}{$H+}
- {$I demos.inc}
- interface
- uses
- Classes,
- SysUtils,
- fpreport,
- udapp;
- type
- { TNestedGroupsDemo }
- TNestedGroupsDemo = class(TReportDemoApp)
- private
- FReportData: TFPReportUserData;
- sl: TStringList;
- rec: TStringList;
- procedure GetReportDataFirst(Sender: TObject);
- procedure GetReportDataValue(Sender: TObject; const AValueName: String; var AValue: Variant);
- procedure GetReportDataEOF(Sender: TObject; var IsEOF: Boolean);
- procedure GetReportFieldNames(Sender: TObject; List: TStrings);
- procedure ReportDataNext(Sender: TObject);
- procedure PrepareRecord;
- Protected
- procedure InitialiseData; override;
- procedure CreateReportDesign;override;
- procedure LoadDesignFromFile(const AFilename: string);
- procedure HookupData(const AComponentName: string; const AData: TFPReportData);
- public
- constructor Create(AOWner :TComponent); override;
- destructor Destroy; override;
- Class function Description : string; override;
- end;
- implementation
- uses
- fpReportStreamer,
- fpTTF,
- fpJSON,
- jsonparser,
- fpexprpars;
- const
- clGroupHeaderFooter2 = TFPReportColor($EFE1C7);
- clGroupHeaderFooter3 = TFPReportColor($DFD1B7);
- { TNestedGroupsDemo }
- procedure TNestedGroupsDemo.GetReportDataFirst(Sender: TObject);
- begin
- {$IFDEF gdebug}
- writeln('GetReportDataFirst');
- {$ENDIF}
- PrepareRecord;
- end;
- procedure TNestedGroupsDemo.GetReportDataValue(Sender: TObject; const AValueName: String; var AValue: Variant);
- begin
- {$IFDEF gdebug}
- writeln(Format('GetReportDataValue - %d', [lReportData.RecNo]));
- {$ENDIF}
- case AValueName of
- 'region': AValue := rec[0];
- 'subregion': AValue := rec[1];
- 'country': AValue := rec[2];
- 'code': AValue := rec[3];
- 'population': AValue := rec[4];
- end;
- end;
- procedure TNestedGroupsDemo.GetReportDataEOF(Sender: TObject; var IsEOF: Boolean);
- begin
- {$IFDEF gdebug}
- writeln(Format('GetReportDataEOF - %d', [lReportData.RecNo]));
- {$ENDIF}
- if FReportData.RecNo > sl.Count then
- IsEOF := True
- else
- IsEOF := False;
- end;
- procedure TNestedGroupsDemo.GetReportFieldNames(Sender: TObject; List: TStrings);
- begin
- {$IFDEF gdebug}
- writeln('********** GetReportFieldNames');
- {$ENDIF}
- List.Add('region');
- List.Add('subregion');
- List.Add('country');
- List.Add('code');
- List.Add('population');
- end;
- procedure TNestedGroupsDemo.ReportDataNext(Sender: TObject);
- begin
- PrepareRecord;
- end;
- procedure TNestedGroupsDemo.PrepareRecord;
- begin
- if FReportData.RecNo > sl.Count then
- exit;
- rec.DelimitedText := sl[FReportData.RecNo-1];
- end;
- procedure TNestedGroupsDemo.InitialiseData;
- begin
- sl := TStringList.Create;
- {$I countries2.inc}
- rec := TStringList.Create;
- rec.Delimiter := ';';
- rec.StrictDelimiter := true;
- end;
- procedure TNestedGroupsDemo.CreateReportDesign;
- var
- Page: TFPReportPage;
- TitleBand: TFPReportTitleBand;
- DataBand: TFPReportDataBand;
- GroupHeader, GroupHeader1Region,
- GroupHeader2Subregion, GroupHeader3Initial: TFPReportGroupHeaderBand;
- Memo: TFPReportMemo;
- PageFooter: TFPReportPageFooterBand;
- GroupFooter, GroupFooter3Initial,
- GroupFooter2SubRegion, GroupFooter1Region: TFPReportGroupFooterBand;
- ChildBand: TFPReportChildBand;
- Shape: TFPReportShape;
- begin
- Inherited;
- rpt.Author := 'Pascal Riekenberg';
- rpt.Title := 'FPReport Demo 13 - Nested Grouping';
- {****************}
- {*** page ***}
- {****************}
- Page := TFPReportPage.Create(rpt);
- Page.Orientation := poPortrait;
- Page.PageSize.PaperName := 'A4';
- { page margins }
- Page.Margins.Left := 25;
- Page.Margins.Top := 20;
- Page.Margins.Right := 10;
- Page.Margins.Bottom := 20;
- Page.Data := FReportData;
- Page.Font.Name := 'LiberationSans';
- {*****************}
- {*** title ***}
- {*****************}
- TitleBand := TFPReportTitleBand.Create(Page);
- TitleBand.Layout.Height := 40;
- TitleBand.Frame.Shape := fsRectangle;
- TitleBand.Frame.BackgroundColor := clReportTitleSummary;
- Memo := TFPReportMemo.Create(TitleBand);
- Memo.Layout.Left := 0;
- Memo.Layout.Top := 10;
- Memo.Layout.Width := Page.PageSize.Width - Page.Margins.Left - Page.Margins.Right;
- Memo.Layout.Height := 16;
- Memo.TextAlignment.Horizontal := taCentered;
- Memo.UseParentFont := False;
- Memo.Text := 'COUNTRY AND POPULATION AS OF 2016';
- Memo.Font.Size := 16;
- Memo := TFPReportMemo.Create(TitleBand);
- Memo.Layout.Left := 0;
- Memo.Layout.Top := 18;
- Memo.Layout.Width := Page.PageSize.Width - Page.Margins.Left - Page.Margins.Right;
- Memo.Layout.Height := 10;
- Memo.TextAlignment.Horizontal := taCentered;
- Memo.UseParentFont := False;
- Memo.Text := '(Total [formatfloat(''#,##0.0'',total_sum_population_in_M / 1000)] B)';
- Memo.Font.Size := 10;
- {**********************}
- {*** group header ***}
- {**********************}
- {*** group header 1 region ***}
- GroupHeader1Region := TFPReportGroupHeaderBand.Create(Page);
- GroupHeader1Region.Layout.Height := 15;
- GroupHeader1Region.GroupCondition := 'region';
- GroupHeader1Region.Frame.Shape := fsRectangle;
- GroupHeader1Region.Frame.BackgroundColor := clGroupHeaderFooter;
- GroupHeader1Region.StartOnNewPage := True;
- GroupHeader1Region.ReprintHeader := True;
- GroupHeader1Region.VisibleExpr := 'not InRepeatedGroupHeader';
- Memo := TFPReportMemo.Create(GroupHeader1Region);
- Memo.Layout.Left := 3;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 16;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.Text := 'Region: [region] ([formatfloat(''#,##0.0'', grp1region_sum_population_in_M)] M)';
- Memo := TFPReportMemo.Create(GroupHeader1Region);
- Memo.Layout.Left := 25;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 145;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 10;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#0.0'', grp1region_sum_population / total_sum_population * 100)] % in World';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 7;
- ChildBand.VisibleExpr := 'InRepeatedGroupHeader';
- ChildBand.Frame.Shape := fsRectangle;
- ChildBand.Frame.BackgroundColor := clGroupHeaderFooter;
- GroupHeader1Region.ChildBand := ChildBand;
- Memo := TFPReportMemo.Create(ChildBand);
- Memo.Layout.Left := 3;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 4;
- Memo.Text := 'Region: [region]';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 2;
- GroupHeader1Region.ChildBand.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- {*** group header 2 subregion ***}
- GroupHeader2Subregion := TFPReportGroupHeaderBand.Create(Page);
- GroupHeader2Subregion.Layout.Height := 15;
- GroupHeader2Subregion.GroupCondition := 'subregion';
- GroupHeader2Subregion.Frame.Shape := fsRectangle;
- GroupHeader2Subregion.Frame.BackgroundColor := clGroupHeaderFooter2;
- GroupHeader2Subregion.GroupHeader := GroupHeader1Region;
- GroupHeader2Subregion.StartOnNewPage := True;
- GroupHeader2Subregion.ReprintHeader := True;
- GroupHeader2Subregion.VisibleExpr := 'not InRepeatedGroupHeader';
- Shape := TFPReportShape.Create(GroupHeader2Subregion);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := GroupHeader2Subregion.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(GroupHeader2Subregion);
- Shape.Color := clNone;
- Shape.Layout.Left := 3;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := GroupHeader2Subregion.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Memo := TFPReportMemo.Create(GroupHeader2Subregion);
- Memo.Layout.Left := 7;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 16;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.Text := 'Subregion: [subregion] ([formatfloat(''#,##0.0'', grp2subregion_sum_population_in_M)] M)';
- Memo := TFPReportMemo.Create(GroupHeader2Subregion);
- Memo.Layout.Left := 25;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 145;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 10;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#0.0'', grp2subregion_sum_population / grp1region_sum_population * 100)] % in [region] - [formatfloat(''#0.0'', grp2subregion_sum_population / total_sum_population * 100)] % in World';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 7;
- ChildBand.VisibleExpr := 'InRepeatedGroupHeader';
- ChildBand.Frame.Shape := fsRectangle;
- ChildBand.Frame.BackgroundColor := clGroupHeaderFooter2;
- GroupHeader2Subregion.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 3;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Memo := TFPReportMemo.Create(ChildBand);
- Memo.Layout.Left := 7;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 4;
- Memo.Text := 'Subregion: [subregion]';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 2;
- GroupHeader2Subregion.ChildBand.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- {*** group header 3 initial ***}
- GroupHeader3Initial := TFPReportGroupHeaderBand.Create(Page);
- GroupHeader3Initial.Layout.Height := 15;
- GroupHeader3Initial.GroupCondition := 'copy(country,1,1)';
- GroupHeader3Initial.Frame.Shape := fsRectangle;
- GroupHeader3Initial.Frame.BackgroundColor := clGroupHeaderFooter3;
- GroupHeader3Initial.GroupHeader := GroupHeader2Subregion;
- GroupHeader3Initial.ReprintHeader := True;
- GroupHeader3Initial.VisibleExpr := 'not InRepeatedGroupHeader';
- Shape := TFPReportShape.Create(GroupHeader3Initial);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := GroupHeader3Initial.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(GroupHeader3Initial);
- Shape.Color := clNone;
- Shape.Layout.Left := 3;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := GroupHeader3Initial.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Shape := TFPReportShape.Create(GroupHeader3Initial);
- Shape.Color := clGroupHeaderFooter2;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := GroupHeader3Initial.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- Shape := TFPReportShape.Create(GroupHeader3Initial);
- Shape.Color := clNone;
- Shape.Layout.Left := 8;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := GroupHeader3Initial.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Memo := TFPReportMemo.Create(GroupHeader3Initial);
- Memo.Layout.Left := 12;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 16;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.Text := '[copy(country,1,1)] ([formatfloat(''#,##0.0'', grp3initial_sum_population_in_M)] M)';
- Memo := TFPReportMemo.Create(GroupHeader3Initial);
- Memo.Layout.Left := 25;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 145;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 10;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#0.0'', grp3initial_sum_population / grp2subregion_sum_population * 100)] % in [subregion] - [formatfloat(''#0.0'', grp3initial_sum_population / grp1region_sum_population * 100)] % in [region] - [formatfloat(''#0.0'', grp3initial_sum_population / total_sum_population * 100)] % in World';
- Memo := TFPReportMemo.Create(GroupHeader3Initial);
- Memo.Layout.Left := 90;
- Memo.Layout.Top := 10.5;
- Memo.Layout.Width := 20;
- Memo.Layout.Height := 4;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := 'Initial %';
- Memo := TFPReportMemo.Create(GroupHeader3Initial);
- Memo.Layout.Left := 110;
- Memo.Layout.Top := 10.5;
- Memo.Layout.Width := 20;
- Memo.Layout.Height := 4;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := 'Subreg. %';
- Memo := TFPReportMemo.Create(GroupHeader3Initial);
- Memo.Layout.Left := 130;
- Memo.Layout.Top := 10.5;
- Memo.Layout.Width := 20;
- Memo.Layout.Height := 4;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := 'Region %';
- Memo := TFPReportMemo.Create(GroupHeader3Initial);
- Memo.Layout.Left := 150;
- Memo.Layout.Top := 10.5;
- Memo.Layout.Width := 20;
- Memo.Layout.Height := 4;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := 'World %';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 7;
- ChildBand.VisibleExpr := 'InRepeatedGroupHeader';
- ChildBand.Frame.Shape := fsRectangle;
- ChildBand.Frame.BackgroundColor := clGroupHeaderFooter3;
- GroupHeader3Initial.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 3;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter2;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 8;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Memo := TFPReportMemo.Create(ChildBand);
- Memo.Layout.Left := 12;
- Memo.Layout.Top := 1;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 4;
- Memo.Text := '[copy(country,1,1)]';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 2;
- GroupHeader3Initial.ChildBand.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter2;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter3;
- Shape.Layout.Left := 10;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter3;
- {*** variables ***}
- rpt.Variables.AddExprVariable('population_in_M', 'StrToFloat(population) / 1000000', rtFloat);
- rpt.Variables.AddExprVariable('grp1region_sum_population_in_M', 'sum(StrToFloat(population) / 1000000)', rtFloat, rtGroup, GroupHeader1Region);
- rpt.Variables.AddExprVariable('grp1region_sum_population', 'sum(StrToFloat(population))', rtFloat, rtGroup, GroupHeader1Region);
- rpt.Variables.AddExprVariable('grp2subregion_sum_population_in_M', 'sum(StrToFloat(population) / 1000000)', rtFloat, rtGroup, GroupHeader2Subregion);
- rpt.Variables.AddExprVariable('grp2subregion_sum_population', 'sum(StrToFloat(population))', rtFloat, rtGroup, GroupHeader2Subregion);
- rpt.Variables.AddExprVariable('grp3initial_sum_population_in_M', 'sum(StrToFloat(population) / 1000000)', rtFloat, rtGroup, GroupHeader3Initial);
- rpt.Variables.AddExprVariable('grp3initial_sum_population', 'sum(StrToFloat(population))', rtFloat, rtGroup, GroupHeader3Initial);
- rpt.Variables.AddExprVariable('total_sum_population_in_M', 'sum(StrToFloat(population) / 1000000)', rtFloat);
- rpt.Variables.AddExprVariable('total_sum_population', 'sum(StrToFloat(population))', rtFloat);
- {****************}
- {*** detail ***}
- {****************}
- DataBand := TFPReportDataBand.Create(Page);
- DataBand.Layout.Height := 8;
- DataBand.Frame.Shape := fsRectangle;
- DataBand.Frame.BackgroundColor := clDataBand;
- //DataBand.VisibleExpr := 'StrToFloat(''[population]'') > 50000000';
- Shape := TFPReportShape.Create(DataBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := DataBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(DataBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 3;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := DataBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Shape := TFPReportShape.Create(DataBand);
- Shape.Color := clGroupHeaderFooter2;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := DataBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- Shape := TFPReportShape.Create(DataBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 8;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := DataBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Shape := TFPReportShape.Create(DataBand);
- Shape.Color := clGroupHeaderFooter3;
- Shape.Layout.Left := 10;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := DataBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter3;
- Shape := TFPReportShape.Create(DataBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 13;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := DataBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 17;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 45;
- Memo.Layout.Height := 5;
- Memo.Text := '[country]';
- Memo.Options := memo.Options + [moDisableWordWrap];
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 55;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 25;
- Memo.Layout.Height := 5;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#,##0'', StrToFloat(population))]';
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 80;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 20;
- Memo.Layout.Height := 5;
- Memo.Text := '> DEU';
- Memo.UseParentFont := false;
- Memo.Font.Color := clGreen;
- Memo.VisibleExpr := 'StrToFloat(population) > 82667685';
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 80;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 20;
- Memo.Layout.Height := 5;
- Memo.Text := '< DEU';
- Memo.UseParentFont := false;
- Memo.Font.Color := clRed;
- Memo.VisibleExpr := 'StrToFloat(population) < 82667685';
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 95;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 15;
- Memo.Layout.Height := 5;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#,##0.0'',StrToFloat(population)/grp3initial_sum_population*100)] %';
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 115;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 15;
- Memo.Layout.Height := 5;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#,##0.0'',StrToFloat(population)/grp2subregion_sum_population*100)] %';
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 135;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 15;
- Memo.Layout.Height := 5;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#,##0.0'',StrToFloat(population)/grp1region_sum_population*100)] %';
- Memo := TFPReportMemo.Create(DataBand);
- Memo.Layout.Left := 155;
- Memo.Layout.Top := 2;
- Memo.Layout.Width := 15;
- Memo.Layout.Height := 5;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo.Text := '[formatfloat(''#,##0.0'',StrToFloat(population)/total_sum_population*100)] %';
- {**********************}
- {*** group footer ***}
- {**********************}
- {*** group footer 3 initial ***}
- GroupFooter3Initial := TFPReportGroupFooterBand.Create(Page);
- GroupFooter3Initial.Layout.Height := 2;
- GroupFooter3Initial.GroupHeader := GroupHeader3Initial;
- Shape := TFPReportShape.Create(GroupFooter3Initial);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := GroupFooter3Initial.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(GroupFooter3Initial);
- Shape.Color := clGroupHeaderFooter2;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := GroupFooter3Initial.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- Shape := TFPReportShape.Create(GroupFooter3Initial);
- Shape.Color := clGroupHeaderFooter3;
- Shape.Layout.Left := 10;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := GroupFooter3Initial.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter3;
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 15;
- ChildBand.Frame.Shape := fsRectangle;
- ChildBand.Frame.BackgroundColor := clGroupHeaderFooter3;
- GroupFooter3Initial.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 3;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter2;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clNone;
- Shape.Layout.Left := 8;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Memo := TFPReportMemo.Create(ChildBand);
- Memo.Layout.Left := 12;
- Memo.Layout.Top := 3;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 16;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.Text := 'Population [copy(country,1,1)]: [formatfloat(''#,##0'', grp3initial_sum_population)]';
- //Memo.Text := 'Population: [formatfloat(''#,##0'', grp3initial_sum_population)]';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 2;
- GroupFooter3Initial.ChildBand.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter2;
- Shape.Layout.Left := 5;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter2;
- {*** group footer 2 subregion ***}
- GroupFooter2SubRegion := TFPReportGroupFooterBand.Create(Page);
- GroupFooter2SubRegion.Layout.Height := 15;
- GroupFooter2SubRegion.GroupHeader := GroupHeader2Subregion;
- GroupFooter2SubRegion.Frame.Shape := fsRectangle;
- GroupFooter2SubRegion.Frame.BackgroundColor := clGroupHeaderFooter2;
- Shape := TFPReportShape.Create(GroupFooter2SubRegion);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := GroupFooter2SubRegion.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- Shape := TFPReportShape.Create(GroupFooter2SubRegion);
- Shape.Color := clNone;
- Shape.Layout.Left := 3;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 2;
- Shape.Layout.Height := GroupFooter2SubRegion.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clWhite;
- Memo := TFPReportMemo.Create(GroupFooter2SubRegion);
- Memo.Layout.Left := 7;
- Memo.Layout.Top := 3;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 16;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.Text := 'Population [subregion]: [formatfloat(''#,##0'', grp2subregion_sum_population)]';
- //Memo.Text := 'Population: [formatfloat(''#,##0'', grp2subregion_sum_population)]';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 2;
- GroupFooter2SubRegion.ChildBand := ChildBand;
- Shape := TFPReportShape.Create(ChildBand);
- Shape.Color := clGroupHeaderFooter;
- Shape.Layout.Left := 0;
- Shape.Layout.Top := 0;
- Shape.Layout.Width := 3;
- Shape.Layout.Height := ChildBand.Layout.Height;
- Shape.Frame.Shape := fsRectangle;
- Shape.Frame.BackgroundColor := clGroupHeaderFooter;
- {*** group footer 1 region ***}
- GroupFooter1Region := TFPReportGroupFooterBand.Create(Page);
- GroupFooter1Region.Layout.Height := 15;
- GroupFooter1Region.GroupHeader := GroupHeader1Region;
- GroupFooter1Region.Frame.Shape := fsRectangle;
- GroupFooter1Region.Frame.BackgroundColor := clGroupHeaderFooter;
- Memo := TFPReportMemo.Create(GroupFooter1Region);
- Memo.Layout.Left := 3;
- Memo.Layout.Top := 3;
- Memo.Layout.Width := 170;
- Memo.Layout.Height := 6;
- Memo.UseParentFont := False;
- Memo.Font.Size := 16;
- Memo.TextAlignment.Vertical := tlBottom;
- Memo.Text := 'Population [region]: [formatfloat(''#,##0'', grp1region_sum_population)]';
- //Memo.Text := 'Population: [formatfloat(''#,##0'', grp1region_sum_population)]';
- ChildBand := TFPReportChildBand.Create(Page);
- ChildBand.Layout.Height := 2;
- GroupFooter1Region.ChildBand := ChildBand;
- {*******************}
- {*** page footer ***}
- {*******************}
- PageFooter := TFPReportPageFooterBand.Create(Page);
- PageFooter.Layout.Height := 20;
- PageFooter.Frame.Shape := fsRectangle;
- PageFooter.Frame.BackgroundColor := clPageHeaderFooter;
- Memo := TFPReportMemo.Create(PageFooter);
- Memo.Layout.Left := 123;
- Memo.Layout.Top := 13;
- Memo.Layout.Width := 50;
- Memo.Layout.Height := 5;
- Memo.Text := 'Page [PageNo] of [PageCount]';
- Memo.TextAlignment.Vertical := tlCenter;
- Memo.TextAlignment.Horizontal := taRightJustified;
- Memo := TFPReportMemo.Create(PageFooter);
- Memo.Layout.Left := 0;
- Memo.Layout.Top := 5;
- Memo.Layout.Width := Page.PageSize.Width - Page.Margins.Left - Page.Margins.Right;
- Memo.Layout.Height := 8;
- Memo.UseParentFont := False;
- Memo.TextAlignment.Horizontal := taCentered;
- Memo.Text := 'Population World: [formatfloat(''#,##0'', total_sum_population)]';
- Memo.Font.Size := 16;
- end;
- procedure TNestedGroupsDemo.LoadDesignFromFile(const AFilename: string);
- var
- rs: TFPReportJSONStreamer;
- fs: TFileStream;
- lJSON: TJSONObject;
- begin
- if AFilename = '' then
- Exit;
- if not FileExists(AFilename) then
- raise Exception.CreateFmt('The file "%s" can not be found', [AFilename]);
- fs := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone);
- try
- lJSON := TJSONObject(GetJSON(fs));
- finally
- fs.Free;
- end;
- rs := TFPReportJSONStreamer.Create(nil);
- rs.JSON := lJSON; // rs takes ownership of lJSON
- try
- rpt.ReadElement(rs);
- finally
- rs.Free;
- end;
- end;
- procedure TNestedGroupsDemo.HookupData(const AComponentName: string; const AData: TFPReportData);
- var
- b: TFPReportCustomBandWithData;
- begin
- b := TFPReportCustomBandWithData(rpt.FindRecursive(AComponentName));
- if Assigned(b) then
- b.Data := AData;
- end;
- constructor TNestedGroupsDemo.Create(AOWner: TComponent);
- begin
- inherited;
- FReportData := TFPReportUserData.Create(nil);
- FReportData.OnGetValue := @GetReportDataValue;
- FReportData.OnGetEOF := @GetReportDataEOF;
- FReportData.OnFirst := @GetReportDataFirst;
- FReportData.OnGetNames := @GetReportFieldNames;
- FReportData.OnNext := @ReportDataNext;
- end;
- destructor TNestedGroupsDemo.Destroy;
- begin
- FreeAndNil(FReportData);
- rec.DelimitedText := '';
- FreeAndNil(rec);
- FreeAndNil(sl);
- inherited Destroy;
- end;
- class function TNestedGroupsDemo.Description: string;
- begin
- Result:='Demo showing grouping';
- end;
- end.
|