◆◆◆◆ Image.Canvas的图形放大缩小问题!◆◆◆◆ -------------急 在线等待●●●●●

Question

现有一Image,手动控制画了一些图形,如何加上放大缩小功能了,类似于看图软件的放大镜功能,望各位赐教!

Answer 1

可以在设置image控件的streth属性为true后通过改变Image控件的width和height来控制

Answer 2

把image最大化，然后调整他的宽度和长度，按照比例扩大和缩小，不就ok了啊！

Answer 3

//这是整张图的放大、缩小，调整 R 的参数即可，
procedure TForm1.Button2Click(Sender: TObject);
var
  B:TBitmap;
  R:TRect;
begin
  R:=Rect(100,100,100,100);
  B:=TBitmap.Create;
  try
    B.LoadFromFile('你的文件名');
    Canvas.StretchDraw(R,B);
  finally
    B.Free;
  end;
end;
//这是局部的放大缩小的代码，
procedure TForm1.Button3Click(Sender: TObject);
var
  B:TBitmap;
  sR:TRect;
  dR:TRect;
begin
  sR:=Rect(0,0,50,50);  //原图要放大的区域
  dR:=Rect(100,100,400,400);  //原图要放大的尺寸
  B:=TBitmap.Create;
  try
    B.LoadFromFile('c:\aa.bmp');
    Canvas.CopyRect(dR,B.Canvas,sR);
  finally
    B.Free;
  end;
end;
//楼主可以自行扩充处理，图形放大的方法有很多，这只是基本的。