повернуть изображение и сохранить полученное в файл

[gvozdkoff]

всем привет.
Возникла у меня заминка.
Загружаю изображение, затем поворачиваю его на произвольный угол.
После этого , нужно сохранить полученное повернутое изображение, при сохранении получаю файл с исходным изображением которое загрузил до начала вращения.

Вот код, который использую.
Мужики , что я не так делаю то ?

//создаю слой, загружаю в битмап картинку

procedure TForm1.Button1Click(Sender: TObject);
begin
RL:= TRotLayer.Create(ImgView.Layers);
 RL.Bitmap := TBitmap32.Create;
  RL.Bitmap.LoadFromFile('1.bmp');

with RL.Bitmap do
 begin
 BeginUpdate;
    TLinearResampler.Create(RL.Bitmap);
    TCustomResampler(RL.Bitmap.Resampler).PixelAccessMode := pamTransparentEdge;
   RL.BitmapCenter := FloatPoint(Width / 2, Height / 2);
   MasterAlpha := 200;
    FrameRectS(BoundsRect, $FFFFFFFF);
    DrawMode := dmBlend;
    EndUpdate;
    Changed;

 end;
  RL.Scaled := True;
  RL.Position :=FloatPoint(ImgView.ClientWidth / 2, ImgView.ClientHeight / 2);
 end;

// вращаю изображение
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
RL.Angle:=Scrollbar1.Position;
end;

//Сохраняю изображение повернутое под некоторый угол
procedure TForm1.Button2Click(Sender: TObject);
begin
RL.Bitmap.SaveToFile('2.bmp');
end;

[gvozdkoff]

сейчас попробовал повернуть на 90 градусов

RL.Bitmap.Rotate90;

далее сохраняю в файл

RL.Bitmap.SaveToFile('image\temp\1.bmp');

и что самое интересное , при повороте на 90, 180 и 270 градусов, изображение сохраняется корректно, то есть повернутое на 90, 180 и 270.
Загадка

[volod3000]

Вот посмотрите маленький проект, должно помочь :

[gvozdkoff]

спасибо вам за ответ, интересный пример.
Сохранение происходит также.
Не могу понять в чем дело в моем проекте.
Может нужно как то хитро обработать картинку.
Заметил разницу при вращении объектов.
В вашем проекте видимая область при вращении рисунка ограничивается, то есть углы у него обрезаются. Ну вы наверняка это знаете.
К сожалению вот из за этого блин, немного не подходит.
На всякий случай прикрепляю свой проект, может найдется время глянуть.

Тема все еще активна.

[volod3000]

Вот посмотрите :


Ну, а в Вашем коде, все правильно.
Вы делаете копию Вашей картинки, а что бы увидеть поворот,
нужно делать фото области канвы на которой находится картинка.

[gvozdkoff]

хм ) здорово. Спасибо за подсказку
Вот посмотрите пожалуйста, на данный момент есть задача загрузить изображение(1 слой), перемещать его, затем вращать (2 слой) и снова перемещаем его, но уже повернутое.

Вы правильно заметили, я делаю копию картинки (из 1 слоя) и вставляю ее в слой (2 ) для вращения, затем после вращения в слое 2 я передаю полученное изображение , тут уже варианты,
1) в исходный 1 слой
2)1 слой удаляем, делаем новый (3 слой) вставляем в него полученное изображение из 2 слоя, удаляем/очищаем 2 слой.

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

Но сейчас изображение сохраняется с "лишним фоном" канвы image1.
А размеры канвы можно задать границами рисунка ?

[volod3000]

Сообщение от gvozdkoff

А размеры канвы можно задать границами рисунка ?

Можно задать регион , т.е. часть Canvas для копирования.

Вот, почитайте, для общего развития, может чего полезного найдете.

http://shiva16.narod.ru/Unit24.htm

http://sources.ru/delphi/graphics/gd...n_delphi.shtml

http://www.cyberforum.ru/delphi-mult...read72114.html

http://www.delphisources.ru/pages/fa...t_to_file.html

[gvozdkoff]

спасибо за полезную информацию и потраченное время.
Займусь чтением