mORMot Open Source

procedure TForm1.Button1Click(Sender: TObject);
var filename:string;
   lPdf:TPdfDocumentGDI;
   lPage:TPdfPage;
begin
   filename:='c:\temp\SynPDF.pdf';
   lPdf:=TPdfDocumentGDI.Create();
   try
      lPdf.ScreenLogPixels:=600;
      lPDF.DefaultPaperSize:=psA4;
      lPage:=lPDF.AddPage;

      lPDF.VCLCanvas.Pen.Color:=ClBlack;
      lPDF.VCLCanvas.Pen.Width:=1;
      lPDF.VCLCanvas.Pen.Style:=psSolid;
      lPDF.VCLCanvas.Pen.Mode:=pmCopy;
      lPDF.VCLCanvas.Brush.Color:=clYellow;
      lPDF.VCLCanvas.Brush.Style:=bsSolid;

      lPDF.VCLCanvas.MoveTo(400,400);
      lPDF.VCLCanvas.lineto(600,800);
      lPDF.VCLCanvas.lineto(200,800);
      lPDF.VCLCanvas.lineto(400,400);
      lPDF.VCLCanvas.FloodFill(500,700,ClBlack,fsBorder);

      lPdf.SaveToFile(filename);
   finally
      lPdf.Free;
   end;
   ShellExecute(Handle, nil, PChar(filename), nil, nil, SW_SHOWNORMAL);
end;