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

Printers: update Cocoa resolution information. #36063

Browse Source 
git-svn-id: trunk@62184 -
This commit is contained in:
dmitry 2019-11-03 23:54:51 +00:00
parent 13ce80945c
commit a11d2db8f4
1 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/printers/cocoa/cocoaprinters.inc
View File

@ -380,12 +380,40 @@ end;
function TCocoaPrinter.GetOutputResolution: PMResolution;
var
res: OSStatus;
pInfo: NSPrintInfo;
prn : PMPrinter;
cnt : UInt32;
i : UInt32;
rs : PMResolution;
begin
Result.vRes := 0;
Result.hRes := 0;
cnt := 0;
pInfo := NSPrintInfo.sharedPrintInfo;
res := PMPrinterGetOutputResolution(GetCurrentPrinter(), pInfo.PMPrintSettings, result{%H-});
if res <> noErr then
prn := GetCurrentPrinter();
// todo: the code has been changed to mirror Carbon implementation
// for some drivers PMPrinterGetOutputResolution() returns failure at all times
// (even if printer dialog has been called).
// Enumeration of resolution doesn't return all possible values either.
// (i.e. Brother MFC 7860DW only gives 300x300 resolution
// while it actually supports 300, 600 and HQ1200 (2400x600) dpis)
// CUPS properties do indicate the actual resoltuion, BUT there's no standard
// way of reading the resolution.
// (i.e. the same Brother printer reports via "lpoptions -l":
// BRResolution/Resolution: 300dpi *600dpi 2400x600dpi)
if (PMPrinterGetOutputResolution(prn, pInfo.PMPrintSettings, rs{%H-}) = noErr) then
Result := rs
else if PMPrinterGetPrinterResolutionCount(prn, cnt) = noErr then
begin
for i:=1 to cnt do
begin
if (PMPrinterGetIndexedPrinterResolution(prn, i, rs) = noErr)
and ((rs.vRes > Result.vRes) or (rs.hRes > Result.hRes)) then
Result := rs;
end;
end;
if (Result.vRes = 0) or (Result.hRes = 0) then
begin
Result.vRes := 72;
Result.hRes := 72;