Цитата:
|
Сообщение от agent-87
На форме имеется панелька (TPanel) на которой распологаются другие компоненты, в том числе и динамически создаваемые по ходу работы программы. Необходимо вывести на печать изопражение всех компонентов в пределах этой панели.
Помогите кто знает. Pleassssse  |
Есть такое предложение:
var
bit : TBitMap;
prn : TPrinter;
begin
bit := TBitMap.Create();
bit.Width := Panel1.Width;
bit.Height := Panel1.Height;
BitBlt(bit.Canvas.Handle, 0, 0, Panel1.Width, Panel1.Height,
GetDC(Panel1.Handle), 0, 0, SRCCOPY);
Canvas.Draw(0,0,bit);
prn := TPrinter.Create();
prn.BeginDoc();
prn.Canvas.Draw(0, 0, bit);
prn.EndDoc();
bit.Destroy();
prn.Destroy();
end;