Текущий архив: 2011.12.25;
Скачать: CL | DM;
Вниз
поворот изображения. Работа со слоями Найти похожие ветки
← →
alexandr (2011-06-09 16:01) [0]Привет уважаемые мастера.
В проекте используется библиотека 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;
К теме прикрепляю сам проект
http://85.143.50.133/ftp/file/example.rar
Надеюсь направите на правильный путь
← →
И. Павел © (2011-06-09 16:15) [1]В гугле выдается куча форумов с советами на этот счет. Вот тут предлагают несколько разных способов:
http://www.sql.ru/Forum/actualthread.aspx?bid=20&tid=415492&hl=
← →
alexandr (2011-06-09 16:38) [2]спасибо за ответ.
я понимаю что ответов куча, но особенность в том, что используются слои TBitmapLayer при работе и GR32.
еще раздобыл к этой библиотеке Unit GR32_RotLayer.pas.
Но опять же не могу связать их.
Либо обекты перетаскиваются но не вращаются, либо вращаются, но без возможности перемещения
http://85.143.50.133/ftp/file/GR32_RotLayer.pas
← →
МТМ (2011-09-20 04:39) [3]Для того, щоб повертати - створюємо TRotLayer або один з GR32_Transforms, далі вказуємо тип лінеаризації і задаємо кут або використомуємо процедури Transform
Страницы: 1 вся ветка
Текущий архив: 2011.12.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
