文件名称:Delphi以特效方式显示图片的示例.rar
文件大小:6KB
文件格式:RAR
更新时间:2022-07-30 04:47:13
Delphi源码-图形处理
Delphi以特效方式显示图片的示例,适用的图像对象为BMP,在显示图片的时候,不是出现,而是有动画效果的渐现,不过不是淡出淡入渐现,这种效果不好表述,请下载源码自己编译测试吧。部分代码片段: Bitmap:TBitmap; MidX:Integer;//中间变量,当前步骤所拷贝位图的宽 RatioX:Real;//每步位图宽度增加量 I:Integer; Rect1,Rect2:TRect;//源、目标矩形区域 Bitmap:=TBitmap.Create; Bitmap.LoadFromFile('示例图片.bmp');//装入位图文件 RatioX:=Bitmap.Width/Step; for I:=0 to Step do begin MidX:=Round(RatioX*I); with Rect1 do //设置复制的目标区域
【文件预览】:
codesc.net
----PMobilePicture()
--------MobilePicture.ddp(51B)
--------PMobilePicture.cfg(406B)
--------MobilePicture.dfm(701B)
--------MobilePicture.pas(1KB)
--------MobilePicture.dcu(5KB)
--------PMobilePicture.res(876B)
--------PMobilePicture.dpr(213B)
--------PMobilePicture.dof(2KB)