Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.09.2009, 10:00   #1
doniyor
Форумчанин
 
Аватар для doniyor
 
Регистрация: 22.04.2008
Сообщений: 143
По умолчанию Обрезка фотографий

Здравствуйте!
Вот пишу бесплатную утилиту для обрезки фотографий. Картина такая: По клику на баттон загружается в Image1 фотография JPG. А задача моя - чтобы из всей фотографии сохранить произвольный квадрат размером
137 X 137 пикселей. Я так думаю следует "создать" инструмент - квадрат со стороной 137 X 137 пикселей и перемещать его при помощи мыши (а ля Фотошоп). А по клику на нужный участок на Image1 - обрезать остальную ненужную часть. Пробовал выполнить код из DelphiWorld но эффекта=0.
Ну и собственно мой вопрос -
Цитата:
"создать" инструмент - квадрат со стороной 137 X 137 пикселей и перемещать его при помощи мыши (а ля Фотошоп). А по клику на нужный участок на Image1 - обрезать остальную ненужную часть
Мой сайт - www.fortis-soft.narod.ru
doniyor вне форума Ответить с цитированием
Старый 22.09.2009, 19:14   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

лучше наверно PaintBox+BitMap
сейчас накропаю проект(с отрисовкой квадрата) и скину
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 22.09.2009, 20:27   #3
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Можешь "привязать" к мыши изображение квадрата, а при клике на изображение хватать координаты мыши и резать.
Тем паче, что у имаджа есть OnMouseClick. А координаты сами будут X и Y
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 22.09.2009, 21:05   #4
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Для того, что бы скопировать часть рисунка, используйте метод CopyRect.
Arigato вне форума Ответить с цитированием
Старый 22.09.2009, 21:21   #5
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

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

вот на основе имейдж
Вложения
Тип файла: rar квадрат.rar (172.8 Кб, 85 просмотров)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 23.09.2009, 11:23   #6
doniyor
Форумчанин
 
Аватар для doniyor
 
Регистрация: 22.04.2008
Сообщений: 143
По умолчанию

Здорово!
Щас попробую внедрить в свой проект!
Мой сайт - www.fortis-soft.narod.ru
doniyor вне форума Ответить с цитированием
Старый 24.09.2009, 18:04   #7
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
чет с боксом не вышло, он ся как то странно ведет...
Это его нормальное поведение. Уметь надо пользоваться
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 24.09.2009, 20:33   #8
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Проще всего PaintBox тупо перерисовывать по таймеру и не заморачиваться с onPaint.
Arigato вне форума Ответить с цитированием
Старый 24.09.2009, 23:25   #9
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
Проще всего PaintBox тупо перерисовывать по таймеру
Если только это необходимо. Тут же события генерирует пользователь таская рамку и т.д., нет никаких проблем повесить на эти действия перерисовку.

Прикрепил программку, давно делал как пример, там кажется прямо на форму выводится, но принципиально это не отличается от работы с PaintBox.
Вложения
Тип файла: zip Перетаскивание карты.zip (198.9 Кб, 48 просмотров)
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mutabor; 24.09.2009 в 23:32.
mutabor вне форума Ответить с цитированием
Старый 25.09.2009, 00:41   #10
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Цитата:
Сообщение от mutabor
Если только это необходимо. Тут же события генерирует пользователь таская рамку и т.д., нет никаких проблем повесить на эти действия перерисовку.
А если наше окно перекроет другое, то картинка на паинтбоксе или форме просто исчезнет.
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с открытием фотографий artemavd Операционные системы общие вопросы 6 19.08.2009 19:12
обрезка фона родительского элемента Love_silense HTML и CSS 5 14.08.2009 13:01
Обрезка на принтере чеков epson Родион Общие вопросы Delphi 0 07.10.2008 18:53
Обрезка видео формата Mpeg Rembo Софт 9 27.04.2008 22:20
каталог фотографий mager PHP 8 27.03.2008 22:43