科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件用Delphi 显示122种图形特效

用Delphi 显示122种图形特效

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

在开发多媒体软件时,经常需要编写各种图形显示特效,近日在网上找到TPicShow 2.3 for Delphi 3,4,5这一控件,据介绍能显示122种不同的图形特效.......

作者:钱 宁 来源:yesky 2007年11月1日

关键字: Delphi 显示 图形特效

  • 评论
  • 分享微博
  • 分享邮件
在开发多媒体软件时,经常需要编写各种图形显示特效,近日在网上找到TPicShow 2.3 for Delphi 3,4,5这一控件,据介绍能显示122种不同的图形特效。经下载按装后,可在Delphi件面板的Samples组中可发现一个相机状的图标。下面来看其具体应用。

  首先:在form1中放入PicShow1,Button1,Spinedit1(Spinedit1在Samples组中)控件各一个。

  其次:按F12后依次输入下列代码

  unit Unit1;

  nterface

  uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  PicShow, StdCtrls, Spin;

  type

  TForm1 = class(TForm)

  PicShow1: TPicShow;

  Button1: TButton;

  SpinEdit1: TSpinEdit;

  procedure FormCreate(Sender: TObject);

  procedure Button1Click(Sender: TObject);

  private

   { Private declarations }

  procedure ShowNextImage;

  procedure LoadNextImage;

  public

   { Public declarations }

  end;

  var

  Form1: TForm1;

  i:integer;

  implementation

  {$R *.DFM}

  procedure TForm1.ShowNextImage;

  begin

   if PicShow1.Busy then

    PicShow1.Stop

   else

    begin

     PicShow1.Execute;

     LoadNextImage;

   end;

  end;

  procedure TForm1.LoadNextImage;

   begin

    if i=1 then

     begin i:=0; PicShow1.Picture.LoadFromFile('c:\1.bmp'); end

    else

     begin i:=1; PicShow1.Picture.loadfromfile('c:\2.bmp'); end;

    end;

  procedure TForm1.FormCreate(Sender: TObject);

   begin

    i:=1;

    LoadNextImage;

   end;

  procedure TForm1.Button1Click(Sender: TObject);

   begin

    picshow1.style:=spinedit1.Value;

    showNextImage;

   end;

  end.

  最后:按F9运行,Spinedit1中的值决定图形显示的特效,范围是1~122,再按Button1则示图形。此控件可在http://www.crosswinds.net/~khojasteh/处下载。下载后解压还可发现readme,其中有它的主要属性,方法,事件,具体情况读者可自行研究。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章