Auf TmetafileCanvas geht nicht zu zeichnen

[Alexander Roth]

Jo danke jetzt klappts.
Der richtige Code lautet:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var wmf:Tmetafile;
begin
refresh;
wmf:=Tmetafile.Create;

wmf.Height:=100;
wmf.Width:=100;

with TMetafileCanvas.Create(wmf, 0) do
  begin
  Pen.Width:=0;
  Pen.Color:= clred;
  Brush.Color:= clblack;
  Brush.Style:=bssolid;

  //tropfen
  Ellipse(0,0,100,100);
  free;
  end;

form1.Canvas.StretchDraw(rect(0,0,wmf.Width,wmf.Height),wmf);

wmf.Free;
end;

Tschüss
und bis zum nächstemmal.