文件名称：源码演示Delphi 如何放大和缩小图像【图片】.rar
文件大小：33KB
文件格式：RAR
更新时间：2022-07-30 06:19:55
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.res(876B)
--------Unit1.dfm(56KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(949B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(4KB)