| Class TForm1 (unit animationtestUnit1) |
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);
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;| 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