Problem with TPageSetupDialog
lazarus / 31-LCL

----------------------------------------------------------------------
zamtmn · 2022-10-28 12:17

If I change page type in TPageSetupDialog this change only
Printer.PaperSize.PaperName, but Printer.PageWidth,Printer.PageHeight
remain the same and do not change. see Attached example
Quote[PrinterSetupDlg.Execute] Printer "HP LaserJet 200 color M251 PCL
6", paper "A4"(4760x6815)
[PageSetupDlg.Execute] Printer "HP LaserJet 200 color M251 PCL 6",
paper "A5"(4760x6815)
[PageSetupDlg.Execute] Printer "HP LaserJet 200 color M251 PCL 6",
paper "A6"(4760x6815)
[PrinterSetupDlg.Execute] Printer "HP LaserJet 200 color M251 PCL 6",
paper "A6"(2280x3296)
"A6"(4760x6815) - after PageSetupDlg.Execute it is wrong.
"A6"(2280x3296) after PrinterSetupDlg.Execute it is good

I'm check on windows 11 x86-64. is it broken only for me, or can
someone confirm?

----------------------------------------------------------------------
wp · 2022-10-28 14:51

I can confirm it, Win-11, too. I transfered you project to Delphi, and
Delphi does not show this -- it's not a Windows limitation.

Please submit a bug report, and add your project. (But note: the {$R
*.res} in the project unit is malformed (missing '$'), and it took me
some time to find out why the project could not be started due to
error "740", "Failed to execute").