如何可以将IMAGE控件里面的图像进行缩小操作 ( 积分: 100 )

A

aabb_1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-13

• #1

各位朋友：
小弟的窗体上面有一个IMAGE控件，里面有一幅图像，如何可以通过代码来控制，将这幅图像按原来的比例进行缩小，比如想将这幅图片缩小为原来大小的90%,50%等等，缩小后，可以存入一个新文件。希望各位大虾能给一个思路或给一个小例子学习一下，谢谢！！！

 

H

hitman007260

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-13

• #2

image1.AutoSize:=false;
image1.Stretch:=true;
image1.Height:=trunc(image1.Height * 放大缩小系数)) ;
image1.Width:=trunc(image1.Width * 放大缩小系数));

 

A

aabb_1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-13

• #3

楼上的大虾，但如果想将缩小后的图片存入一个文件又该怎样操作，希望楼上的大虾能再次赐教，谢谢！！！

 

H

hitman007260

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-13

• #4

不敢当大虾，只是个小虾米
Image1.Picture.SaveToFile()

如果不行的话就弄个tbitmap;
bmp.Width := Image1.Width;
bmp.Height := Image1.Height;
//bmp.PixelFormat := pf24bit;
bmp.Canvas.StretchDraw(Rect(0,0,Image1.Width,Image1.Height), Image1.Picture.Bitmap);
bmp.SaveToFile()
.

 

A

aabb_1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-13

• #5

谢谢！