Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
Масштабирование 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 не пропорционально, буквы искажаются.
Что-нибудь можно с этим сделать?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.064 c
