Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.08.2008, 09:32
bananan bananan вне форума
Прохожий
 
Регистрация: 05.08.2008
Сообщения: 24
Репутация: 10
По умолчанию Как сохранить отпечаток всей формы в файл

Как сохранить отпечаток формы в файл. Форама содержит скроллы. ( на экран она вся не помещается)
Ответить с цитированием
  #2  
Старый 12.08.2008, 12:31
dmdx dmdx вне форума
Начинающий
 
Регистрация: 24.05.2008
Адрес: Москва
Сообщения: 133
Репутация: 15
По умолчанию

как один из вариантов можешь использовать виртуальный принтер microsoft при установки офиса ставится. Он и сохраняет в файл, а затем просто командой print направь на него.
Код:
procedure PrintForm;
begin
 form1.Print;
end;
__________________
Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит
Прапор: вы не попали ни один раз.
Программист: Пули вылетели, проблемы у вас.
Ответить с цитированием
  #3  
Старый 12.08.2008, 12:42
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Pixelformat := pf24Bit;
  Bitmap.Width := Form1.ClientWidth;
  Bitmap.Height := Form1.ClientHeight;
  Form1.PaintTo(Bitmap.Canvas,0,0);
  Bitmap.SaveToFile('c:\form.bmp');
  Bitmap.Free;
end;

Правда рисует только содержимое формы, без заголовка.
Ответить с цитированием
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
Gareth (11.08.2015)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:22.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025