Здравейте на всички,
Наложи се да правя картинка в TImage компонента да се вижда на екран (Delphi 6). Става въпрос за чертеж, който е дълъг поне 4-5 страници А4, подредени една до друга, портрет. Вижда се добре на екрана с преместване чрез TScrollBox. Но се налага да се отпечатам (А4 на лазерен принтер), и след това да слепя листите.
Правих различни опити, ама не ще. Минах и през TPrinter.Canvas, ама пак не ще.
.
Ще съм Ви много благодарен за помощта, която бихте ми оказали.
.
Доктора.
.

Кое точно не ще?

Mixy

Имам картинка 3780 на 1036. Как да я разделя на TPrinter.Canvas, че да е среже на 4-5 парчета, които да се отпечатат всяко на отделен лист, а не на един както го направих.
*Картинката е сложен чертеж и няма да мога да я докарам на 4-5 парчета А4, които да отпечатам.

Доктора

Ползвай това
TCanvasCopyRect(const Dest: TRect; Canvas: TCanvas; const Source: TRect)
В Dest задаваш правоъгълник от TPrinter.Canvas с размер А4
В Source - правоъгълна област от картинката със същия размер и след всяка страница даваш отместване

Да Ви попитам още нещо.
при 1 мм=3.779527559 пиксела.
При печат на координатна система (като милимитрова хартия) ми се получава разминаване около 3-4 мм на 5 см. Не зная дали се получава при печата на картинката или при създаването на решетката при конвертирането от мм в пиксели.
При Делфи 6 използувам цикъл for n:=0 to i do и на всеки 10 мм чертая линия по хоризонтала, след това по вертикала.

Предварително балагодаря. Доктора.

Вероятно имаш проблем с някое закръгляване или не си сметнал точно отношението мм/пиксел. Трябва да вземеш под внимание и отстъпите (margins) на твоя принтер.

Mixy

Също така трябва да имаш предвид разрешаващата способност на устройството, за което говориш (dpi). Трябва да си я вземаш от принтера всеки път, нали го правиш?

Linux isn't free, it's worthless.

Съдържаниет е скрито
Влезте за да го видите

Колко мм е един пиксел се смята като (процедурата се прави отделно за x и y):
1) Вижда се колко мм е широчината/височината страницата на която се печата
2) Махат се отстъпите (margins)
3) Останалите мм се делят на Canvas.Widht/Height на принтера
Ако драйвера на принтера е коректен (аз съм печатал с LaserJet 5MP основно), всичко е ток и напрежение.

чети и дишай по-леко

Съдържаниет е скрито
Влезте за да го видите