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
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);
Edit1 : TEdit;
Edit2 : TEdit;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Panel2 : TPanel;
play : TButton;
Show : TButton;
SpeedButton1 : TSpeedButton;
Stop : TButton;
UpDown1 : TUpDown;
AnimationControl1 : TAnimationControl;
Public declarations
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);
Edit1 : TEdit;
Edit2 : TEdit;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Panel2 : TPanel;
play : TButton;
Show : TButton;
SpeedButton1 : TSpeedButton;
Stop : TButton;
UpDown1 : TUpDown;
AnimationControl1 : TAnimationControl;
Public declarations