如果IMAGE尺寸一定设置STRETCH:=TURE,要是BMP比IMAGE或大或小,如何将现在IMAGE的图象按IMAGE的尺寸保存下来(85分)

  • 主题发起人 主题发起人 sdenf
  • 开始时间 开始时间
S

sdenf

Unregistered / Unconfirmed
GUEST, unregistred user!
如果Image尺寸一定设置Stretch:=true,要是Image里BMP图比Image或大或小,
如何将现在Image的图象按IMage的尺寸保存下来,俺的分全送了,不够再加
 
直接存就行了
 
直接存那不就和原来BMP的尺寸一样大小了吗
 
用下面的方法试试:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
r1, r2: TRect;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := Image1.Width;
Bitmap.Height := Image1.Height;
SetRect(r1,0,0,Bitmap.Width,Bitmap.Height);
SetRect(r1,0,0,Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height);
Bitmap.Canvas.CopyRect(r1,Image1.Picture.Bitmap.Canvas,r2);
Bitmap.SaveToFile('c:/test.bmp');
Bitmap.Free;
end;

 
后退
顶部