Foros Club Delphi - Rotar una imagen

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Rotar una imagen (https://www.clubdelphi.com/foros/showthread.php?t=6238)

Rotar una imagen

Hola

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

Gracias.

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

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