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

TRxDBGridPrint - fix print with report title

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3447 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-08-08 05:32:55 +00:00
parent ff059e3420
commit bc8cc5acc2
1 changed files with 22 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
components/rx/trunk/rxdbgridprintgrid.pas
View File

@ -99,8 +99,9 @@ type
FYPos: Integer; FYPos: Integer;
FXPos: Integer; FXPos: Integer;
procedure DoShowReportTitle;
procedure DoCreateReport; procedure DoCreateReport;
procedure DoShowReportTitle;
procedure DoSetupColumns; procedure DoSetupColumns;
procedure DoShowColumnsTitle; procedure DoShowColumnsTitle;
procedure DoShowFooter; procedure DoShowFooter;
@ -181,24 +182,21 @@ var
FBand: TfrBandView; FBand: TfrBandView;
FView: TfrMemoView; FView: TfrMemoView;
begin begin
if rxpoShowReportTitle in FOptions then FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
begin FBand.SetBounds(10, FYPos, 1000, 25);
FBand := TfrBandView(frCreateObject(gtBand, '', FPage)); FBand.BandType := btReportTitle;
FBand.SetBounds(10, 20, 1000, 25); FPage.Objects.Add(FBand);
FBand.BandType := btReportTitle;
FPage.Objects.Add(FBand);
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView; FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(20, 20, FPage.PrnInfo.PgW - 40, 25); FView.SetBounds(FXPos, FYPos, FPage.PrnInfo.PgW - 40, 25);
FView.Alignment:=taCenter; FView.Alignment:=taCenter;
FView.Font.Size:=12; FView.Font.Size:=12;
// FView.Font.Assign(FTitleFont); // FView.Font.Assign(FTitleFont);
FView.Memo.Add(FReportTitle); FView.Memo.Add(FReportTitle);
FPage.Objects.Add(FView); FPage.Objects.Add(FView);
Inc(FYPos, 22) Inc(FYPos, 27)
end;
end; end;
procedure TRxDBGridPrint.DoCreateReport; procedure TRxDBGridPrint.DoCreateReport;
@ -219,9 +217,11 @@ begin
FYPos:=FPageMargin.Top; FYPos:=FPageMargin.Top;
FXPos:=FPageMargin.Left; FXPos:=FPageMargin.Left;
DoShowReportTitle; if rxpoShowReportTitle in FOptions then
DoShowReportTitle;
DoShowColumnsTitle; if rxpoShowTitle in FOptions then
DoShowColumnsTitle;
FBand := TfrBandView(frCreateObject(gtBand, '', FPage)); FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.BandType := btMasterData; FBand.BandType := btMasterData;
@ -258,7 +258,7 @@ var
i: Integer; i: Integer;
j: Integer; j: Integer;
begin begin
FTitleRowCount:=0; FTitleRowCount:=1;
FRxColInfoList.Clear; FRxColInfoList.Clear;
for i:=0 to RxDBGrid.Columns.Count-1 do for i:=0 to RxDBGrid.Columns.Count-1 do
begin begin
@ -283,13 +283,11 @@ var
begin begin
FBand := TfrBandView(frCreateObject(gtBand, '', FPage)); FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.BandType := btMasterHeader; FBand.BandType := btMasterHeader;
FBand.SetBounds(0, FYPos, 1000, 20 * FTitleRowCount);
if FShowColumnHeaderOnAllPage then
FBand.Flags:=FBand.Flags + flBandRepeatHeader;
FBand.SetBounds(FXPos, FYPos, 1000, 20 * FTitleRowCount);
FBand.Flags:=FBand.Flags or flStretched; FBand.Flags:=FBand.Flags or flStretched;
FPage.Objects.Add(FBand); FPage.Objects.Add(FBand);
if FShowColumnHeaderOnAllPage then
FBand.Flags:=FBand.Flags + flBandRepeatHeader;
for i:=0 to FTitleRowCount-1 do for i:=0 to FTitleRowCount-1 do
begin begin
@ -388,6 +386,7 @@ begin
K:=StrToIntDef(Copy(S, 8, Length(S)), 0); K:=StrToIntDef(Copy(S, 8, Length(S)), 0);
if TRxColumnTitle(F.Col.Title).CaptionLinesCount = 0 then if TRxColumnTitle(F.Col.Title).CaptionLinesCount = 0 then
begin begin
S:=TRxColumnTitle(F.Col.Title).Caption;
if K = 0 then if K = 0 then
Memo[0] := TRxColumnTitle(F.Col.Title).Caption Memo[0] := TRxColumnTitle(F.Col.Title).Caption
else else