mORMot Open Source

procedure TForm28.Button1Click(Sender: TObject);
var Meta: TMetafile;
    doc : TPDFDocument;
    Page: TPdfPage;
    R: TRect;
begin
Meta := TMetafile.Create;
meta.SetSize(500,500);

Canvas := TMetafileCanvas.Create(Meta, GetDC(0));

R := ClientRect;
InflateRect(R, -10, -10);
Canvas.Brush.Color := clgreen;
Canvas.Brush.Style := bsDiagCross;
Canvas.Pen.Color := clRed;
Canvas.Rectangle(R);

Canvas.Free;

//in this file, the result is the prefered one, the brushstyles are shown and it's what I need.
meta.SaveToFile('c:\Temp\a.wmf');

Doc := TPdfDocument.Create;
Doc.DefaultPaperSize := psA4;
Page := Doc.AddPage;
Page.PageLandscape := true;
Doc.canvas.RenderMetaFile(meta);

//but if i save the same Metafile in a PDF-Document, 
//the rectangle with the brushstyle is completely filled with the brush.color. 
//and no style is visible
Doc.SaveToFile('c:\Temp\a.pdf');

end;