![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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)
| ||