delphi 图片放大缩小

Question

在image1控件里怎样才能使图片放大缩小

Answer 1

把Image控件的stretch属性置TRUE,改变Image的大小就可以了

Answer 2

我的意思就是
 在Image控件里加入一张图片后，再通过一个弹出式菜单里放大或者缩小来放大或缩小整个图片或者按某一位置来放大

Answer 3

procedure TForm1.ZoomInOut(bitmap: TBitmap; m, n: extended);//缩小放大函数m、n小于1则缩小，反之则放大！！
var
  Mybmp: TBitmap;
begin
  self.DoubleBuffered := True;
  Mybmp := TBitmap.Create;
  Mybmp.Width := Trunc(m * Self.Image1.Width);
  Mybmp.Height := Trunc(n * self.Image1.Height);
  image1.Width := Mybmp.Width;
  image1.Height := MyBmp.Height;
  SetStretchBltMode(Mybmp.Canvas.Handle, HalfTone);
  Stretchblt(Mybmp.Canvas.Handle, 0, 0, Mybmp.Width,
    Mybmp.Height, OriginalBmp.Canvas.Handle, 0, 0, OriginalBmp.Width,
    OriginalBmp.Height,
    SRCCOPY);
  Mybmp.PixelFormat := pf24bit;
  //MyBmp.Assign(newbmp);
  image1.Picture.Bitmap.Assign(MyBmp);
  MyBmp.Free;
end;//记得缩小放大的前后将原图片备份到一变量中哦！