Скачать: CL | DM;

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

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

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

---

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

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

---

← →
Zeqfreed ©   (2004-03-08 19:53) [2]

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. Вроде работает...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c