Работа с картинкой

← →
Batoon (2004-07-20 14:32) [0]

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

← →
grom (2004-07-20 15:04) [1]

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

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

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

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

← →
Batoon (2004-07-20 16:26) [3]

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

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

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

← →
Batoon (2004-07-20 22:32) [5]

thanks...

← →
Batoon (2004-07-21 14:48) [6]

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

← →
grom (2004-07-21 17:28) [7]

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

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-22 22:23) [9]

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

← →
Batoon (2004-07-24 13:03) [10]

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

Работа с картинкой Найти похожие ветки