FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como elimino una imagen de un Image
Hola que tal, miren tengo el siguiente codigo: donde leo una imagen desde disco y despues de modificar su tamaño lo paso a otro image (image2) en este caso para probar que funciona.
Pero lo que necesito hacer es cambiar el tamaño del Image1 y que los cambios se reflejen en el mismo Image1. Gracias y espero que alguien me pueda ayudar. var Origen, Destino: TBitmap; R: TRect; Ancho, Altura : Integer; begin Origen := TBitmap.Create; Origen.LoadFromFile('c:\a.bmp'); Ancho := 20; Altura := 30; image1.Canvas.Draw(0,0,Origen); Destino := TBitmap.Create; Destino.Width := Ancho; Destino.Height := Altura; R := Rect(0, 0, Ancho, Altura); Destino.Canvas.StretchDraw(R, Origen); image2.Height := Altura; image2.Width := Ancho; image2.Canvas.Draw(0,0,Destino); image1.Canvas.Draw(0,0,Destino); Origen.Free; Destino.Free; end; |
#2
|
||||
|
||||
Image.Picture:=nil
|
|
|
|