gulder |
28-11-2008 07:32:23 |
Guardad Canvas De Un Image Con La propiedad stretch:=true
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
|