![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Как сохранить отпечаток формы в файл. Форама содержит скроллы. ( на экран она вся не помещается)
|
#2
|
|||
|
|||
![]() как один из вариантов можешь использовать виртуальный принтер microsoft при установки офиса ставится. Он и сохраняет в файл, а затем просто командой print направь на него.
Код:
procedure PrintForm; begin form1.Print; end; Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит Прапор: вы не попали ни один раз. Программист: Пули вылетели, проблемы у вас. |
#3
|
|||
|
|||
![]() Код:
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)
|