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

LazReport, implemented OnBeforePrint and OnAfterPrint events, modified patch from Michel Tournay, issue #25778

Browse Source 
git-svn-id: trunk@44779 -
This commit is contained in:
jesus 2014-04-21 19:16:58 +00:00
parent 80015d973f
commit 1a60920ec5
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazreport/source/lr_class.pas
View File

@ -107,6 +107,7 @@ type
TManualBuildEvent = procedure(Page: TfrPage) of object;
TObjectClickEvent = procedure(View: TfrView) of object;
TMouseOverObjectEvent = procedure(View: TfrView; var ACursor: TCursor) of object;
TPrintReportEvent = procedure(sender: TfrReport) of object;
TfrHighlightAttr = packed record
FontStyle: Word;
@ -967,6 +968,8 @@ type
private
FDataType: TfrDataType;
FDefaultCollate: boolean;
FOnAfterPrint: TPrintReportEvent;
FOnBeforePrint: TPrintReportEvent;
FOnDBImageRead: TOnDBImageRead;
FDefaultCopies: Integer;
FMouseOverObject: TMouseOverObjectEvent;
@ -1176,6 +1179,8 @@ type
property OnPrintColumn: TPrintColumnEvent read FOnPrintColumn write FOnPrintColumn;
property OnManualBuild: TManualBuildEvent read FOnManualBuild write FOnManualBuild;
property OnExportFilterSetup: TExportFilterSetup read FOnExportFilterSetup write FOnExportFilterSetup;
property OnBeforePrint: TPrintReportEvent read FOnBeforePrint write FOnBeforePrint;
property OnAfterPrint: TPrintReportEvent read FOnAfterPrint write FOnAfterPrint;
// If wanted, you can use your own handler to determine the graphic class of the image
property OnDBImageRead: TOnDBImageRead read FOnDBImageRead write FOnDBImageRead;
property OnObjectClick: TObjectClickEvent read FObjectClick write FObjectClick;
@ -10409,6 +10414,10 @@ begin
{$endif}
if Prn.UseVirtualPrinter then
ChangePrinter(Prn.PrinterIndex, Printer.PrinterIndex);
if Assigned(FOnBeforePrint) then
OnBeforePrint(Self);
Prn.Printer := Printer;
pgList := TStringList.Create;
@ -10446,6 +10455,10 @@ begin
Printer.EndDoc;
pgList.Free;
if Assigned(FOnAfterPrint) then
OnAfterPrint(Self);
{$ifdef DebugLR}
DebugPrnInfo('=== END');
DebugLnExit('TfrReport.DoPrintReport: DONE',[]);