{******************************************}
{                                          }
{             FastReport v4.0              }
{                 Printer                  }
{                                          }
{         Copyright (c) 1998-2008          }
{         by Alexander Tzyganenko,         }
{            Fast Reports Inc.             }
{                                          }
{******************************************}

unit FMX.Mac.frxPrinter;

interface

{$I fmx.inc}
{$I frx.inc}

uses
  System.Classes, System.SysUtils, System.Types, System.UITypes, System.Variants,
  FMX.Types, FMX.frxPrinter, FMX.Printer.Mac, FMX.Printer
{$IFDEF DELPHI27}
  ,System.Rtti, FMX.frxCanvas.Mac
{$ENDIF}
{$IFDEF DELPHI19}
  , FMX.Graphics
{$ENDIF};


type
  THackCanvas = class(TCanvas);
  THackPrinter = class(TPrinter);


  TfrxPrinter = class(TfrxCustomPrinter)
  private
    //FDriver: String;
    //FPrintDLG: TPrintDialog;
    //FOnChangedFont: TNotifyEvent;
    FIsFirst: Boolean;
  public
    constructor Create(const AName, APort: String); override;
    destructor Destroy; override;
    procedure Init; override;
    procedure Abort; override;
    procedure BeginDoc; override;
    procedure BeginPage; override;
    procedure BeginRAWDoc; override;
    procedure EndDoc; override;
    procedure EndPage; override;
    procedure EndRAWDoc; override;
    procedure WriteRAWDoc(const buf: AnsiString); override;
    procedure SetViewParams(APaperSize: Integer;
      APaperWidth, APaperHeight: Extended;
      AOrientation: TPrinterOrientation); override;
    procedure SetPrintParams(APaperSize: Integer;
      APaperWidth, APaperHeight: Extended; AOrientation: TPrinterOrientation;
      ABin, ADuplex, ACopies: Integer); override;
    procedure PropertiesDlg; override;
    function ShowPrintDialog: Boolean; override;
    function UpdateDeviceCaps: Boolean;
  end;


  TfrxPrinters = class(TfrxCustomPrinters)
  protected
    function GetDefaultPrinter: String; override;
  public
    constructor Create;
    destructor Destroy; override;
    procedure FillPrinters; override;
  end;



function frxGetPaperDimensions(PaperSize: Integer; var Width, Height: Extended): Boolean;
function ActualfrxPrinterClass : TfrxCustomPrintersClass;


implementation

uses
  FMX.frxUtils, FMX.frxRes, FMX.frxFMX, FMX.Forms, Macapi.CoreServices, Macapi.CoreFoundation, Macapi.Foundation,
  Macapi.CocoaTypes, Macapi.AppKit;


const
{$IFDEF MACOS64}
  libPrintCore = '/System/Library/Frameworks/ApplicationServices.framework/ApplicationServices';
{$ELSE}
  libPrintCore = '/System/Library/Frameworks/ApplicationServices.framework/Frameworks/PrintCore.framework/PrintCore';
{$ENDIF}
  kPMCancel = 128;
{$IFDEF UNDERSCOREIMPORTNAME}
  _PFX = '_';
{$ELSE}
  _PFX = '';
{$ENDIF}
{$EXTERNALSYM _PFX}

function PMGetCopies(printSettings: PMPrintSettings; copies: PUInt32): OSStatus; cdecl; external libPrintCore name _PFX + 'PMGetCopies';
function PMSetCopies(printSettings: PMPrintSettings; copies: UInt32; lock: Boolean): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSetCopies';
function PMGetAdjustedPageRect(pageFormat: PMPageFormat; pageRect: PPMRect): OSStatus; cdecl; external libPrintCore name _PFX + 'PMGetAdjustedPageRect';
function PMGetAdjustedPaperRect(pageFormat: PMPageFormat; paperRect: PPMRect): OSStatus; cdecl; external libPrintCore name _PFX + 'PMGetAdjustedPaperRect';
function PMGetPageFormatPaper(format: PMPageFormat; paper: PPMPaper): OSStatus; cdecl; external libPrintCore name _PFX + 'PMGetPageFormatPaper';
function PMPaperGetHeight(paper: PMPaper; paperHeight: PDouble): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPaperGetHeight';
function PMPaperGetWidth(paper: PMPaper; paperWidth: PDouble): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPaperGetWidth';
function PMPaperGetMargins(paper: PMPaper; paperMargins: PPMPaperMargins): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPaperGetMargins';
function PMPrinterGetDriverCreator(printer: PMPrinter; creator: POSType): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPrinterGetDriverCreator';
function PMPrinterGetDriverReleaseInfo(printer: PMPrinter; release: VersRecPtr): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPrinterGetDriverReleaseInfo';
function PMPrinterGetID(printer: PMPrinter): CFStringRef; cdecl; external libPrintCore name _PFX + 'PMPrinterGetID';
function PMPrinterGetMakeAndModelName(printer: PMPrinter; makeAndModel: PCFStringRef): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPrinterGetMakeAndModelName';
function PMPrinterGetName(printer: PMPrinter): CFStringRef; cdecl; external libPrintCore name _PFX + 'PMPrinterGetName';
function PMPrinterIsDefault(printer: PMPrinter): Boolean; cdecl; external libPrintCore name _PFX + 'PMPrinterIsDefault';
function PMPrinterSetOutputResolution(printer: PMPrinter; printSettings: PMPrintSettings; resolutionP: PPMResolution): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPrinterSetOutputResolution';
function PMPrinterGetPrinterResolutionCount(printer: PMPrinter; countP: PUInt32): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPrinterGetPrinterResolutionCount';
function PMPrinterGetIndexedPrinterResolution(printer: PMPrinter; index: UInt32; resolutionP: PPMResolution): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPrinterGetIndexedPrinterResolution';
function PMPrinterGetOutputResolution(printer: PMPrinter; printSettings: PMPrintSettings; resolutionP: PPMResolution): OSStatus; cdecl; external libPrintCore name _PFX + 'PMPrinterGetOutputResolution';
function PMServerCreatePrinterList(server: PMServer; printerList: PCFArrayRef): OSStatus; cdecl; external libPrintCore name _PFX + 'PMServerCreatePrinterList';
function PMSessionBeginCGDocumentNoDialog(printSession: PMPrintSession; printSettings: PMPrintSettings; pageFormat: PMPageFormat): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionBeginCGDocumentNoDialog';
function PMSessionBeginPageNoDialog(printSession: PMPrintSession; pageFormat: PMPageFormat; pageFrame: PPMRect): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionBeginPageNoDialog';
function PMSessionDefaultPageFormat(printSession: PMPrintSession; pageFormat: PMPageFormat): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionDefaultPageFormat';
function PMSessionDefaultPrintSettings(printSession: PMPrintSession; printSettings: PMPrintSettings): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionDefaultPrintSettings';
function PMSessionEndDocumentNoDialog(printSession: PMPrintSession): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionEndDocumentNoDialog';
function PMSessionEndPageNoDialog(printSession: PMPrintSession): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionEndPageNoDialog';
function PMSessionSetCurrentPMPrinter(session: PMPrintSession; printer: PMPrinter): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionSetCurrentPMPrinter';
function PMSessionSetError(printSession: PMPrintSession; printError: OSStatus): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionSetError';
function PMSessionValidatePageFormat(printSession: PMPrintSession; pageFormat: PMPageFormat; result: PBoolean): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionValidatePageFormat';
function PMSessionValidatePrintSettings(printSession: PMPrintSession; printSettings: PMPrintSettings; result: PBoolean): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionValidatePrintSettings';
function PMSessionSetDestination(printSession: PMPrintSession; printSettings: PMPrintSettings; destType: PMDestinationType; destFormat: CFStringRef; destLocation: CFURLRef): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSessionSetDestination';
function PMSetOrientation(pageFormat: PMPageFormat; orientation: PMOrientation; lock: Boolean): OSStatus; cdecl; external libPrintCore name _PFX + 'PMSetOrientation';

type
  TPaperInfo = {packed} record
    Typ: Integer;
    Name: String;
    X, Y: Integer;
  end;


const
  PAPERCOUNT = 66;
  PaperInfo: array[0..PAPERCOUNT - 1] of TPaperInfo = (
    (Typ:1;  Name: ''; X:2159; Y:2794),
    (Typ:2;  Name: ''; X:2159; Y:2794),
    (Typ:3;  Name: ''; X:2794; Y:4318),
    (Typ:4;  Name: ''; X:4318; Y:2794),
    (Typ:5;  Name: ''; X:2159; Y:3556),
    (Typ:6;  Name: ''; X:1397; Y:2159),
    (Typ:7;  Name: ''; X:1842; Y:2667),
    (Typ:8;  Name: ''; X:2970; Y:4200),
    (Typ:9;  Name: ''; X:2100; Y:2970),
    (Typ:10; Name: ''; X:2100; Y:2970),
    (Typ:11; Name: ''; X:1480; Y:2100),
    (Typ:12; Name: ''; X:2500; Y:3540),
    (Typ:13; Name: ''; X:1820; Y:2570),
    (Typ:14; Name: ''; X:2159; Y:3302),
    (Typ:15; Name: ''; X:2150; Y:2750),
    (Typ:16; Name: ''; X:2540; Y:3556),
    (Typ:17; Name: ''; X:2794; Y:4318),
    (Typ:18; Name: ''; X:2159; Y:2794),
    (Typ:19; Name: ''; X:984;  Y:2254),
    (Typ:20; Name: ''; X:1048; Y:2413),
    (Typ:21; Name: ''; X:1143; Y:2635),
    (Typ:22; Name: ''; X:1207; Y:2794),
    (Typ:23; Name: ''; X:1270; Y:2921),
    (Typ:24; Name: ''; X:4318; Y:5588),
    (Typ:25; Name: ''; X:5588; Y:8636),
    (Typ:26; Name: ''; X:8636; Y:11176),
    (Typ:27; Name: ''; X:1100; Y:2200),
    (Typ:28; Name: ''; X:1620; Y:2290),
    (Typ:29; Name: ''; X:3240; Y:4580),
    (Typ:30; Name: ''; X:2290; Y:3240),
    (Typ:31; Name: ''; X:1140; Y:1620),
    (Typ:32; Name: ''; X:1140; Y:2290),
    (Typ:33; Name: ''; X:2500; Y:3530),
    (Typ:34; Name: ''; X:1760; Y:2500),
    (Typ:35; Name: ''; X:1760; Y:1250),
    (Typ:36; Name: ''; X:1100; Y:2300),
    (Typ:37; Name: ''; X:984;  Y:1905),
    (Typ:38; Name: ''; X:920;  Y:1651),
    (Typ:39; Name: ''; X:3778; Y:2794),
    (Typ:40; Name: ''; X:2159; Y:3048),
    (Typ:41; Name: ''; X:2159; Y:3302),
    (Typ:42; Name: ''; X:2500; Y:3530),
    (Typ:43; Name: ''; X:1000; Y:1480),
    (Typ:44; Name: ''; X:2286; Y:2794),
    (Typ:45; Name: ''; X:2540; Y:2794),
    (Typ:46; Name: ''; X:3810; Y:2794),
    (Typ:47; Name: ''; X:2200; Y:2200),
    (Typ:50; Name: ''; X:2355; Y:3048),
    (Typ:51; Name: ''; X:2355; Y:3810),
    (Typ:52; Name: ''; X:2969; Y:4572),
    (Typ:53; Name: ''; X:2354; Y:3223),
    (Typ:54; Name: ''; X:2101; Y:2794),
    (Typ:55; Name: ''; X:2100; Y:2970),
    (Typ:56; Name: ''; X:2355; Y:3048),
    (Typ:57; Name: ''; X:2270; Y:3560),
    (Typ:58; Name: ''; X:3050; Y:4870),
    (Typ:59; Name: ''; X:2159; Y:3223),
    (Typ:60; Name: ''; X:2100; Y:3300),
    (Typ:61; Name: ''; X:1480; Y:2100),
    (Typ:62; Name: ''; X:1820; Y:2570),
    (Typ:63; Name: ''; X:3220; Y:4450),
    (Typ:64; Name: ''; X:1740; Y:2350),
    (Typ:65; Name: ''; X:2010; Y:2760),
    (Typ:66; Name: ''; X:4200; Y:5940),
    (Typ:67; Name: ''; X:2970; Y:4200),
    (Typ:68; Name: ''; X:3220; Y:4450));


function frxGetPaperDimensions(PaperSize: Integer; var Width, Height: Extended): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to PAPERCOUNT - 1 do
    if PaperInfo[i].Typ = PaperSize then
    begin
      Width := PaperInfo[i].X / 10;
      Height := PaperInfo[i].Y / 10;
      Result := True;
      break;
    end;
end;

destructor TfrxPrinter.Destroy;
begin
  inherited;
  //FPrintDLG.Free;
end;

procedure TfrxPrinter.Init;
begin
  if FInitialized then Exit;
  UpdateDeviceCaps;
  FDefOrientation := TPrinterMac(FMX.Printer.Printer).Orientation;
  FOrientation := FDefOrientation;
  FPaperHeight := TPrinterMac(FMX.Printer.Printer).PrintInfo.paperSize.height;
  FPaperWidth := TPrinterMac(FMX.Printer.Printer).PrintInfo.paperSize.width;

  FDefPaper := 256;
  FDefBin := 0;
  FDefDuplex := 0;
  FPaper := FDefPaper;
  FDefPaperWidth := FPaperWidth;
  FDefPaperHeight := FPaperHeight;
  FOrientation := FDefOrientation;
  FBin := -1;
  FDuplex := -1;

  FInitialized := True;

  FBin := -1;
  FDuplex := -1;

  FInitialized := True;
end;

procedure TfrxPrinter.Abort;
begin
  FMX.Printer.Printer.EndDoc;
end;

procedure TfrxPrinter.BeginDoc;
begin
  FPrinting := True;
  FCanvas := TPrinterMac(FMX.Printer.Printer).Canvas;
  FIsFirst := True;
  UpdateDeviceCaps;
  FMX.Printer.Printer.BeginDoc;
  FCanvas := TPrinterMac(FMX.Printer.Printer).Canvas;
end;

procedure TfrxPrinter.BeginPage;
begin
  inherited;

  if not (FIsFirst) then
  begin
    with TPrinterMac(FMX.Printer.Printer).PrintInfo do
    begin
      PMSessionBeginPageNoDialog(PMPrintSession, PMPageFormat, nil);
  end;
  TPrinterMac(FMX.Printer.Printer).Canvas.BeginScene;
  end;
  FIsFirst := False;
end;

procedure TfrxPrinter.EndDoc;
begin

  FPaperHeight := FMX.Printer.Printer.PageHeight;
  FPaperWidth := FMX.Printer.Printer.PageWidth;
  //FMX.Printer.Printer.EndDoc;

  PMSessionEndDocumentNoDialog(TPrinterMac(FMX.Printer.Printer).PrintInfo.PMPrintSession);
{$IFDEF DELPHI25}
  try
    if TPrinterMac(FMX.Printer.Printer).Canvas.BeginSceneCount > 0 then
      TPrinterMac(FMX.Printer.Printer).Canvas.EndScene;
  except
  end;
{$ELSE}
  TPrinterMac(FMX.Printer.Printer).Canvas.EndScene;
{$ENDIF}
  FPrinting := False;
  THackPrinter(FMX.Printer.Printer).FPrinting := False;
  FBin := -1;
  FDuplex := -1;
end;

procedure TfrxPrinter.EndPage;
begin
  TPrinterMac(FMX.Printer.Printer).Canvas.EndScene;
  with TPrinterMac(FMX.Printer.Printer).PrintInfo do
  begin
    PMSessionEndPageNoDialog(PMPrintSession);
  end;
end;

procedure TfrxPrinter.BeginRAWDoc;
begin
//todo
end;

procedure TfrxPrinter.EndRAWDoc;
begin
//todo
end;

procedure TfrxPrinter.WriteRAWDoc(const buf: AnsiString);
begin
  //todo
end;

constructor TfrxPrinter.Create(const AName, APort: String);
begin
  inherited Create(AName, APort);
  //FPrintDLG := TPrintDialog.Create(nil);
end;

procedure TfrxPrinter.SetViewParams(APaperSize: Integer;
  APaperWidth, APaperHeight: Extended; AOrientation: TPrinterOrientation);
begin
  {if APaperSize <> 256 then
  begin

    if not UpdateDeviceCaps then Exit;
  end
  else
  begin
    // copy the margins from A4 paper
    SetViewParams(DMPAPER_A4, 0, 0, AOrientation);
    FPaperHeight := APaperHeight;
    FPaperWidth := APaperWidth;
  end; }

  FPaper := APaperSize;
  FOrientation := AOrientation;
end;

function TfrxPrinter.ShowPrintDialog: Boolean;
begin
//  Result := FPrintDLG.Execute;
  Result := False;
end;

procedure TfrxPrinter.SetPrintParams(APaperSize: Integer;
  APaperWidth, APaperHeight: Extended; AOrientation: TPrinterOrientation;
  ABin, ADuplex, ACopies: Integer);
var
  sSize: NSSize;
  Changed: Boolean;
  lOrientation: NSPrintingOrientation;
begin

  { later fix these values }
  FPaper := APaperSize;
  sSize.Height := APaperHeight * 2.835;
  sSize.Width := APaperWidth * 2.835;

  if AOrientation = TPrinterOrientation.poPortrait then
    lOrientation := NSPortraitOrientation
  else
    lOrientation := NSLandscapeOrientation;

  TPrinterMac(FMX.Printer.Printer).PrintInfo.setPaperSize(sSize);

  with TPrinterMac(FMX.Printer.Printer) do
  begin
    //kPMPortrait = 1
    //kPMLandscape = 2
    //PMSetOrientation(PrintInfo.PMPageFormat, lOrientation + 1, false);
    PMSessionValidatePageFormat(PrintInfo.PMPrintSession, PrintInfo.PMPageFormat, @Changed);
  end;
  TPrinterMac(FMX.Printer.Printer).PrintInfo.setOrientation(lOrientation);
  TPrinterMac(FMX.Printer.Printer).PrintInfo.updateFromPMPageFormat;
  FPaperHeight := TPrinterMac(FMX.Printer.Printer).PrintInfo.paperSize.height;
  FPaperWidth := TPrinterMac(FMX.Printer.Printer).PrintInfo.paperSize.width;
{$IFDEF DELPHI18}
  TPrinterMac(FMX.Printer.Printer).Canvas.SetSize(Round(FPaperWidth), Round(FPaperHeight));
{$ELSE}
  TPrinterMac(FMX.Printer.Printer).Canvas.ResizeBuffer(Round(FPaperWidth), Round(FPaperHeight));
{$ENDIF}
  FOrientation := AOrientation;
  UpdateDeviceCaps;
end;

function TfrxPrinter.UpdateDeviceCaps: Boolean;
var
  Idx: Integer;
begin
  FCanvas := TPrinterMac(FMX.Printer.Printer).Canvas;
  FPaperHeight := TPrinterMac(FMX.Printer.Printer).PrintInfo.paperSize.height;
  FPaperWidth := TPrinterMac(FMX.Printer.Printer).PrintInfo.paperSize.width;
  Idx := FMX.Printer.Printer.ActivePrinter.ActiveDPIIndex;

  if Idx <> -1 then
  begin
    FDPI.X := FMX.Printer.Printer.ActivePrinter.DPI[Idx].X;
    FDPI.y := FMX.Printer.Printer.ActivePrinter.DPI[Idx].Y;
  end
  else if FMX.Printer.Printer.ActivePrinter.DPICount > 0 then
  begin
    FDPI.X := FMX.Printer.Printer.ActivePrinter.DPI[0].X;
    FDPI.y := FMX.Printer.Printer.ActivePrinter.DPI[0].Y;
  end
  else
  begin
    FDPI := System.Classes.Point(72, 72);
  end;

  FLeftMargin :=  TPrinterMac(FMX.Printer.Printer).PrintInfo.imageablePageBounds.origin.x / 3;
  FTopMargin := TPrinterMac(FMX.Printer.Printer).PrintInfo.imageablePageBounds.origin.y / 3;
  FBottomMargin := FPaperHeight - TPrinterMac(FMX.Printer.Printer).PrintInfo.imageablePageBounds.size.height / 3 - FTopMargin;
  FRightMargin := FPaperWidth - TPrinterMac(FMX.Printer.Printer).PrintInfo.imageablePageBounds.size.width / 3 - FLeftMargin;
  Result := True;
 { Result := True;
  if FDC = 0 then GetDC;

  FDPI := Point(GetDeviceCaps(FDC, LOGPIXELSX), GetDeviceCaps(FDC, LOGPIXELSY));
  if (FDPI.X = 0) or (FDPI.Y = 0) then
  begin
    Result := False;
    frxErrorMsg('Printer selected is not valid');
    Exit;
  end;
  FPaperHeight := Round(GetDeviceCaps(FDC, PHYSICALHEIGHT) / FDPI.Y * 25.4);
  FPaperWidth := Round(GetDeviceCaps(FDC, PHYSICALWIDTH) / FDPI.X * 25.4);
  FLeftMargin := Round(GetDeviceCaps(FDC, PHYSICALOFFSETX) / FDPI.X * 25.4);
  FTopMargin := Round(GetDeviceCaps(FDC, PHYSICALOFFSETY) / FDPI.Y * 25.4);
  FRightMargin := FPaperWidth - Round(GetDeviceCaps(FDC, HORZRES) / FDPI.X * 25.4) - FLeftMargin;
  FBottomMargin := FPaperHeight - Round(GetDeviceCaps(FDC, VERTRES) / FDPI.Y * 25.4) - FTopMargin;}
end;

procedure TfrxPrinter.PropertiesDlg;
begin
  //todo
end;

{ TfrxPrinters }

constructor TfrxPrinters.Create;
begin
  Inherited;
end;

destructor TfrxPrinters.Destroy;
begin
  inherited;
end;



function TfrxPrinters.GetDefaultPrinter: String;
begin
  Result := FMX.Printer.Printer.ActivePrinter.Device;
end;


procedure TfrxPrinters.FillPrinters;
var
  i: Integer;
  LPrinter: TPrinter;
{$IFDEF DELPHI27}
  RtCtx: TRttiContext;
  RtFd: TRttiField;
  Val: TValue;

{$ENDIF}

  procedure AddPrinter(ADevice, APort: String);
  begin
    FPrinterList.Add(TfrxPrinter.Create(ADevice, APort));
    FPrinters.Add(ADevice);
  end;

begin
  Clear;
  LPrinter := FMX.Printer.Printer;
{$IFDEF DELPHI27}
  RtCtx := TRttiContext.Create;
  try
    RtFd := RtCtx.GetType(TPrinterMac).GetField('FCanvas');
    if Assigned(RtFd) then
    begin
      TValue.Make<TCanvas>(TfrxCanvasQuartz.CreateFromPrinter(LPrinter), Val);
      RtFd.SetValue(LPrinter, Val);
    end;
  finally
    RtCtx.Free;
  end;
{$ENDIF}
  for i := 0 to LPrinter.Count - 1 do
    AddPrinter(LPrinter.Printers[i].Device, LPrinter.Printers[i].Port);
end;

function ActualfrxPrinterClass : TfrxCustomPrintersClass;
begin
  Result := TfrxPrinters;
end;

initialization

finalization

end.