From 151855e408b7132b8c367bebf5b737b01a0f132c Mon Sep 17 00:00:00 2001 From: tombo Date: Mon, 24 Mar 2008 08:41:48 +0000 Subject: [PATCH] PrintersLazarus Carbon: fixed bug #0011014: Mac OS X : Unable to compile Printer4Lazarus 0.5 as Dominique Louis suggested git-svn-id: trunk@14623 - --- components/printers/carbon/carbonprndialogs.inc | 5 ++++- docs/Contributors.txt | 1 + 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/components/printers/carbon/carbonprndialogs.inc b/components/printers/carbon/carbonprndialogs.inc index a55e755839..69a5483ef0 100644 --- a/components/printers/carbon/carbonprndialogs.inc +++ b/components/printers/carbon/carbonprndialogs.inc @@ -45,6 +45,7 @@ var CarbonPrinter: TCarbonPrinter; DialogSettings: PMPrintSettings; U, V: UInt32; + B: Boolean; PMin, PMax, PFrom, PTo: Integer; begin Result := False; @@ -83,7 +84,9 @@ begin if Result then begin - OSError(PMGetCollate(DialogSettings, Collate), Self, SExecute, 'PMGetCollate'); + B := Collate; + OSError(PMGetCollate(DialogSettings, B), Self, SExecute, 'PMGetCollate'); + Collate := B; V := Copies; OSError(PMGetCopies(DialogSettings, V), Self, SExecute, 'PMGetCopies'); diff --git a/docs/Contributors.txt b/docs/Contributors.txt index 3742d7fbd2..2ad13a3544 100644 --- a/docs/Contributors.txt +++ b/docs/Contributors.txt @@ -29,6 +29,7 @@ Darius Blaszijk David Guadagnini Dean Zobec Diogo Picarra +Dominique Louis Ere Maijala Eric Chapman Erivelton Silva