paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Printers, fixed carbon compilation but disabled so it uses cups implementation by now

Browse Source 
git-svn-id: trunk@12545 -
This commit is contained in:
jesus 2007-10-21 18:03:54 +00:00
parent f61657314b
commit 6c5de3dab4
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/printers/carbon/carbonprinters.inc
View File

@ -53,11 +53,6 @@ begin
//IMPLEMENT ME
end;
procedure TCarbonPrinter.SetDC;
begin
//IMPLEMENT ME
end;
procedure TCarbonPrinter.DoBeginDoc;
begin
inherited DoBeginDoc;
@ -119,6 +114,7 @@ begin
end;
function TCarbonPrinter.DoGetPaperRect(aName: string;
var aPaperRc: TPaperRect): Integer;
begin
Result:=Inherited DoGetPaperRect(aName,aPaperRc);
//IMPLEMENT ME

1
components/printers/carbon/carbonprinters_h.inc
View File

@ -2,6 +2,7 @@
uses
Classes,SysUtils,Printers,LCLType;
type
{ TCarbonPrinter }
TCarbonPrinter = class(TPrinter)

8
components/printers/osprinters.pas
View File

@ -37,7 +37,8 @@ interface
{$IFDEF UNIX}
{$IFDEF LCLCarbon}
{$I carbonprinters_h.inc}
{.$I carbonprinters_h.inc}
{$I cupsprinters_h.inc}
{$ELSE}
{$I cupsprinters_h.inc}
{$ENDIF}
@ -50,8 +51,9 @@ interface
implementation
{$IFDEF UNIX}
{$IFDEF LCLCarbon}
{$I carbonprinters.inc}
{$IFDEF LCLCarbon}
{.$I carbonprinters.inc}
{$I cupsprinters.inc}
{$ELSE}
{$I cupsprinters.inc}
{$ENDIF}

3
components/printers/printersdlgs.pp
View File

@ -75,7 +75,8 @@ implementation
{$IFDEF UNIX}
{$IFDEF LCLCarbon}
// add units as needed for carbon
// add units as needed for carbon, for the moment use cups ones.
uses Controls, udlgSelectPrinter, udlgPropertiesPrinter, FileUtil;
{$ELSE}
uses Controls, udlgSelectPrinter, udlgPropertiesPrinter, FileUtil;
{$I cupsprndialogs.inc}