paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 11:49:07 +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;
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');

1
docs/Contributors.txt
View File

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