如何把Image中的图像伸缩到一定的尺寸大小再复制到剪帖板上???

Question

以如何把Image中的图像伸缩到一定的尺寸大小再保存到文件中
主要是如何"伸缩"，没搞清楚
Image中的内容是用Canvas画上去的

Answer 1

试试看这样
mybmp:=Tbitmap.Create;
mybmp.Canvas=Image1.Canvas;
mybmp.savetofile.....
这样

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var bit:Tbitmap;
begin
  Bit:=Tbitmap.Create;
  try
  Image1.AutoSize:=True;
  if Opendialog1.Execute then
   Image1.Picture.LoadFromFile(OpenDialog1.FileName);
   Bit.Width:=50; Bit.Height:=50;
   Bit.Canvas.StretchDraw(Rect(0,0,50,50),Image1.Picture.Bitmap);
  Bit.SaveToFile('c:\bit.bmp');
  finally
   Bit.Free;
  end;end;