Skia Print Preview and Print in Delphi 12?

[PeterPanettone 154]

Does Skia in Delphi 12 have a built-in PrintPreview and Print capability?

[Lars Fosdal 1732]

Perusing the source code, it appears that a Print capability is supported.
Regular FMX doesn't have print preview, so I doubt there is SKIA support for that.

 

[PeterPanettone 154]

2 minutes ago, Lars Fosdal said:

Perusing the source code, it appears that a Print capability is supported.
Regular FMX doesn't have print preview, so I doubt there is SKIA support for that.

 

I need it for a VCL project where I use a TSkSVG component, which I need to PrintPreview and Print.

[Keesver 20]

You can print to PDF and then show this to the user. I can't tell you how to do this from the top of my head though.

[PeterPanettone 154]

1 hour ago, Keesver said:

You can print to PDF and then show this to the user. I can't tell you how to do this from the top of my head though.

Yes, please tell me how to do this. Thank you!

Edited November 23, 2023 by PeterPanettone

[Keesver 20]

procedure TFMXPrintForm.btnMakePDFClick(Sender: TObject);
var
  r: TRect;
  LCanvas: ISkCanvas;
  LDocument: ISkDocument;
  LDocumentStream: TStream;
  LSVGDOM: ISkSVGDOM;
  LSize: TSizeF;

begin
  LSVGDOM := TSkSVGDOM.MakeFromFile('Delphi.svg');
  LSize := TSizeF.Create(300, 300);
  r.Left := 0;
  r.Top := 0;
  r.Width := Round(treeControl.Width);
  r.Height := Round(treeControl.Height);
  LSVGDOM.SetContainerSize(LSize);

  LDocumentStream := TFileStream.Create('Delphi.pdf', fmCreate);
  try
    LDocument := TSkDocument.MakePDF(LDocumentStream);
    try
      LCanvas := LDocument.BeginPage(r.Width, r.Height);
      try
        LSVGDOM.Render(LCanvas);
      finally
        LDocument.EndPage;
      end;
    finally
      LDocument.Close;
    end;
  finally
    LDocumentStream.Free;
  end;
end;

Also see: Using Skia's PDF Backend | Skia

[PeterPanettone 154]

@Keesver: Thank you for the code! But what does the treeControl do?