delphi 7.0 缩放图片代码

下载学习了，还可以，反正受教了，

缩放会导致图片失真啊！

有图片缩放，但对我没有用

很不错，一般够用。

和描述的有一定的差别，学习用

不是我想要的，就几行代码，用处不大： procedure TForm1.Button1Click(Sender: TObject); var Bmp1,Bmp2:TBitmap;//Bmp1是提原图，Bmp2是缩放以后的图片 begin Bmp1:=TBitmap.create; Bmp2:=TBitmap.create; Bmp1.LoadFromFile('1.bmp'); Bmp2.PixelFormat:=Bmp1.PixelFormat ; Bmp2.Wid

下载学习了，反正受教。

有图片缩放，无bmp 转jpg功能