[maravert]

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;