Вверх ↑
Этот топик читают: Гость
Ответов: 33
Рейтинг: 0
#1: 2006-06-24 22:18:29 ЛС | профиль | цитата
Вращение, горизонтальный и вертикальный флип картинки.
Пример использования прилагается.
карма: 0

0
файлы: 1Img_Rotate.zip [14KB] [1166]
vip
#1.1контекстная реклама от партнеров
Ответов: 446
Рейтинг: 7
#2: 2007-08-17 11:55:04 ЛС | профиль | цитата
Вращение, горизонтальный и вертикальный флип картинки.
Пример использования прилагается.

В версии 3.64 не работает! Выпадает ошибка... Ни у кого заменителя нет?

Добавлено:
Ух ты... А под FPC поворачивает и потом вываливается с ошибкой.
карма: 0
Время верстки: Текущее время: %time%
0
Ответов: 9906
Рейтинг: 351
#3: 2007-08-17 12:37:54 ЛС | профиль | цитата
Spec, следует вместо
    dt.data_type := data_bitmap;
    dt.idata := integer(scr2);
_hi_OnEvent(_event_onResult,dt);
писать
    _hi_OnEvent(_event_onResult,scr2);
ну и, видимо ликвидировать dt вообще...
карма: 9

0
Разработчик
Ответов: 26068
Рейтинг: 2121
#4: 2007-08-17 12:58:25 ЛС | профиль | цитата
Galkov, там и без этого еще куча бардака.
карма: 22

0
Ответов: 9906
Рейтинг: 351
#5: 2007-08-17 13:00:54 ЛС | профиль | цитата
Это ведет к "Выпадает ошибка"
карма: 9

0
Разработчик
Ответов: 26068
Рейтинг: 2121
#6: 2007-08-17 13:07:09 ЛС | профиль | цитата
Galkov писал(а):
Это ведет к "Выпадает ошибка"

Ну да, это первое, что к приводит к краху.
карма: 22

0
Ответов: 9906
Рейтинг: 351
#7: 2007-08-17 13:11:27 ЛС | профиль | цитата
Ну еще тоже самое в setFData - надо так:
procedure THIImg_Rotate.setFData(W,H:Integer);
begin
dtInteger(FDataWidth, Round(W));
dtInteger(FDataHeight,Round(H));
end;
Иначе - тоже возможны неприятности....
карма: 9

0
Разработчик
Ответов: 26068
Рейтинг: 2121
#8: 2007-08-17 13:23:06 ЛС | профиль | цитата
Galkov, а вот это тоже интересно, зачем?
     _Data.Data_type := 0;[/code]
карма: 22

0
Ответов: 446
Рейтинг: 7
#9: 2007-08-17 13:34:20 ЛС | профиль | цитата
Galkov,
_hi_OnEvent(_event_onResult,src2);


Я так понимаю нужно всетаки
_hi_OnEvent(_event_onResult,scr2);[/code]
через [b]scr2[/b]

но все равно не работает...
а если поставить и вот это:
procedure THIImg_Rotate.setFData(W,H:Integer);
begin
dtInteger(FDataWidth, Round(W));
dtInteger(FDataHeight,Round(H));
end;
то программа не компилируется вообще.
карма: 0
Время верстки: Текущее время: %time%
0
Разработчик
Ответов: 26068
Рейтинг: 2121
#10: 2007-08-17 13:41:09 ЛС | профиль | цитата
Stasie, расчитано на Share не ниже, чем с SVN. Остальные телодвижения никто делать не будет, все для совместимости с новыми версиями. Там еще и Flip'ы косячные, даже не знаю надо делать или просто выкинуть.

[size=-2]------ Добавлено в 13:41
Вот этот pas у меня работает но без Flip'ов. Рисунок поворачивается.
карма: 22

0
файлы: 1hiImg_Rotate_pas.zip [1.9KB] [367]
Ответов: 446
Рейтинг: 7
#11: 2007-08-17 13:48:34 ЛС | профиль | цитата
nesco,
расчитано на Share...

Позволю не скромный вопрос, а как это расшифровывается?
И хотел уточнить, а доступ к SVN можно получить только через прогу? или есть возможность по http обновляться, а то у меня только 80 порт открыт. Я пытался через прокси настроить turtle, но он не пошел.

[size=-2]------ Добавлено в 13:48
Вот этот pas у меня работает но без Flip'ов. Рисунок поворачивается.


Фиг с ним, с Flip'ами. Вроде как работает. Спасибо.
карма: 0
Время верстки: Текущее время: %time%
0
Разработчик
Ответов: 26068
Рейтинг: 2121
#12: 2007-08-17 13:50:14 ЛС | профиль | цитата
Stasie, вот, почитай http://dev.hiasm.com/wiki.php?view=167 А Share -- это Share.pas из пакета Delphi
карма: 22

0
Ответов: 446
Рейтинг: 7
#13: 2007-08-17 14:12:35 ЛС | профиль | цитата
nesco, спасибо, разобрался где брать по http. А тортила не хочет через прокси ходит, кто его знает, почему... У меня часть программ ходит через прокси, браузеры в основном, а часть - нет. Настройки везде одни и теже.
карма: 0
Время верстки: Текущее время: %time%
0
Ответов: 9906
Рейтинг: 351
#14: 2007-08-17 14:14:18 ЛС | профиль | цитата
Stasie писал(а):
но все равно не работает...
а если поставить и вот это:
.....
то программа не компилируется вообще

Тогда нечего было гнать пургу про версию
Stasie писал(а):
В версии 3.64 не работает!

карма: 9

0
Разработчик
Ответов: 26068
Рейтинг: 2121
#15: 2007-08-17 14:19:38 ЛС | профиль | цитата
Galkov, ну может чел чего не так прописал, вот и не компилилась.
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)