![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
![]() Hola
¿Como puedo rotar una imagen insertada en un TImage? Quiero que la imagen quede horizontal sin necesidad de hacer otra imagen. Gracias. |
#2
|
|||
|
|||
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; Suerte Saludos |
![]() |
|
|
![]() |
|