如何使图形按比例缩小？(30分)

请问:
如何将以下代码中图形按比例缩小。使之与image控件大小相符。？
var
a:timage;
cs:string;
begin
cs:=dm.dyk_qry.fieldbyname('findpath').asstring+'/'
+dm.dyk_qry.fieldbyname('pic_file').asstring+'.jpg';
a:=timage.Create(self) ;
try
a.Picture.LoadFromFile(cs);
image1.Picture.Graphic:=a.Picture.Graphic ;
finally
a.Free;
end;
end;

autoscretch设为true就可以了

没错,将IMAGE控件的Stretch属性设置为TRUE就可以了.自己画可以用CANVAS的STRETCHDREW函数.

多人接受答案了。