文件名称：Delphi 垂直交错显示效果.rar
文件大小：1.44MB
文件格式：RAR
更新时间：2022-07-30 06:20:04
Delphi源码-界面编程
图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码： newbmp:= TBitmap.Create; newbmp.Width:=image1.Width; newbmp.Height:=image1.Height; bmpheight:=image1.Height; bmpwidth:=image1.Width; i:=0; while i<=bmpheight do begin j:=i; while j >0 do begin newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i j-1,bmpwidth,bmpheight-i j)); newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j 1)); j:=j-2; Application.ProcessMessages; end; form1.Canvas.Draw(0,0,newbmp); i:=i 2; end; newbmp.free;
【文件预览】：
codesc.net
----垂直交错()
--------Project1.res(876B)
--------Unit1.dfm(4.47MB)
--------Unit1.ddp(51B)
--------Project1.cfg(372B)
--------Image()
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(5KB)