Guardad Canvas De Un Image Con La propiedad stretch:=true

[gulder]

Hola Foro Como andan espero que bien, bueno estoy tratando de guardar el canvas de un Timage que tiene la propiedad stretch:=true en una imagen lo hago de la siguiente forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
        Bitmap := TBitmap.Create;
        Bitmap.Width := Image1.Width;
        Bitmap.Height := Image1.Height;
        Bitmap.Canvas.Draw(0,0,Image1.Picture.Graphic);
        Bitmap.SaveToFile('logula.bmp');
end;

Nota: este es el tamaño original de la imagen antes de ser cargado en el Timage


en mi form tengo la imagen y el boton ojo el tamaño de la imagen no es el original recuerden que la imagen tiene la propiedad stretch:=true y por ende la estira al tamaño del Timage



y al ejecutar dicho codigo me lo guarda de la siguiente forma



yo quiero que me lo guarde tal cual se ve en el Timage saludos y espero que me entiendan lo que quiero

[[escafandra]]

Trata de mirar si esto te ayuda. Esta en C++ pero es fácil de portar a delphi.

Saludos.

[Neftali [Germán.Estévez]]

No se si es lo mismo, pero esto debería funcionar.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  ORect, Drect: TRect;
  Bitmap: TBitmap;
begin
  ORect := Image1.Picture.Bitmap.Canvas.ClipRect;
  DRect := Image1.ClientRect;

  // Copia
  Bitmap := TBitmap.Create;
  Bitmap.Width := Image1.Width;
  Bitmap.Height := Image1.Height;
  Bitmap.Canvas.CopyRect(DRect,
                         Image1.Picture.Bitmap.Canvas,
                         ORect);
  Bitmap.SaveToFile('.\logula2.bmp');
  Bitmap.Free;
end;

[gulder]

hola foristas como amanecen bueno primero Neftali el ejemplo que me pone me arroja lo siguiente solo una imagen en blanco no se que puede estar pasando



y por otro lado escafandra gracias por responder no he podido pasar ese codigo a delphi saludos

[[seoane]]

¿la imagen es bmp o jpg?

[gulder]

hola seoane como andas la imagen es PNG pero igual la converti a jpg y la cargue y sale lo mismo saludos