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

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

Работа с картинкой [D7, Win2k]


Batoon ©   (2004-07-20 14:32:00) 

Помогите..
такая вот проблема:
есть картинка и эту картинку надо вывести на экран, затем пользователь должен выделить прямоугольником какую-то часть картинки(соотношение сторон выделяемого прямоугольника = 1:2)
и потом скопировать выделенную  часть на винт в виде картинки)


Batoon   (2004-07-24 13:03:00) [1]

Да все отлично, СПАСИБО ОГРОМНОЕ, я еще resample сделал и во второй image загнал. Вот только resample долгоделается, ну ладно ничего, мне торопиться некуда :)


grom   (2004-07-22 22:23:00) [2]

ну что получилось?


Огромное Кулясищще   (2004-07-21 20:23:00) [3]

TImage - для вывода на экран.

TImage.LoadFromFile - для загрузки изображения

TRect - для хранения координат копируемой прямоугольной области

OnMouseDown - начало выделения области. Обязательно отметь начало в логической переменной и занеси координаты в TRect.Left и TRect.Top.

OnMouseMove - пользователь расширяет область или сужает. Получаемые обработчиком координаты после обработки так, чтобы они были 1:2, заносят в TRect.Right и TRect.Bottom.

TCanvas.DrawFocusRect - рисует рамочку. Повторной вызов с теми же координатами стирает рамочку (м-м! да?).

CopyRect - копирует указанную в структуре типа TRect область.

TBitmap - куда копировать.

TBitmap.SaveToFile - сохранить.


grom   (2004-07-21 17:28:00) [4]

onmouse... - это я понимаю, зачем.
А как устанавливать координаты прямоугольника без onmouse...


Batoon   (2004-07-21 14:48:00) [5]

у меня чет ниче не получилось...
оригинал затирается  :(
и можно поточнее че за чем?
onmouse... - это я понимаю, зачем, а


Batoon   (2004-07-20 22:32:00) [6]

thanks...


Огромное Кулясищще   (2004-07-20 17:01:00) [7]

TImage, TRect, OnMouseDown, OnMouseMove, DrawFocusRect, CopyRect, TImage.LoadFromFile, TBitmap, TBitmap.SaveToFile.


Batoon   (2004-07-20 16:26:00) [8]

устанавливать координаты мышкой
загрузить image
ну ошибся,бывает...
значит помогите с задачей...


Красный молоток   (2004-07-20 15:18:00) [9]

Проблема-то в чем? То, что написал - это задача, а не проблема


grom   (2004-07-20 15:04:00) [10]

выделить прямоугольником
---------------------------
Как устанавливать координаты прямоугольника мышкой?
И ли они заранее известны?

эту картинку надо вывести на экран
----------------------------------
замостить рабочий стол или загрузить Image?


Наверх

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