FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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. |
#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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|