TCocoaPrinterCanvas

type TCocoaPrinterCanvas = class(TFilePrinterCanvas)

protected

  ScaleX: Double;

  ScaleY: Double;

  FontScale: Double;

  procedure SetLazClipRect();

  procedure DoLineTo(); override;

  procedure DoMoveTo(); override;

  procedure SetHandle(); override;

  function GetClipRect; override;

  procedure SetClipRect(); override;

  function GetClipping; override;

  procedure SetClipping(); override;

  procedure CreateBrush; override;

  procedure CreateFont; override;

  procedure CreateHandle; override;

  procedure CreatePen; override;

  procedure CreateRegion; override;

  procedure RealizeAntialiasing; override;

  procedure DestroyHandle;

public

  SurfaceXDPI: Integer;

  SurfaceYDPI: Integer;

  constructor Create();

  destructor Destroy; override;

  procedure BeginDoc; override;

  procedure EndDoc; override;

  procedure NewPage; override;

  procedure FillRect(); override;

  procedure Rectangle(); override;

  procedure Polyline(); override;

  procedure Polygon(); override;

  procedure FrameRect(); override;

  procedure Frame(); override;

  procedure RoundRect(); override;

  procedure Ellipse(); override;

  procedure Arc();

  procedure Chord();

  procedure Pie(); override;

  procedure RadialPie(); override;

  procedure PolyBezier(); override;

  procedure TextOut(); override;

  procedure TextRect(); override;

  function TextExtent(); override;

  function GetTextMetrics(); override;

  procedure StretchDraw(); override;

  procedure SetPixel(); override;

  procedure DrawRecording();

end;

TCocoaPrinterCanvas

TObject