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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2011, 13:36   #1
gvozdkoff
Пользователь
 
Регистрация: 20.02.2009
Сообщений: 19
По умолчанию поворот изображения. Работа со слоями

Мужики здарова.
В проекте используется библиотека GR32 , GraphicEx и RxGIF.
Среда разработки Delphi7

Проблема в следующем.

На форме есть компонент ImgView32.
в этот компонент добавляются слоями картинки,
картинки *.gif, расширение картинки не критично можно и *.jpeg использовать,
слои можно передвигать влево, вправо, вверх и вниз.
Но никак не могу добиться поворота картинки. Перерыл кучу форумов, накачал примеров, ну не выходит у меня поворот картинки и всё тут.

Гляньте пожалуйста свежим взором на проект .
Подскажите пожалуйста

вот сама процедура добавления нового слоя
Код:
procedure TMainForm.Image1DblClick(Sender: TObject);
begin
 B := TBitmapLayer.Create(ImgView.Layers);
      with B do
      try
        Bitmap.LoadFromFile('image\1-1.gif');
        Bitmap.DrawMode := dmBlend;

        with ImgView.GetViewportRect do
          P := ImgView.ControlToBitmap(GR32.Point((Right + Left) div 2, (Top + Bottom) div 2));

        W := Bitmap.Width / 2;
        H := Bitmap.Height / 2;

        with ImgView.Bitmap do
          Location := GR32.FloatRect(P.X - W, P.Y - H, P.X + W, P.Y + H);
          Scaled := True;
        OnMouseDown := LayerMouseDown;
      except
        Free;
        raise;
      end;
     Selection := B;
    end;
К теме прикрепляю сам проект
Надеюсь направите на правильный путь
Вложения
Тип файла: rar example.rar (440.5 Кб, 33 просмотров)
gvozdkoff вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поворот изображения на форме (либо поворот файла с картинкой) mystiql Microsoft Office Access 2 21.06.2011 22:03
поворот изображения DeDoK Общие вопросы Delphi 4 06.09.2010 21:34
Поворот изображения Djony_91 Мультимедиа в Delphi 1 26.05.2010 16:15
поворот изображения на форме choknutii Общие вопросы C/C++ 1 21.07.2009 11:20
поворот изображения Пепел Феникса Мультимедиа в Delphi 1 21.06.2009 19:53