盒子论坛 v2.1

想实现将一幅图片载入，然后按设置的比列缩放之后输出成文件
现在考虑的方法是用image 载入然后设置image 的 width heignt
然后 stretch 之后用copyrect 复制到事先声明的变量里然后用变量savetofile

具体代码是这个样子的

procedure do_canvas_modify(w:integer;h:integer;kd:integer);
var tmap:tbitmap;
var tmrect:trect;
begin
  form1.image1.AutoSize:=false;
  form1.Image1.Width:=w;
  form1.Image1.Height:=h;
  if kd=1 then form1.Image1.Stretch:=true;
  chkresize;
  tmap:=tbitmap.Create;
  tmrect:=rect(0,0,w,h);
  tmap.Width:=w;
  tmap.Height:=h;
  form1.Image1.Canvas.;
  tmap.Canvas.CopyRect(tmrect,form1.Image1.Canvas,tmrect);
  form1.Image1.Picture.Bitmap.CleanupInstance;
  form1.Image1.Picture.Bitmap.NewInstance;
  form1.Image1.Picture.Bitmap:=tmap;
  tmap.Destroy;
  form1.Image1.AutoSize:=true;
  form1.Image1.Stretch:=false;

end;
可是将上述的tmap输出后仍然是没有stretch 过的图也就是原图上的tmrect 区域而不是我想要的缩小到tmrect这个区域内的正张图请问有什么办法解决？
----------------------------------------------
-欢迎访问我的商业站点http://www.thumb-design.com

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/5/29 14:01:44

1楼：

form1.Image1.AutoSize:=true;
->
Image1.Width := Image1.Picture.Width;
Image1.Height := Image1.Picture.Height;
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

信息

登陆以后才能回复