Pon en un form 2 images image1, image2. Pon un radiogroup,
radiogroup1, pon un button.En el readiogroup pon 4 items.
y wn wl image1 , cargale una imagen bitmap, y en el button pon este código
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j :integer;
begin
WITH Image1.Canvas.ClipRect DO
BEGIN
FOR i := Left TO Right DO
BEGIN
FOR j := Top TO Bottom DO
BEGIN
CASE radiogroup1.itemindex OF
(*0 *) 0: Image2.Canvas.Pixels[i,j] :=
Image1.Canvas.Pixels[i,j];
(*90*) 1: Image2.Canvas.Pixels[j,Right-i-1] :=
Image1.Canvas.Pixels[i,j];
(*180*) 2: Image2.Canvas.Pixels[Right-i-1,Bottom-j-1] :=
Image1.Canvas.Pixels[i,j];
(*270*) 3: Image2.Canvas.Pixels[Bottom-j-1,i] :=
Image1.Canvas.Pixels[i,j]
END
END
END
END
end;
Compila y dale al boton
Suerte
Saludos