在开发多媒体软件时,经常需要编写各种图形显示特效,近日在网上找到TPicShow 2.3 for Delphi 3,4,5这一控件,据介绍能显示122种不同的图形特效.......
在开发多媒体软件时,经常需要编写各种图形显示特效,近日在网上找到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,其中有它的主要属性,方法,事件,具体情况读者可自行研究。
查看本文来源