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

Как перевести соотношение точек объекта к точкам принтера?   Найти похожие ветки 

← →
Aleksandr.   (2005-08-03 12:41) [0]

Мой объект (потомок от TCustomListBox) рисует свои итемы простыми методами Canvas - вычислил Rect для рисунка, MoveTo, LineTo, Ellipse и т.д. в этом Rect. Раньше на печать выводилась только текстовая инфа. А теперь поступило распоряжение на печать выводить такое же графическое изображение, как на экране. Я сначала сгоряча сделал по-простому - при вызове метода печати подменяю канву на Printer.Canvas - и результат был впечатляющим: все тексты выложились нормально, а вся графика уместилась в маленьком уголке слева. Теперь не могу сообразить, как вычислить соотношение, на сколько увеличивать все отрезки и радиусы, чтобы изображение на принтере рисовалась адекватно...

---

← →
Mx ©   (2005-08-03 13:24) [1]

GetDeviceCaps(Canvas.Handle, LOGPIXELSX) - количество пикселей в дюйме по-горизонтали
GetDeviceCaps(Canvas.Handle, LOGPIXELSY) - количество пикселей в дюйме по-вертикали

Вычисли для ListBox.Canvas.Handle и для Printer.Canvas.Handle, а потом возьми соотношение.

---

← →
Aleksandr.   (2005-08-03 14:38) [2]

Упс. Не был бы таким тупым, сам бы догадался... Спасибо!

---

← →
Aleksandr.   (2005-08-03 16:12) [3]

Может, тогда и подскажите, можно ли как-то узнать, цветной принтер или ч/б, чтобы цвета нормально привести?

---

← →
Джо ©   (2005-08-03 16:37) [4]

Для моего монохромного лазерного след. код дает 8:
 Val := GetDeviceCaps(Printer.Handle,BITSPIXEL);
 ShowMessageFmt ("%d",[Val]);
Для драйвера Epson FX-80 (матричный): 1.
Для цветных принтеров дает 24. Однако виртуальный Pdf producer выдает тоже 1. Странно.
Покопай в этом направлении.

---

← →
Aleksandr.   (2005-08-03 17:02) [5]

Джо © :
Спасибо, покопаю...

---

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

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



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