GetCanvasDC, Delphi, PatternBrush

function PDF_CreateSetTilingPattern(var PDFLib: TDebenuPDFLibrary; ImgFile: String; Page: Integer): Boolean;
{ Create and set a bitmap tiling pattern for filled boundaries. }
var
  ImageID, CaptureID: Integer;
  PatternName: WideString;

begin
  Result := False;

  { Add temporary page and select it. }
  PDFLib.NewPage;
  PDFLib.SelectPage(PDFLib.PageCount);

  { Load bitmap for tile pattern. }
  ImageID := PDFLib.AddImageFromFile(ImgFile, 0);

  { Set page dimensions in inches (bitmap pixels divided by dpi). }
  PDFLib.SetPageDimensions(PDFLib.ImageWidth / PrintPDF.Dpi.X, PDFLib.ImageHeight / PrintPDF.Dpi.X);

  { Select image and draw it to fill page. }
  PDFLib.SelectImage(ImageID);
  PDFLib.DrawImage(0, 0, PDFLib.PageWidth , PDFLib.PageHeight);
  //PDFLib.DrawRotatedImage(0, 0, PDFLib.PageWidth , PDFLib.PageHeight, 270)

  { Reset selected page }
  PDFLib.SelectPage(Page);

  { Capture last page and set pattern name. }
  CaptureID := PDFLib.CapturePage(PDFLib.PageCount);
  //CaptureID := PDFLib.CapturePageEx(PDFLib.PageCount, 0);
  PatternName := IntToStr(CaptureID) + '_' + ExtractFileName(ImgFile);

  PDFLib.NewTilingPatternFromCapturedPage(PatternName, CaptureID);

  PDFLib.DeletePages(PDFLib.PageCount, 1);

  Result := (PDFLib.SetFillTilingPattern(PatternName) = 1);
  //PDFLib.SetTilingPatternMatrix()
end; { PDF_CreateSetTilingPattern }