|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.10.2011, 19:48 | #1 |
Регистрация: 28.10.2011
Сообщений: 7
|
Проблема с поворотом изображения в Image
Имеется программа просмотра изображений, но никак не получается сделать поворот изображений на 90 градусов по и против часовой стрелки. На этом же форуме нашёл функцию и поделал её по себя.
Код:
Подскажите, кто знает, в чём проблема, как сделать поворот против часовой стрелки или предложите другой способ поворота. P. S. Изображения не поворачиваются любого формата. |
28.10.2011, 22:05 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Попробуйте вот это.
Поворот изображения на N градусов Поворот проще всего осуществляется в полярных кординатах, а у нас доступны только Декартовы. Перевод из осуществляется по формулам: x=LCos(@) L=Sqrt(x**2+y**2) y=LSin(@) @=arctg(y/x) Для поворота достаточно добавить к a угол на который осуществляется поворот. И новые координаты будут выглядеть так: x'=LCos(@+t) y'=LSin(@+t) В принципе это все. Давайте теперь напишем функцию которая будет переводить координаты из старых в новые. Код:
Теперь, когда есть функция, напишем саму процедуру поворота. Нам понадобятся 2 объекта TImage, поле для ввода угла поворота и кнопочка по которой будет осуществляться поворот. Загрузим в первый объект TImage картинку в формате bmp. А в обработчике события кнопки будем писать саму процедуру. Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сохранение изображения из канвы image. | koshel | Мультимедиа в Delphi | 4 | 08.05.2010 13:31 |
Большие изображения в Image | Jene4ka | Помощь студентам | 7 | 16.03.2010 13:12 |
Проблема с загрузкой изображения в Image | artemavd | Общие вопросы Delphi | 6 | 26.02.2010 20:40 |
Изменения размера изображения в Image | BredoZavR | Мультимедиа в Delphi | 0 | 02.07.2009 13:30 |
Сохранение изображения с Image | brutos | Мультимедиа в Delphi | 7 | 19.05.2009 12:26 |