Как Canvas сохранить на диск в метафайле ?

← →
SONY (2003-01-29 12:37) [0]

Как сохранить то что нарисовано на Canvas формы в метафайл на диск ?

← →
MBo © (2003-01-29 12:57) [1]

Проще всего сразу рисовать на Canvas метафайла

← →
SONY (2003-01-29 13:01) [2]

А тогда как нарисовать то что в метафайле на форме ?

← →
MBo © (2003-01-29 13:22) [3]

Canvas.Draw(Meta)

← →
REA © (2003-01-29 13:27) [4]

Типа такого:

Function TSomething.RenderWMF(): TMetafile;
Var
Canvas: TMetafileCanvas;
Begin
Result := TMetafile.Create;
Result.Enhanced := True;
Result.MMWidth := Round(PageWidth*100);
Result.MMHeight := Round(PageCount*PageHeight*100);
Canvas := TMetafileCanvas.CreateWithComment(Result, 0, "aaa", "bbb");
Try
// Render here (PaintTo for example)
Finally
Canvas.Free;
End;
End;

← →
SONY (2003-01-29 14:43) [5]

НАПИСАЛ ВОТ ТАК, НО НЕ РИСУЕТСЯ НА ФОРМЕ НИЧЕГО

var m : TmetaFile; mc : TmetaFileCanvas; begin m := TMetaFile.Create; m.Enhanced := false; m.Height := 100; m.Width := 100; mc := TMetafileCanvas.Create(m, 0); mc.TextOut(10,10,"asdfasd"); Canvas.Draw(100,100,m); mc.Free; m.Free; end;

так:
mc.TextOut(10,10,"asdfasd");
mc.Free;
Canvas.Draw(100,100,m);

Как Canvas сохранить на диск в метафайле ? Найти похожие ветки