| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

SONY ©   (2003-01-29 12:37:00) 

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

---

MBo   (2003-01-29 14:49:00) [1]

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

---

SONY   (2003-01-29 14:43:00) [2]

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

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;

---

REA   (2003-01-29 13:27:00) [3]

Типа такого:

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;

---

MBo   (2003-01-29 13:22:00) [4]

Canvas.Draw(Meta)

---

SONY   (2003-01-29 13:01:00) [5]

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

---

MBo   (2003-01-29 12:57:00) [6]

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

---

Наверх