Hallo Praxisler,
seit neustem beschäftige ich mich mit Metafiles.
Wenn ich nun ein einfaches metafile mit TmetafileCanvas zeichnen will, bleibt immer ein unformatiertes leeres Metafile zurück.
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);
end;
form1.Canvas.StretchDraw(rect(0,0,wmf.Width,wmf.Height),wmf);
wmf.Free;
end;
Sowohl zeichnen auf die Canvas sieht man nix als auch in eine Datei abspeichern hinterlässt eine leere Datei.
Könnt ihr mir da helfen?