paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 10:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, frPrintGrid improvement: word wrap in cells, can connect to RxDbgrid, from Aleksey Lagunov, issue #22942

Browse Source 
git-svn-id: trunk@38798 -
This commit is contained in:
jesus 2012-09-22 17:33:22 +00:00
parent 5919831958
commit 43d105558b
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/lazreport/source/lr_pgrid.pas
View File

@ -39,7 +39,7 @@ type
TfrPrintGrid = class(TComponent) TfrPrintGrid = class(TComponent)
private private
FDBGrid : TDBGrid; FDBGrid : TCustomDBGrid;
FOnGetValue: TDetailEvent; FOnGetValue: TDetailEvent;
FOnSetUpColumn: TSetupColumnEvent; FOnSetUpColumn: TSetupColumnEvent;
FReport : TfrReport; FReport : TfrReport;
@ -57,7 +57,7 @@ type
procedure OnEnterRect(Memo: TStringList; View: TfrView); procedure OnEnterRect(Memo: TStringList; View: TfrView);
procedure OnPrintColumn(ColNo: Integer; var Width: Integer); procedure OnPrintColumn(ColNo: Integer; var Width: Integer);
procedure SetDBGrid(const AValue: TDBGrid); procedure SetDBGrid(const AValue: TCustomDBGrid);
protected protected
{ Protected declarations } { Protected declarations }
procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure Notification(AComponent: TComponent; Operation: TOperation); override;
@ -71,7 +71,7 @@ type
procedure PreviewReport; procedure PreviewReport;
published published
property DBGrid: TDBGrid read FDBGrid write SetDBGrid; property DBGrid: TCustomDBGrid read FDBGrid write SetDBGrid;
property Orientation: TPrinterOrientation read FOrientation write FOrientation default poPortrait; property Orientation: TPrinterOrientation read FOrientation write FOrientation default poPortrait;
property Font: TFont read FFont write FFont; property Font: TFont read FFont write FFont;
property TitleFont : TFont read FTitleFont write FTitleFont; property TitleFont : TFont read FTitleFont write FTitleFont;
@ -126,13 +126,13 @@ var
i,j,ColumnWidth: Integer; i,j,ColumnWidth: Integer;
begin begin
SetLength(FColumnsInfo, 0); SetLength(FColumnsInfo, 0);
for i:=0 to DbGrid.Columns.Count-1 do begin for i:=0 to TDBGrid(DbGrid).Columns.Count-1 do begin
PrintColumn := DbGrid.Columns[i].Visible; PrintColumn := TDBGrid(DbGrid).Columns[i].Visible;
ColumnWidth := DbGrid.Columns[i].Width; ColumnWidth := TDBGrid(DbGrid).Columns[i].Width;
if Assigned(FOnSetupColumn) then if Assigned(FOnSetupColumn) then
FOnSetupColumn(Self, TColumn(DbGrid.Columns[i]), PrintColumn, ColumnWidth); FOnSetupColumn(Self, TColumn(TDBGrid(DbGrid).Columns[i]), PrintColumn, ColumnWidth);
if PrintColumn then begin if PrintColumn then begin
j:=Length(FColumnsInfo); j:=Length(FColumnsInfo);
@ -213,13 +213,13 @@ begin
end; end;
end; end;
procedure TfrPrintGrid.SetDBGrid(const AValue: TDBGrid); procedure TfrPrintGrid.SetDBGrid(const AValue: TCustomDBGrid);
begin begin
fDBGrid:=aValue; fDBGrid:=aValue;
if (csDesigning in ComponentState) and Assigned(fDBGrid) then if (csDesigning in ComponentState) and Assigned(fDBGrid) then
begin begin
fFont.Assign(fDBGrid.Font); fFont.Assign(fDBGrid.Font);
FTitleFont.Assign(fDBGrid.TitleFont); FTitleFont.Assign(TDBGrid(fDBGrid).TitleFont);
end; end;
end; end;
@ -231,8 +231,8 @@ var
BM : TBookMark; BM : TBookMark;
XPos,YPos: Integer; XPos,YPos: Integer;
begin begin
if (FDBGrid = nil) or (DBGrid.Datasource = nil) or if (FDBGrid = nil) or (TDBGrid(DBGrid).Datasource = nil) or
(DBGrid.Datasource.Dataset = nil) then Exit; (TDBGrid(DBGrid).Datasource.Dataset = nil) then Exit;
if (FTemplate<>'') and not FileExists(FTemplate) then if (FTemplate<>'') and not FileExists(FTemplate) then
raise Exception.CreateFmt('Template file %s does not exists',[FTemplate]); raise Exception.CreateFmt('Template file %s does not exists',[FTemplate]);
@ -241,7 +241,7 @@ begin
if FTemplate<>'' then if FTemplate<>'' then
FReport.LoadFromFile(FTemplate); FReport.LoadFromFile(FTemplate);
FDataSet := DBGrid.Datasource.Dataset; FDataSet := TDBGrid(DBGrid).Datasource.Dataset;
FReport.OnEnterRect :=@OnEnterRect; FReport.OnEnterRect :=@OnEnterRect;
FReport.OnPrintColumn:=@OnPrintColumn; FReport.OnPrintColumn:=@OnPrintColumn;
@ -260,7 +260,7 @@ begin
FColumnDataSet.RangeEndCount := Length(FColumnsInfo); FColumnDataSet.RangeEndCount := Length(FColumnsInfo);
try try
FReportDataSet.DataSource := DBGrid.DataSource; FReportDataSet.DataSource := TDBGrid(DBGrid).DataSource;
if FReport.Pages.Count=0 then if FReport.Pages.Count=0 then
FReport.Pages.add; FReport.Pages.add;
Page := FReport.Pages[FReport.Pages.Count-1]; Page := FReport.Pages[FReport.Pages.Count-1];
@ -304,6 +304,7 @@ begin
if self.fShowHdOnAllPage then if self.fShowHdOnAllPage then
b.Flags:=b.Flags+flBandRepeatHeader; b.Flags:=b.Flags+flBandRepeatHeader;
b.SetBounds(XPos, YPos, 1000, 20); b.SetBounds(XPos, YPos, 1000, 20);
b.Flags:=b.Flags or flStretched;
Page.Objects.Add(b); Page.Objects.Add(b);
v := frCreateObject(gtMemo, '', Page); v := frCreateObject(gtMemo, '', Page);
@ -312,7 +313,7 @@ begin
TfrMemoView(v).FillColor := clSilver; TfrMemoView(v).FillColor := clSilver;
TfrMemoView(v).Font.Assign(FTitleFont); TfrMemoView(v).Font.Assign(FTitleFont);
TfrMemoView(v).Frames:=frAllFrames; TfrMemoView(v).Frames:=frAllFrames;
TfrMemoView(v).Layout:=tlCenter; TfrMemoView(v).Layout:=tlTop;
v.Memo.Add('[Header]'); v.Memo.Add('[Header]');
Page.Objects.Add(v); Page.Objects.Add(v);
@ -322,6 +323,7 @@ begin
b.BandType := btMasterData; b.BandType := btMasterData;
b.Dataset := FReportDataSet.Name; b.Dataset := FReportDataSet.Name;
b.SetBounds(0, YPos, 1000, 18); b.SetBounds(0, YPos, 1000, 18);
b.Flags:=b.Flags or flStretched;
Page.Objects.Add(b); Page.Objects.Add(b);
b := TfrBandView(frCreateObject(gtBand, '', Page)); b := TfrBandView(frCreateObject(gtBand, '', Page));
@ -333,9 +335,10 @@ begin
v := frCreateObject(gtMemo, '', Page); v := frCreateObject(gtMemo, '', Page);
v.SetBounds(XPos, YPos, 20, 18); v.SetBounds(XPos, YPos, 20, 18);
v.Memo.Add('[Cell]'); v.Memo.Add('[Cell]');
V.Flags:=V.Flags or flStretched;
TfrMemoView(v).Font.Assign(FFont); TfrMemoView(v).Font.Assign(FFont);
TfrMemoView(v).Frames:=frAllFrames; TfrMemoView(v).Frames:=frAllFrames;
TfrMemoView(v).Layout:=tlCenter; TfrMemoView(v).Layout:=tlTop;
Page.Objects.Add(v); Page.Objects.Add(v);
FDataSet.DisableControls; FDataSet.DisableControls;
@ -364,7 +367,7 @@ begin
if (i<0) or (i>Length(FColumnsInfo)-1) then if (i<0) or (i>Length(FColumnsInfo)-1) then
exit; exit;
C := TColumn(DbGrid.Columns[FColumnsInfo[i].Column]); C := TColumn(TDBGrid(DbGrid).Columns[FColumnsInfo[i].Column]);
if (C<>nil)and(Memo.Count>0) then if (C<>nil)and(Memo.Count>0) then
begin begin
if (Memo[0]='[Cell]') and (C.Field<>nil) then if (Memo[0]='[Cell]') and (C.Field<>nil) then