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