paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, published OnGetValue in TfrPrintGrid so templates can modify custom variables

Browse Source 
git-svn-id: trunk@18971 -
This commit is contained in:
jesus 2009-03-12 20:43:57 +00:00
parent 373ac65497
commit 5066e9c035
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,7 @@ type
TfrPrintGrid = class(TComponent) TfrPrintGrid = class(TComponent)
private private
FDBGrid : TDBGrid; FDBGrid : TDBGrid;
FOnGetValue: TDetailEvent;
FOnSetUpColumn: TSetupColumnEvent; FOnSetUpColumn: TSetupColumnEvent;
FReport : TfrReport; FReport : TfrReport;
FReportDataSet : TfrDBDataSet; FReportDataSet : TfrDBDataSet;
@ -81,6 +82,7 @@ type
property ShowHeaderOnAllPage : boolean read fShowHdOnAllPage write fShowHdOnAllPage default True; property ShowHeaderOnAllPage : boolean read fShowHdOnAllPage write fShowHdOnAllPage default True;
property ShowProgress : Boolean read fShowProgress write fShowProgress default false; property ShowProgress : Boolean read fShowProgress write fShowProgress default false;
property OnSetupColumn: TSetupColumnEvent read FOnSetUpColumn write FOnSetupColumn; property OnSetupColumn: TSetupColumnEvent read FOnSetUpColumn write FOnSetupColumn;
property OnGetValue: TDetailEvent read FOnGetValue write FOnGetValue;
end; end;
@ -245,6 +247,7 @@ begin
FReport.OnEnterRect :=@OnEnterRect; FReport.OnEnterRect :=@OnEnterRect;
FReport.OnPrintColumn:=@OnPrintColumn; FReport.OnPrintColumn:=@OnPrintColumn;
FReport.ShowProgress :=fShowProgress; FReport.ShowProgress :=fShowProgress;
FReport.OnGetValue :=FOnGetValue;
FReportDataSet := TfrDBDataSet.Create(Self); FReportDataSet := TfrDBDataSet.Create(Self);
FReportDataSet.Name := 'frGridDBDataSet1'; FReportDataSet.Name := 'frGridDBDataSet1';