1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
{%MainUnit ../osprinters.pas}
uses
Classes, SysUtils, Printers, qt4, 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): QPrinterPageSize;
public
constructor Create; override;
function Write(const {%H-}Buffer; {%H-}Count:Integer; var {%H-}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;
|
