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

LazReport: New "Onbeforepreview" event in LazReport, patch from Zdravko Gabrovsk, issue #37794

Browse Source 
git-svn-id: trunk@63938 -
This commit is contained in:
jesus 2020-09-29 05:35:06 +00:00
parent ac50e66e44
commit 31487c5ae1
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazreport/doc/contributors.txt
View File

@ -21,3 +21,4 @@ Petr Smolik (cz)
Tony Whyman ( )
Ts. Petrov ( )
Vincent Snijders (nl)
Zdravko Gabrovsk ( )

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

@ -140,6 +140,7 @@ type
TPrintReportEvent = procedure(Sender: TfrReport) of object;
TFormPageBookmarksEvent = procedure(Sender: TfrReport; Backup: boolean) of object;
TExecScriptEvent = procedure(frObject:TfrObject; AScript:TfrScriptStrings) of object;
TBeforePreviewFormEvent = procedure( var PrForm : TfrPreviewForm ) of Object;
TfrHighlightAttr = packed record
FontStyle: Word;
@ -1148,6 +1149,7 @@ type
FObjectClick: TObjectClickEvent;
FOnExportFilterSetup: TExportFilterSetup;
fOnFormPageBookmarks: TFormPageBookmarksEvent;
fOnBeforePreview : TBeforePreviewFormEvent;
FPages: TfrPages;
FEMFPages: TfrEMFPages;
FRebuildPrinter: boolean;
@ -1365,6 +1367,7 @@ type
property OnObjectClick: TObjectClickEvent read FObjectClick write FObjectClick;
property OnMouseOverObject: TMouseOverObjectEvent read FMouseOverObject write FMouseOverObject;
property OnFormPageBookmarks: TFormPageBookmarksEvent read fOnFormPageBookmarks write fOnFormPageBookmarks;
property OnBeforePreview : TBeforePreviewFormEvent read fOnBeforePreview write fOnBeforePreview;
end;
TfrCompositeReport = class(TfrReport)
@ -11534,6 +11537,8 @@ begin
p.SaveDialog.InitialDir := ExtractFilePath(ExportFileName);
p.SaveDialog.FileName := ExportFilename;
end;
if Assigned( OnBeforePreview ) then
OnBeforePreview( p );
p.Show_Modal(Self);
end;
{$IFDEF DebugLR}