W jaki sposób odbić w pionie/poziomie obrazek - chodzi mi o jakieś zdefiniowane metody, a nie o algorytm bo algorytm moze być taki(ale jest wolny)
procedure FlipHorizontal(Image:TImage);
var
i,j:integer;
color:TColor;
begin
for i:=0 to (Image.Picture.Height-1) div 2 do
begin
for j:=0 to Image.Picture.Width-1 do
begin
color:=Image.Canvas.Pixels[j,i];
Image.Canvas.Pixels[j,i]:=Image.Canvas.Pixels[j,Image.Picture.Height-i];
Image.Canvas.Pixels[j,Image.Picture.Height-i]:=color;
end;
Application.ProcessMessages
end;
end;