Поворот картинки

← →
Гарри Поттер © (2004-03-08 18:10) [0]

Нужно программно повернуть изображение 128х1024х24б jpg на 90 градусов против часовой стрелки, помогите?

← →
Гарри Поттер © (2004-03-08 18:20) [1]

Я видел в факах алгоритм поворота, пробовал написать сам, но че-то трудно, мне нужно наиболее быстрое по скорости решение.

procedure TForm1.Button1Click(Sender: TObject);
var
i,j : integer;
begin
for i := 0 to 255 do
for j := 0 to 255 do
begin
image2.Canvas.Pixels[i,j] := image1.Canvas.Pixels[256-j,i];
end;
end;

Если ширина и высота разные, то:
image2.Width := image1.Height;
image2.Height := image1.Width;

P.S. Вроде работает...

Поворот картинки Найти похожие ветки