var
btm: TBitmap;
begin
btm := TBitmap.Create;
btm.Width := Panel1.Width;
btm.Height := Panel1.Height;
Panel1.PaintTo(btm.Canvas,1,1);
Распечатать панельку
Есть у меня форма, на ней есть панелька со всяким барахлом. Как распечатать только панельку?
а можно так...
Код:
...
Interface
uses ..., Printers;
...
begin
Printer.BeginDoc;
Panel1.PaintTo(Printer.Canvas, 0, 0);
Printer.EndDoc;
end;
...
Interface
uses ..., Printers;
...
begin
Printer.BeginDoc;
Panel1.PaintTo(Printer.Canvas, 0, 0);
Printer.EndDoc;
end;
...