VPF::Cохранение в EMF - Форум программистов

Limonadni Joe

Дата 25.9.2003, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 1.11.2002
Где: Москва

Репутация: нет
Всего: 2

Дайте самый простой примерчик по сабжу с ипользованием TImage или TBitmap. Что-то никак не выходит - всё время вылезает BMP с расширением .emf.

x77

Дата 25.9.2003, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: нет
Всего: 22

ну, если пихать в Bitmap, то ес-сно, битмап и получишь. а если он корректно засунут в TPicture.Metafile, то взводишь флаг Enhanced и зовёшь SaveToFile. всё должно работать

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Limonadni Joe

Дата 25.9.2003, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 1.11.2002
Где: Москва

Репутация: нет
Всего: 2

"Засунут" - заружен с диска или нарисован через TPicture.Canvas? Мне нужно именно рисование. И что значит корректно?

stab

Дата 25.9.2003, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: нет
Всего: 48

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  mf: TMetafile;
  mc: TMetafileCanvas;
begin
  mf := TMetafile.Create;
  mc := TMetafileCanvas.Create(mf, 0);
  mc.Ellipse(0, 0, 100, 150);
  mc.MoveTo(200, 200);
  mc.LineTo(300, 10);
  mc.Free;
  mf.SaveToFile('c:\test.emf');
  mf.Free;
end;

--------------------

6, 6, 6 - the number of the beast.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »