Получить файл формата EMF

← →
KSergey (2003-04-24 14:20) [0]

Есть здача сосряпать файл EMF имея координаты различных объектов (прямоугольники, картинки, текст). Как бы это сделать? Подскажите, пожалуйста, куда примерно рыть...

← →
MBo (2003-04-24 14:24) [1]

TMetaFile, TMetaFileCanvas

← →
KSergey (2003-04-24 14:27) [2]

ААаа, оказ. TMetaFileCanvas есть! А я-то парюсь, нифига не пойму
Спасибо! Буду пробовать... (осталось сообразить как ее к TMetaFile прикрутить, ну да прорвемся ;)

← →
MBo (2003-04-24 14:56) [3]

пример есть в хелпе на TMetaFile.Create.
Конечно, экзотическая схема работы получается ;(

← →
REA (2003-04-24 15:34) [4]

Выдрал из текста, типа такого:

Function TSomeClass.RenderWMF(): TMetafile;
Var
Canvas: TMetafileCanvas;
Begin
Result := TMetafile.Create;
Result.Enhanced := True;
Result.MMWidth := Round(MyDevice.PageWidth);
Result.MMHeight := Round(MyDocument.PageCount*MyDevice.PageHeight);
Canvas := TMetafileCanvas.CreateWithComment(Result, 0, "R.E.A.", "Something");
Try
RenderTo(Canvas);
Finally
Canvas.Free;
End;
End;

← →
KSergey (2003-04-24 15:44) [5]

> REA © (24.04.03 15:34)

Ага, примено так же в хелпе. Спасибо.

А вот в каком смысле задаются размеры? Это же вроде как векторный формат, или я чего-то недопонимаю?

← →
REA (2003-04-24 15:59) [6]

Ну вроде того. Размеры потому и в миллиметрах (долях). Возможно они и сами установятся из того, что будешь рисовать на Canvas.

← →
KSergey (2003-04-24 16:06) [7]

← →
REA (2003-04-24 17:30) [8]

Он то векторный, но при рендеринге используется система измерения соответствующая DC. Как это потом в миллиметры (или другие девайсно-независимые юниты) преображается и выводится на разные устройства я не в курсе. Надо почитать.

Получить файл формата EMF Найти похожие ветки