Delphi以特效方式显示图片的示例.rar

时间:2022-07-30 04:47:13
【文件属性】:

文件名称: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)

网友评论