escafandra hola como estas espero que bien lo logre pero modificando esto
Código Delphi
[-] Image.Height := 100;
Image.Width := 100;
Código Delphi
[-]
Image.Height := Image1.Height;
Image.Width := Image1.Width;
asi quedo entonce saludos
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
R: TRect;
Image: TImage;
begin
Image := TImage.Create(Self);
Image.Height := Image1.Height;
Image.Width := Image1.Width;
R.Left := 0;
R.Top := 0;
R.Bottom := Image.Height;
R.Right := Image.Width;
Image.Canvas.StretchDraw(R, Image1.Picture.Graphic);
Image.Picture.Graphic.SaveToFile('a.bmp');
end;
saludos y gracias a clubdelphi chauuu