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

LazReport: Add options for new PreviewButtons. Issue #39845, patch by michalgw.

Browse Source
This commit is contained in:
juha 2022-08-11 08:59:37 +03:00
parent 0bd2462114
commit 62e33c59a2
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9987,7 +9987,8 @@ begin
FShowProgress := True;
FModalPreview := True;
FModifyPrepared := True;
FPreviewButtons := [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit];
FPreviewButtons := [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit,
pbSettings, pbPageSetup];
FInitialZoom := pzDefault;
FDefaultCopies := 1;
FileName := sUntitled;

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

@ -22,7 +22,8 @@ uses
type
TfrPreviewForm = class;
TfrPreviewZoom = (pzDefault, pzPageWidth, pzOnePage, pzTwoPages);
TfrPreviewButton = (pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit);
TfrPreviewButton = (pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit,
pbSettings, pbPageSetup);
TfrPreviewButtons = set of TfrPreviewButton;
{ TfrPreview }
@ -705,6 +706,8 @@ begin
LoadBtn.Visible := pbLoad in TfrReport(Doc).PreviewButtons;
PrintBtn.Visible := pbPrint in TfrReport(Doc).PreviewButtons;
ExitBtn.Visible := pbExit in TfrReport(Doc).PreviewButtons;
SettingsBtn.Visible := pbSettings in TfrReport(Doc).PreviewButtons;
PageSetupBtn.Visible := pbPageSetup in TfrReport(Doc).PreviewButtons;
if not ZoomBtn.Visible then
frTBSeparator1.Hide;
end;