Delphi编程实现图形显示特效

减小字体 增大字体 作者:佚名  来源:不详  发布时间:2010-10-31 21:01:27

本文将探讨如何在Delphi编程中实现移动、交错、瀑布状、百叶窗和积木堆叠等各种图形特效显示效果。
基本原理
在Delphi中,实现图像的显示是非常简单的,我们只要在Form中定义一个TImage组件,设置其picture属性,然后选择任何有效的.ICO、.BMP、.EMF或.WMF文件,进行载入,所选文件就会显示在TImage组件中。但这只是直接将图形显示在窗体中,毫无技巧可言。为了使图形显示具有特殊效果,我们可以按下列步骤实现:
1.定义一个TImage组件,把要显示的图形先装入到TImage组件中,作为图形缓存;
2.创建一新的位图对象,其尺寸跟TImage组件中的图形一样;
3.利用画布(Canvas)的CopyRect功能(将一个画布的矩形区域拷贝到另一个画布的矩形区域),使用技巧,动态形成位图文件内容,然后在窗体中显示位图。
实现方法
首先在窗体上定义一个Image控件Image1,载入一幅图像(注意将其AutoSize设为True,Visible设为False),再定义6个按钮控件,分别设置Caption为“推拉”、“垂直交错”、“水平交错”、“瀑布”、“百叶窗”、“积木”,图形特效的编程原理和按钮的Click程序分别如下。

1.推拉效果
将要显示的图形由上、下、左、右方向拉进屏幕内显示,同时将屏幕上原来的旧图覆盖掉,此种效果可分为四种:上拉、下拉、左拉和右拉,但原理都差不多,笔者程序以上拉效果为例。
原理:
首先将放在缓存中图形的第一条水平线,搬移至要显示的位图的最后一条,接着再将缓存中图形的前两条水平线,按顺序搬移至要显示位图的最后两条水平线,然后搬移前三条、前四条……直到全部图形数据搬完为止。在搬移的过程中即可看到显示的位图由下而上浮起,而达到上拉的效果。
程序算法如下:
procedure TForm1.Button1Click(Sender: TObject);
var
  newbmp: TBitmap;
  i, bmpheight, bmpwidth: integer;
begin
  newbmp := TBitmap.Create;
  newbmp.Width := image1.Width;
  newbmp.Height := image1.Height;
  bmpheight := image1.Height;
  bmpwidth := image1.Width;
  for i := 0 to bmpheight do
  begin
    newbmp.Canvas.CopyRect(Rect(0, bmpheight - i, bmpwidth, bmpheight),
      image1.Canvas, Rect(0, 0, bmpwidth, i));
    form1.Canvas.Draw(120, 100, newbmp);
  end;
  newbmp.free;
end;

2.垂直交错效果
原理:
将要显示的图形分成两部分,奇数条扫描线由上往下搬移,偶数条扫描线的部分则由下往上搬移,而且两者同时进行。从屏幕上便可看到分别由上下两端出现的较淡图形向屏幕中央移动,直到完全清楚为止。
程序算法如下:
procedure TForm1.Button4Click(Sender: TObject);
var
  newbmp: TBitmap;
  i, j, bmpheight, bmpwidth: integer;
begin
  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, bmpwidth,
          bmpheight - j + 1), image1.Canvas,
        Rect(0, i - j, bmpwidth, i - j + 1));
      j := j - 1;
    end;
    form1.Canvas.Draw(120, 100, newbmp);
    i := i + 1;
  end;
  newbmp.free;
end;

3.水平交错效果
原理:
同垂直交错效果原理一样,只是将分成两组后的图形分别由左右两端移进屏幕。
程序算法如下:
procedure TForm1.Button5Click(Sender: TObject);
var
  newbmp: TBitmap;
  i, j, bmpheight, bmpwidth: integer;
begin
  newbmp := TBitmap.Create;
  newbmp.Width := image1.Width;
  newbmp.Height := image1.Height;
  bmpheight := image1.Height;
  bmpwidth := image1.Width;
  i := 0;
  while i < = bmpwidth do
  begin
    j := i;
    while j  0 do
    begin
      newbmp.Canvas.CopyRect(Rect(j - 1, 0, j, bmpheight), image1.Canvas,
        Rect(bmpwidth - i + j - 1, 0, bmpwidth - i + j, bmpheight));
      newbmp.Canvas.CopyRect(Rect(bmpwidth - j, 0, bmpwidth - j + 1,
          bmpheight), image1.Canvas, Rect(i - j, 0, i - j + 1, bmpheight));
      j := j - 2;
    end;
    form1.Canvas.Draw(120, 100, newbmp);
    i := i + 2;
  end;
  newbmp.free;
end;

[1] [2]  下一页

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B