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

Posted 2022-07-21 图形

篇首语：苦心人天不负，卧薪尝胆，三千越甲可吞吴。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中的图形显示技巧[3]相关的知识，希望对你有一定的参考价值。

Delphi中的图形显示技巧[3] 以下文字资料是由(全榜网网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; 　　for i:=bmpheight downto do 　　for j:= to i do 　　begin 　　newbmp Canvas CopyRect(Rect( j bmpwidth j) 　　image Canvas 　　Rect( i bmpwidth i)); 　　form Canvas Draw( newbmp); 　　end; 　　newbmp free; 　　end;

　　百叶窗效果

　　原理将放在暂存图形的数据分成若干组然后依次从第一组到最后一组搬移第一次每组各搬移第一条扫描线到可视位图的相应位置第二次搬移第二条扫描线接着搬移第三条第四条扫描线

　　程序算法　　procedure TForm Button Click(Sender: TObject); 　　var 　　newbmp:TBitmap; 　　i j bmpheight bmpwidth:integer; 　　xgroup xcount:integer; 　　begin 　　newbmp:= TBitmap Create; 　　newbmp Width:=image Width; 　　newbmp Height:=image Height; 　　bmpheight:=image Height; 　　bmpwidth:=image Width; 　　xgroup:= ; 　　xcount:=bmpheight div xgroup; 　　for i:= to xcount do 　　for j:= to xgroup do 　　begin 　　newbmp Canvas CopyRect(Rect 　　( xcount*j+i bmpwidth xcount*j+i) 　　image Canvas 　　Rect( xcount*j+i bmpwidth xcount*j+i)); 　　form Canvas Draw( newbmp); 　　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:=bmpheight; 　　while i> do 　　begin 　　for j:= to i do 　　begin 　　newbmp Canvas CopyRect(Rect( j bmpwidth j) 　　image Canvas 　　Rect( i bmpwidth i)); 　　form Canvas Draw( newbmp); 　　end; 　　i:=i ; 　　end; 　　newbmp free; 　　end;

　　结束语　　上述图形显示效果均已上机通过软件环境Delphi 硬件环境Pentium M兼容机使用效果很好

cha138/Article/program/Delphi/201311/25001