VPF::Как сохранить изображение формы?

Первый

Дата 21.3.2003, 20:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Никак не могу сохранить изображение формы в файл!
На печать (Form.print) получается. Подскажите, может есть аналогичная функция.

Это сообщение отредактировал(а) Первый - 21.3.2003, 20:21

stab

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

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

Загрузка ...

Эксперт

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

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

вот пример того как сохранить изображение формы в *.bmp файл. Для *.gif надо бы тебе достать библиотеки по работе с графикой и все будет ок.

procedure TForm1.Button1Click(Sender: TObject);
var
cn: TCanvas;
bm: TBitmap;
begin
cn := TCanvas.Create;
cn.Handle := GetWindowDC(Handle);

bm := TBitmap.Create;
bm.Width := Width;
bm.Height := Height;
bm.Canvas.CopyRect(Rect(0, 0, Width, Height), cn, Rect(0, 0, Width, Height));
bm.SaveToFile('c:\form1.bmp');
bm.Free;

cn.Free;
end;

Это сообщение отредактировал(а) cully - 21.3.2003, 21:28

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

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

Первый

Дата 21.3.2003, 21:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо, cully!!!! Попробую!!

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