Печать с PaintBox, Help me please Опции

[Moby]

Задача №1:
Как распечатать картинку с PaintBox?

Задача №2:
Дано: Форма1 и PaintBox1(большого размера). Форма2 и PaintBox2(маленького размера).Надача: Перенести рисунок с первого PaintBox на второй и уменьшить его до размеров второго PaintBox.

[Артемий]

Печатать можно вот так:

var
Printer: TPrinter;
begin
Printer := TPrinter.Create;
Printer.BeginDoc;
Printer.Canvas.CopyRect(Bounds(0,0,PaintBox1.Width,PaintBox1.Height),PaintBox1.Canvas,Bounds
(0,0,PaintBox1.Width,PaintBox1.Height));
Printer.EndDoc;

Сообщение отредактировано: Артемий - 2.06.2007 20:32