如何放大缩小图形

Question

我用image控件显示数据库中图形，想单击图形，图放大；再单击图，图缩小，如何做，请教各位。

Answer 1

delphi实现放大图形效果源程序:
http://www.8860.net/delphicode/dispdoc.asp?id=132

Answer 2

var
   b : Boolean;procedure TForm1.Image1Click(Sender: TObject);
begin
  Image1.Stretch := True;
  if b then
  begin
    Image1.Width := 2 * Image1.Width;
    Image1.Height := 2 * Image1.Height;
    b := not b;
  end
  else
  begin
    Image1.Width := Image1.Width div 2;
    Image1.Height := Image1.Height div 2;
    b := not b;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  b := True;
end;