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

* Event handler to react on page size change in designer

Browse Source 
git-svn-id: trunk@38364 -
This commit is contained in:
michael 2018-02-27 16:48:34 +00:00
parent 1cf1ab8ab9
commit a75e25aa46
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-report/src/fpreport.pp
View File

@ -800,6 +800,7 @@ type
FDataName : String; FDataName : String;
FFont: TFPReportFont; FFont: TFPReportFont;
FMargins: TFPReportMargins; FMargins: TFPReportMargins;
FOnPageSizeChange: TNotifyEvent;
FOrientation: TFPReportPaperOrientation; FOrientation: TFPReportPaperOrientation;
FPageSize: TFPReportPageSize; FPageSize: TFPReportPageSize;
FReport: TFPCustomReport; FReport: TFPCustomReport;
@ -855,6 +856,7 @@ type
property ColumnGap: TFPReportUnits read FColumnGap write SetColumnGap default 0; property ColumnGap: TFPReportUnits read FColumnGap write SetColumnGap default 0;
property ColumnLayout: TFPReportColumnLayout read FColumnLayout write SetColumnLayout default clVertical; property ColumnLayout: TFPReportColumnLayout read FColumnLayout write SetColumnLayout default clVertical;
property Font: TFPReportFont read FFont write SetFont; property Font: TFPReportFont read FFont write SetFont;
Property OnPageSizeChange : TNotifyEvent Read FOnPageSizeChange Write FOnPageSizeChange;
end; end;
TFPReportCustomPageClass = Class of TFPReportCustomPage; TFPReportCustomPageClass = Class of TFPReportCustomPage;
@ -6776,6 +6778,8 @@ end;
procedure TFPReportCustomPage.PageSizeChanged; procedure TFPReportCustomPage.PageSizeChanged;
begin begin
RecalcLayout; RecalcLayout;
If Assigned(FOnPageSizeChange) then
FOnPageSizeChange(Self);
end; end;
constructor TFPReportCustomPage.Create(AOwner: TComponent); constructor TFPReportCustomPage.Create(AOwner: TComponent);