Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c
9-1087359964
AndruhaO
2004-06-16 08:26
2004.10.17
Видеорежим


14-1096315452
Луарвик
2004-09-28 00:04
2004.10.17
ЧТО ТАКОЕ САБЖ???


1-1096716248
roma
2004-10-02 15:24
2004.10.17
Install component


14-1096109267
X9
2004-09-25 14:47
2004.10.17
NRG 2 ISO


1-1097017647
ДЫМ
2004-10-06 03:07
2004.10.17
Как обработать исключения при чтении/записи на дискету?




   Наверх