Skip to content

More versatile preset configuration options for the print options dialog #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Silverdust-ZH wants to merge 1 commit into
base: master
Choose a base branch
from
Open

More versatile preset configuration options for the print options dialog #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
39 changes: 39 additions & 0 deletions Source/EmbeddedWB.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -177,6 +177,10 @@ TPrintOptions = class(TPersistent)
FFooter: string;
FMargins: TMargins;
FOrientation: TPrintOrientationOption;
FPreferredPaperFormat: string;
FPrintBackgroundImages: Boolean;
FAdjustToSize: Boolean;
FDisableHeadersAndFooters: Boolean;
FMeasure: TMeasure;
procedure SetHTMLHeader(const Value: Tstrings);
public
Expand All @@ -189,6 +193,10 @@ TPrintOptions = class(TPersistent)
property HTMLHeader: TStrings read FHTMLHeader write SetHTMLHeader;
property Footer: string read FFooter write FFooter;
property Orientation: TPrintOrientationOption read FOrientation write FOrientation;
property PreferredPaperFormat: string read FPreferredPaperFormat write FPreferredPaperFormat;
property PrintBackgroundImages: Boolean read FPrintBackgroundImages write FPrintBackgroundImages;
property AdjustToSize: Boolean read FAdjustToSize write FAdjustToSize;
property DisableHeadersAndFooters: Boolean read FDisableHeadersAndFooters write FDisableHeadersAndFooters;
end;

{============================================================================}
Expand Down Expand Up @@ -1250,6 +1258,37 @@ procedure TEmbeddedWB.HandleDialogBoxes(var AMsg: Messages.TMessage);
SendDlgItemMessage(PopHandle, $0420, BM_CLICK, 0, 0)
else
SendDlgItemMessage(PopHandle, $0421, BM_CLICK, 0, 0);

// try to select preferred paper format
// (if it doesn't exists, the default selection won't be touched)
if FPrintOptions.FPreferredPaperFormat <> '' then
begin
PreferredPaperFormatIndex := SendDlgItemMessage(
PopHandle, $0471, CB_FINDSTRING, WParam(-1),
LParam(PChar(FPrintOptions.FPreferredPaperFormat)));

if PreferredPaperFormatIndex <> CB_ERR then
SendDlgItemMessage(PopHandle, $0471, CB_SETCURSEL, PreferredPaperFormatIndex, 0);
end;

// enable or disable the background image printing checkbox as acquired
if FPrintOptions.FPrintBackgroundImages then
CheckDlgButton(PopHandle, $0410, BST_CHECKED)
else
CheckDlgButton(PopHandle, $0410, BST_UNCHECKED);

// enable or disable the adjust to size checkbox as acquired
if FPrintOptions.FAdjustToSize then
CheckDlgButton(PopHandle, $0411, BST_CHECKED)
else
CheckDlgButton(PopHandle, $0411, BST_UNCHECKED);

// disable all header and footers by selecting
// the first element <none> if desired
if FPrintOptions.FDisableHeadersAndFooters then
for CtrlID := $1fe0 to $1fe5 do
SendDlgItemMessage(PopHandle, CtrlID, CB_SETCURSEL, 0, 0);

SetDlgItemText(PopHandle, $1FD3, PChar(FPrintOptions.FHeader));
SetDlgItemText(PopHandle, $1FD5, PChar(FPrintOptions.FFooter));
SetDlgItemText(PopHandle, $0483, PChar(PrintMarginStr(FPrintOptions.FMargins.FLeft)));
Expand Down