/components/printers/qt/qtprinters_h.inc

http://github.com/graemeg/lazarus · Pascal · 67 lines · 55 code · 10 blank · 2 comment · 0 complexity · ecff9449bfcf07217dc1b47113f26f8c MD5 · raw file 

    

  1. {%MainUnit ../osprinters.pas}
    2. 

  2. uses
    3. 

  3.   Classes, SysUtils, Printers, qt4, qtobjects,
    4. 

  4.   LCLType, LCLProc;
    5. 

  5. 

  6. type
    7. 

  7.   { TQtPrinters }
    8. 

  8.   TQtPrinters = class(TPrinter)
    9. 

  9.   private
    10. 

  10.     FPagesEnum: TStrings;
    11. 

  11.     FPrinterHandle: TQtPrinter;
    12. 

  12. 

  13.     procedure CreatePrintSettings;
    14. 

  14.     procedure BeginPage;
    15. 

  15.     procedure EndPage;
    16. 

  16.     
    17. 

  17.     procedure EnumQPrinters(Lst: TStrings);
    18. 

  18.     procedure EnumQPapers(Lst: TStrings);
    19. 

  19.     function GetColorMode: QPrinterColorMode;
    20. 

  20.     function GetFullPage: Boolean;
    21. 

  21.     function GetPageOrder: QPrinterPageOrder;
    22. 

  22.     procedure SetColorMode(const AValue: QPrinterColorMode);
    23. 

  23.     procedure SetFullPage(const AValue: Boolean);
    24. 

  24.     procedure SetPageOrder(const AValue: QPrinterPageOrder);
    25. 

  25.   protected
    26. 

  26.     procedure DoBeginDoc; override;
    27. 

  27.     procedure DoNewPage; override;
    28. 

  28.     procedure DoEndDoc(aAborded : Boolean); override;
    29. 

  29.     procedure DoAbort; override;
    30. 

  30. 

  31.     procedure DoEnumPrinters(Lst : TStrings); override;
    32. 

  32.     procedure DoResetPrintersList; override;
    33. 

  33. 

  34.     procedure DoEnumPapers(Lst : TStrings); override;
    35. 

  35.     function DoGetPaperName: string; override;
    36. 

  36.     function DoGetDefaultPaperName: string; override;
    37. 

  37.     procedure DoSetPaperName(aName : string); override;
    38. 

  38.     function DoGetPaperRect(aName : string; Var aPaperRc : TPaperRect) : Integer; override;
    39. 

  39. 

  40.     function DoSetPrinter(aName : string): Integer; override;
    41. 

  41. 

  42.     function DoGetCopies : Integer; override;
    43. 

  43.     procedure DoSetCopies(aValue : Integer); override;
    44. 

  44.     function DoGetOrientation: TPrinterOrientation; override;
    45. 

  45.     procedure DoSetOrientation(aValue : TPrinterOrientation); override;
    46. 

  46. 

  47.     function GetXDPI: Integer; override;
    48. 

  48.     function GetYDPI: Integer; override;
    49. 

  49.     function GetPrinterType: TPrinterType;override;
    50. 

  50.     function DoGetPrinterState: TPrinterState;override;
    51. 

  51.     function GetCanPrint: Boolean;override;
    52. 

  52.     function GetCanRenderCopies : Boolean;override;
    53. 

  53.     procedure RawModeChanging; override;
    54. 

  54.     procedure DoDestroy; override;
    55. 

  55.   public
    56. 

  56.     procedure Validate;
    57. 

  57.     function GetPaperSize(Const Str: String): QPrinterPageSize;
    58. 

  58.   public
    59. 

  59.     constructor Create; override;
    60. 

  60.     function Write(const {%H-}Buffer; {%H-}Count:Integer; var {%H-}Written: Integer): Boolean; override;
    61. 

  61. 

  62.     property ColorMode: QPrinterColorMode read GetColorMode write SetColorMode;
    63. 

  63.     property FullPage: Boolean read GetFullPage write SetFullPage;
    64. 

  64.     property Handle: TQtPrinter read FPrinterHandle;
    65. 

  65.     property PageOrder: QPrinterPageOrder read GetPageOrder write SetPageOrder;
    66. 

  66.   end;
    67.