paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 13:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Fix psoDisable* options in TPageSetupDialog.Options. Issue #39020, patch by CudaText man.

Browse Source 
git-svn-id: trunk@65289 -
This commit is contained in:
juha 2021-06-22 06:08:00 +00:00
parent f8a5ce2132
commit b26eb8f968
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/printers/win32/winprndialogs.inc
View File

@ -68,6 +68,8 @@ end;
{ TPageSetupDialog }
function TPageSetupDialog.DoExecute: Boolean;
const
PSD_NONETWORKBUTTON = $00200000; //constant is missed in FPC 3.2
var
lpp : tagPSD;
PDev : TPrinterDevice;
@ -108,6 +110,20 @@ begin
rtMargin.Right := MarginRight;
rtMargin.Bottom := MarginBottom;
PDev := TPrinterDevice(Printer.Printers.Objects[Printer.PrinterIndex]);
if psoDisableMargins in FOptions then
Flags := Flags or PSD_DISABLEMARGINS;
if psoDisableOrientation in FOptions then
Flags := Flags or PSD_DISABLEORIENTATION;
if psoDisablePagePainting in FOptions then
Flags := Flags or PSD_DISABLEPAGEPAINTING;
if psoDisablePaper in FOptions then
Flags := Flags or PSD_DISABLEPAPER;
if psoDisablePrinter in FOptions then
Flags := Flags or PSD_DISABLEPRINTER;
if psoNoNetworkButton in FOptions then
Flags := Flags or PSD_NONETWORKBUTTON;
// Pdev.DevMode has the required size, just copy to the global memory
DeviceMode := GLobalAlloc(GHND, PDev.DevModeSize);
try