MyMetafile := TMetafile.Create;



with TMetafileCanvas.Create(MyMetafile, 0) do

try

  Brush.Color := clRed;

  Ellipse(0, 0, 100, 100);

  ...

finally

  Free;

end;



Form1.Canvas.Draw(0,0,MyMetafile);

Съдържаниет е скрито
Влезте за да го видите