Текущий архив: 2004.10.17;
Скачать: CL | DM;
Вниз
Работа с картинкой Найти похожие ветки
← →
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...
← →
Огромное Кулясищще © (2004-07-21 20:23) [8]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 долгоделается, ну ладно ничего, мне торопиться некуда :)
Страницы: 1 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.031 c
