Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.09.12;
Скачать: CL | DM;

Вниз

Печать изображения в ScrollBox   Найти похожие ветки 

 
KiLLiR ©   (2009-04-17 21:48) [0]

Всем доброго времени суток. Прошу помочь с проблемой.
У меня на форме находится ScrollBox, на нем лежит Image, который может масштабироваться с помощью TrackBar. Когда Image стает больше, чем ScrollBox, соответственно появляются полосы прокрутки. Также на форме находится кнопка Печать. Я хочу чтобы при нажатии на кнопку часть картинки, которая на данный момент в зоне видимости распечатывалась на ВЕСЬ!!! лист бумаги.
Сейчас я использую следующий код:


procedure TMain.Pechat_BitBtnClick(Sender: TObject);
begin
PrintDlg:=TPrintDialog.Create(Owner);
if PrintDlg.Execute then
begin
  Printer.BeginDoc;
  Printer.Canvas.Refresh;
  ScrollBox1.PaintTo(Printer.Handle,10,10);
end;
PrintDlg.Free;
end;


Естественно изображение на бумаге получается маленьким из-за разницы в разрешениях монитора и принтера.
Функция GetDeviceCaps мне известна. Пытался сделать через CopyRect - не вышло тоже, там через Image надо делать - куски его копировать, но это имеет смысл только при постоянных размерах Image"а, а он масштабируется и вычислить координаты прямоугольника я уже никак не смог.
Кто еще что может предложить, посоветуйте пожалуйста.
Заранее спасибо.


 
ZZTop24   (2009-04-17 23:49) [1]

Получаешь DC ScrollBox1 и делаешь StretchBlt на канву принтера. Разве что возня с отношениями, а поле просмотра тоже вычислить просто.



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

Текущий архив: 2010.09.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
15-1276546519
xayam
2010-06-15 00:15
2010.09.12
Задача для математиков и/или программистов


2-1276338216
forNeXt-13
2010-06-12 14:23
2010.09.12
Как сделать ValueListEditor в возможностью выбора


2-1276668024
DROWSY
2010-06-16 10:00
2010.09.12
Access violation at address 00356273 in module designide60.bpl .


2-1276275861
NoSilence
2010-06-11 21:04
2010.09.12
Хуки


15-1276625703
George
2010-06-15 22:15
2010.09.12
Импровизация