|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2009, 01:52 | #1 |
Регистрация: 30.03.2008
Сообщений: 9
|
Печать фрагмента TImage
Всем доброго времени суток.
Суть проблемы в следующем: на форме находится ScrollBox, на него помещен TImage. Это сделано потому, что TImage масштабируется с помощью TrackBar и когда становится слишком большой и выходит за границы ScrollBox, то линейки прокрутки у ScrollBox позволяют просмотреть все изображение. Но это все предисловие. Сама проблема в том что я хочу напечатать фрагмент TImage, который в данный момент при работе программы находится в поле зрения в ScrollBox. Т.е. пользователь увеличил до нужных размеров, выбрал фрагмент изображения с помощью полос прокрутки и распечатал именно этот фрагмент на весь лист бумаги. Искал на форуме и нашел тока коды, которые печатают изображение целиком. Код:
RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY); можно заменить строкой RR := Rect(0, 0, ScrollBox1.Width, ScrollBox1.Height); но далеко не всегда координаты TImage в левом верхнем углу ScrollBox'а будут 0,0. Как быть с этим я не знаю. Может есть какие-нибудь другие методы печати, поделитесь секретами кто знает, буду благодарен. |
12.04.2009, 11:27 | #2 |
Форумчанин
Регистрация: 21.07.2008
Сообщений: 192
|
А если так:
Код:
Последний раз редактировалось lexaltd; 12.04.2009 в 12:30. |
12.04.2009, 12:09 | #3 |
Пользователь
Регистрация: 23.02.2009
Сообщений: 38
|
Код:
попробуй вот так: - печатает 1 : 1 выбранную часть рисунка причем в начальном положении СкролБаров Image должна находится в нулевых координатах (Image1.Left=0; Image1.Top=0) Код:
Чем меньше вы знаете, тем больше я ценен как специалист...
|
12.04.2009, 14:34 | #4 |
Регистрация: 30.03.2008
Сообщений: 9
|
Всем спасибо. Niarb очень помог. Осталось только немного дополнить код т.к. у меня изображение еще масштабируется.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TImage | maxvodo.dll | Мультимедиа в Delphi | 3 | 24.10.2008 21:29 |
TImage в TImage | One.Love | Общие вопросы Delphi | 15 | 22.09.2008 19:37 |
TImage | Killbrum | Помощь студентам | 8 | 27.08.2008 22:40 |
Чтение фрагмента файла в динамический массив. | ZeroCool. | Общие вопросы Delphi | 2 | 02.11.2007 08:14 |
TImage | Andrey9392 | Компоненты Delphi | 6 | 06.04.2007 10:43 |