Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Печать изображений [D7, WinXP]


X-Disa ©   (2004-09-28 11:18:00) 

Мастера, подскажите такую вещь. У меня есть битмап, нужно распечатать его на принтере. Рисование на Printer.Canvas не проходит, так как нужны опции печати (dpi, положение на странице, расягивание и пр.) как например в ACDSee. Как именно можно печатать с такими опциями?


wicked   (2004-09-29 11:30:00) [1]

через dpi экрана и принтера....
"размер на принтере" = "размер на экране" / "dpi экрана" * "dpi принтера".... обычно в таких случаях удобно пользоваться функцией MulDiv:
"размер на принтере" = MulDiv("размер на экране", "dpi принтера", "dpi экрана")

ЗЫ вычисления даны в общем виде.... реально нужно проделать эти действия с шириной и высотой изображения.... :)


X-Disa   (2004-09-29 11:10:00) [2]

Спасибо, а вот еще вопрос. Как напечатать изображение так, чтобы его размер на бумаге был таким же как и на экране? Не обязательно точно, но чтоб похоже...


wicked   (2004-09-28 12:47:00) [3]

через Printer.Canvas...
dpi задается еще перед печатью в диалоге настройки печати...
положение на странице и растягивание - во время печати рисуем в координаты, соответствующие центру листка etc....
маленький совет (из msdn) - печатать не через StretchBlt, а через StretchDIBits (как именно - отдельный вопрос)....
еще один совет - всепринтера имеют некие границы слева-сверху, дальше которых они печатать не могут... определяются эти границы через
GetDeviceCaps(Printer.Canvas.Handle, PHYSICALOFFSETX) (слева) и
GetDeviceCaps(Printer.Canvas.Handle, PHYSICALOFFSETY) (сверху)...


Наверх

Титульная страница Поиск, карта сайта Написать письмо