Масштабирование Canvas при печати.

← →
siriusP (2004-04-15 17:32) [0]

Совсем выбился из сил. Рисую на принтере канву TPanel, на которой располагаются контролы.
На принетр выходи в очень уменьшенном виде. Как все это дело масштабировать?

Printer.BeginDoc;
Panel1.PaintTo(Printer.Canvas, 10, 10);
Printer.EndDoc;
Буд очень благодарен.

← →
Mihey © (2004-04-15 18:31) [1]

Скопируй изображение панели через TPrinter.Canvas.CopyRect в отдельный TBitmap, а затем выведи его на TPrinter.Canvas через StretchDraw.

← →
siriusP (2004-04-15 19:30) [2]

Попробовал так:
tmpBitmap:= TBitmap.Create;
try
tmpBitmap.Width:= Panel1.Width;
tmpBitmap.Height:= Panel1.Height;
Panel1.PaintTo(tmpBitmap.Canvas, 0, 0);
Printer.Canvas.StretchDraw(Rect(10,10,1500,800), tmpBitmap);
finally
tmpBitmap.Free;
end;

При этом tmpBitmap сжимается в Rect не пропорционально, буквы искажаются.
Что-нибудь можно с этим сделать?

Масштабирование Canvas при печати. Найти похожие ветки