Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

Как 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;

---

← →
MBo ©   (2003-01-29 14:49) [6]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c