如何缩放图片？？？

[yangbiao]

不裁减图片，在原来的图片基础上。缩一下。。。
有代码实例吗？各位朋友小弟很急！！！
我做的一个，会裁减图片。。。原先图片很长。现在要求不裁减图片缩成方形！

[hsmserver]

直接用IMAGE，把IMAGE的STRETCH设置为TRUE，然后调整IMAGE的大小不就行了吗

[yangbiao]

好像不可以！！！我试过了！

[纯冰糖]

IMAGE的STRETCH:=true

[sxy_9761]

设置Image.Stretch := true

[Rex_love_Burger]

procedure TForm1.ZoomInOut(bitmap: TBitmap; m, n: extended);
var
Mybmp: TBitmap;
begin
self.DoubleBuffered := True;
Mybmp := TBitmap.Create;
Mybmp.Width := Trunc(m * bitmap.Width);
Mybmp.Height := Trunc(n * bitmap.Height);
SetStretchBltMode(Mybmp.Canvas.Handle, HalfTone);
Stretchblt(Mybmp.Canvas.Handle, 0, 0, Mybmp.Width,
Mybmp.Height, bitmap.Canvas.Handle, 0, 0, bitmap.Width,
bitmap.Height,
SRCCOPY);
Mybmp.PixelFormat := pf24bit;
Bitmap.Assign(MyBmp);
MyBmp.Free;
end;

[root3646]

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=197465
我以前问过的问题。大虾帮我解决了。
现在提供给你。

[zzlingaaa]

新建一个BMP,按缩放比例设置BMP的长宽,再把图片画过来就是了
如果只是显示需要,那么设置TImage的属性就可以了