Скачать: CL | DM;

Масштабирование 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c