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

Вывод на печать текст из PaintBox   Найти похожие ветки 

← →
Uno-84   (2008-11-12 10:46) [0]

Здравствуйте! подскажите пожалуйста как вывести на печать текст из PaintBox

if MesPDlg.Execute then
    begin
         with printer do
         Try
              begindoc;
              ScaleX := GetDeviceCaps(Handle, LogPixelsX) div PixelsPerInch;
              ScaleY := GetDeviceCaps(Handle, LogPixelsY) div PixelsPerInch;
              R := Rect(0, 0, PreviewPaintbox.Width * ScaleX, Paintbox.Height *ScaleY);
              ......................................
              ....................................
         finally
              EndDoc;
         end;

---

← →
Правильный$Вася   (2008-11-12 10:57) [1]

>  как вывести на печать текст из PaintBox

только текст?

---

← →
Правильный$Вася   (2008-11-12 10:58) [2]

а вообще не мучайся, получи DeviceContext принтера и вызови OnPaint от бокса с DC принтера

---

← →
Uno-84   (2008-11-12 11:00) [3]

Даю в принципе в этом компоненте больше ничего кроме текста и не содержеться

---

← →
Amoeba ©   (2008-11-12 11:53) [4]

В PaintBox даже текст не только не содержится, но и не может содержаться. Он всего лишь предоставляет Canvas для отрисовки чего угодно в событии OnPaint.

---

← →
Kesha   (2008-11-12 12:02) [5]

Не знаю как текст будешь печатать из PaintBoxа а вот как печатать можешь тут  почитать http://www.codenet.ru/cat/Languages/Delphi/Printing-and-reporting/

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.012 c