PDA

Ver la Versión Completa : Rotar una imagen


zuriel_zrf
26-12-2003, 09:44:13
Hola

¿Como puedo rotar una imagen insertada en un TImage? Quiero que la imagen quede horizontal sin necesidad de hacer otra imagen.

Gracias.

Descendents
26-12-2003, 14:34:36
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


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

madriles
29-12-2003, 20:37:53
hola
te recomiendo que mires en la pagina de trucomania www.q3.nu donde encontraras, no solo lo que buscas sino varios ejemplos mas sobre graficos (rotar X grados por ejemplo ).
e`pero que te guste esta pagina
un saludo