知识大全 Delphi中的图形显示技巧[2]

Posted 2022-07-21 图形

篇首语：精诚所加，金石为开。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中的图形显示技巧[2]相关的知识，希望对你有一定的参考价值。

Delphi中的图形显示技巧[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　垂直交错效果

　　原理将要显示的图形拆成两部分奇数条扫描线由上往下搬移偶数条扫描线的部分则由下往上搬移而且两者同时进行从屏幕上便可看到分别由上下两端出现的较淡图形向屏幕中央移动直到完全清楚为止

　　程序算法　　procedure TForm Button Click(Sender: TObject); 　　var 　　newbmp:TBitmap; 　　i j bmpheight bmpwidth:integer; 　　begin 　　newbmp:= TBitmap Create; 　　newbmp Width:=image Width; 　　newbmp Height:=image Height; 　　bmpheight:=image Height; 　　bmpwidth:=image Width; 　　i:= ; 　　while i< =bmpheight do 　　begin 　　j:=i; 　　while j > do 　　begin 　　newbmp Canvas CopyRect(Rect( j bmpwidth j) 　　image Canvas 　　Rect( bmpheight i+j bmpwidth bmpheight i+j)); 　　newbmp Canvas CopyRect(Rect 　　( bmpheight j bmpwidth bmpheight j+ ) 　　image Canvas 　　Rect( i j bmpwidth i j+ )); 　　j:=j ; 　　end; 　　form Canvas Draw( newbmp); 　　i:=i+ ; 　　end; 　　newbmp free; 　　end; 　　水平交错效果

　　原理同垂直交错效果原理一样只是将分成两组后的图形分别由左右两端移进屏幕

　　程序算法　　procedure TForm Button Click(Sender: TObject); 　　var 　　newbmp:TBitmap; 　　i j bmpheight bmpwidth:integer; 　　begin 　　newbmp:= TBitmap Create; 　　newbmp Width:=image Width; 　　newbmp Height:=image Height; 　　bmpheight:=image Height; 　　bmpwidth:=image Width; 　　i:= ; 　　while i< =bmpwidth do 　　begin 　　j:=i; 　　while j > do 　　begin 　　newbmp Canvas CopyRect(Rect(j j bmpheight) 　　image Canvas 　　Rect(bmpwidth i+j bmpwidth i+j bmpheight)); 　　newbmp Canvas CopyRect(Rect 　　(bmpwidth j bmpwidth j+ bmpheight) 　　image Canvas 　　Rect(i j i j+ bmpheight)); 　　j:=j ; 　　end; 　　form Canvas Draw( newbmp); 　　i:=i+ ; 　　end; 　　newbmp free; 　　end;

cha138/Article/program/Delphi/201311/25000