Class TForm1 (unit animationtestUnit1)

Inherits from

TForm

To add AVI to a res ,just use resource work shop.... } {Copyright 1996 Microsoft, Borland International, Ian Martin Bsc The Program Shop} {Compuserve 100315,2633} {Use at own risk free(keeping up with VB4)ware} {$r test.res

Constructors



Functions

procedure Edit2Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure playClick(Sender: TObject);


procedure ShowClick(Sender: TObject);

AnimationControl1.

procedure SpeedButton1Click(Sender: TObject);


procedure StopClick(Sender: TObject);


procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);


Properties

Events

Variables

Edit1 : TEdit;


Edit2 : TEdit;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


play : TButton;


Show : TButton;


SpeedButton1 : TSpeedButton;


Stop : TButton;


UpDown1 : TUpDown;


AnimationControl1 : TAnimationControl;

Public declarations


Constructors


Functions


procedure Edit2Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure playClick(Sender: TObject);


procedure ShowClick(Sender: TObject);

AnimationControl1.loop(0,25);


procedure SpeedButton1Click(Sender: TObject);


procedure StopClick(Sender: TObject);


procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);


Properties


Events


Variables


Edit1 : TEdit;


Edit2 : TEdit;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


play : TButton;


Show : TButton;


SpeedButton1 : TSpeedButton;


Stop : TButton;


UpDown1 : TUpDown;


AnimationControl1 : TAnimationControl;

Public declarations