paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 13:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

PrintersLazarus Carbon: fixed bug #0011014: Mac OS X : Unable to compile Printer4Lazarus 0.5 as Dominique Louis suggested

Browse Source 
git-svn-id: trunk@14623 -
This commit is contained in:
tombo 2008-03-24 08:41:48 +00:00
parent ad94ffd5fb
commit 151855e408
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/printers/carbon/carbonprndialogs.inc
View File

@ -45,6 +45,7 @@ var
CarbonPrinter: TCarbonPrinter; CarbonPrinter: TCarbonPrinter;
DialogSettings: PMPrintSettings; DialogSettings: PMPrintSettings;
U, V: UInt32; U, V: UInt32;
B: Boolean;
PMin, PMax, PFrom, PTo: Integer; PMin, PMax, PFrom, PTo: Integer;
begin begin
Result := False; Result := False;
@ -83,7 +84,9 @@ begin
if Result then if Result then
begin begin
OSError(PMGetCollate(DialogSettings, Collate), Self, SExecute, 'PMGetCollate'); B := Collate;
OSError(PMGetCollate(DialogSettings, B), Self, SExecute, 'PMGetCollate');
Collate := B;
V := Copies; V := Copies;
OSError(PMGetCopies(DialogSettings, V), Self, SExecute, 'PMGetCopies'); OSError(PMGetCopies(DialogSettings, V), Self, SExecute, 'PMGetCopies');

1
docs/Contributors.txt
View File

@ -29,6 +29,7 @@ Darius Blaszijk
David Guadagnini David Guadagnini
Dean Zobec Dean Zobec
Diogo Picarra Diogo Picarra
Dominique Louis
Ere Maijala Ere Maijala
Eric Chapman Eric Chapman
Erivelton Silva Erivelton Silva