mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 12:29:29 +02:00
68 lines
2.5 KiB
PHP
68 lines
2.5 KiB
PHP
{%MainUnit ../osprinters.pas}
|
|
uses
|
|
Classes, SysUtils, Printers, {$IFDEF LCLQt5}qt5{$ELSE}qt4{$ENDIF}, qtobjects,
|
|
LCLType, LCLProc;
|
|
|
|
type
|
|
{ TQtPrinters }
|
|
TQtPrinters = class(TPrinter)
|
|
private
|
|
FPagesEnum: TStrings;
|
|
FPrinterHandle: TQtPrinter;
|
|
|
|
procedure CreatePrintSettings;
|
|
procedure BeginPage;
|
|
procedure EndPage;
|
|
|
|
procedure EnumQPrinters(Lst: TStrings);
|
|
procedure EnumQPapers(Lst: TStrings);
|
|
function GetColorMode: QPrinterColorMode;
|
|
function GetFullPage: Boolean;
|
|
function GetPageOrder: QPrinterPageOrder;
|
|
procedure SetColorMode(const AValue: QPrinterColorMode);
|
|
procedure SetFullPage(const AValue: Boolean);
|
|
procedure SetPageOrder(const AValue: QPrinterPageOrder);
|
|
protected
|
|
procedure DoBeginDoc; override;
|
|
procedure DoNewPage; override;
|
|
procedure DoEndDoc(aAborded : Boolean); override;
|
|
procedure DoAbort; override;
|
|
|
|
procedure DoEnumPrinters(Lst : TStrings); override;
|
|
procedure DoResetPrintersList; override;
|
|
|
|
procedure DoEnumPapers(Lst : TStrings); override;
|
|
function DoGetPaperName: string; override;
|
|
function DoGetDefaultPaperName: string; override;
|
|
procedure DoSetPaperName(aName : string); override;
|
|
function DoGetPaperRect(aName : string; Var aPaperRc : TPaperRect) : Integer; override;
|
|
|
|
function DoSetPrinter(aName : string): Integer; override;
|
|
|
|
function DoGetCopies : Integer; override;
|
|
procedure DoSetCopies(aValue : Integer); override;
|
|
function DoGetOrientation: TPrinterOrientation; override;
|
|
procedure DoSetOrientation(aValue : TPrinterOrientation); override;
|
|
|
|
function GetXDPI: Integer; override;
|
|
function GetYDPI: Integer; override;
|
|
function GetPrinterType: TPrinterType;override;
|
|
function DoGetPrinterState: TPrinterState;override;
|
|
function GetCanPrint: Boolean;override;
|
|
function GetCanRenderCopies : Boolean;override;
|
|
procedure RawModeChanging; override;
|
|
procedure DoDestroy; override;
|
|
public
|
|
procedure Validate;
|
|
function GetPaperSize(Const Str: String): {$IFDEF LCLQt5}QPagedPaintDevicePageSize{$ELSE}QPrinterPageSize{$ENDIF};
|
|
public
|
|
constructor Create; override;
|
|
function Write(const {%H-}Buffer; {%H-}Count:Integer; out Written: Integer): Boolean; override;
|
|
|
|
property ColorMode: QPrinterColorMode read GetColorMode write SetColorMode;
|
|
property FullPage: Boolean read GetFullPage write SetFullPage;
|
|
property Handle: TQtPrinter read FPrinterHandle;
|
|
property PageOrder: QPrinterPageOrder read GetPageOrder write SetPageOrder;
|
|
end;
|
|
|