源码演示Delphi 如何放大和缩小图像【图片】

源码演示Delphi 如何放大和缩小图像【图片】，我们这个例子可以学习了解如何使用Delphi编程代码，放大或缩小一张图片，这里把放大和缩小图片的基数写在按钮事件中，用户每次单击按钮，就会按照一定的缩放倍数放大或缩小图像，本示例测试图片已写入程序中，编译运行后操作并演示效果，对图像的缩放部分，重点参考以下代码： 　　图片缩小操作： 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 if image1.Height>50 then 　　 begin 　　 image1.Height:=image1.Height-10; 　　 image1.Width:=image1.Width-13; 　　 end; 　　end; 　　图片放大操作： 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if image1.Height<370 then 　　 begin 　　 image1.Height:=image1.Height+10; 　　 image1.Width:=image1.Width+13; 　　 end; 　　end;

codesc.net
如何放大和缩小图像
Project1.dof
如何放大和缩小图像
如何放大和缩小图像
Project1.cfg
codesc.net