Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как сохранить изображение формы?

Автор: Первый 21.3.2003, 20:19

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

Автор: stab 21.3.2003, 21:27

вот пример того как сохранить изображение формы в *.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;

Автор: Первый 21.3.2003, 21:35

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