| Class TAnim (unit Uscreen) |
TObject
| Constructors |
constructor create;| Functions |
procedure AddScreen(Ascreen:TScreen;hdc:Thandle);
destructor destroy;
procedure RunAnimation(hdc:Thandle);
procedure FirstActive(hdc:Thandle);
procedure NextActive(hdc:Thandle);
function GetKeyPressed:boolean;| Properties |
property Active : integer
property Autorepeat : boolean
property KeyPressed : boolean
property List : Tlist| Events |
event OnScreenEnds : TNotifyEvent| Variables |
FActive : integer;
FAutorepeat : boolean;
FFirstOpen : boolean;
FKeyPressed : boolean;
FList : Tlist;
FOnScreenEnds : TNotifyEvent;| Constructors |
constructor create;TAnim
| Functions |
procedure AddScreen(Ascreen:TScreen;hdc:Thandle);
destructor destroy;
procedure RunAnimation(hdc:Thandle);
procedure FirstActive(hdc:Thandle);
procedure NextActive(hdc:Thandle);
function GetKeyPressed:boolean;| Properties |
property Active : integer
property Autorepeat : boolean
property KeyPressed : boolean
property List : Tlist| Events |
event OnScreenEnds : TNotifyEventif true animation will start again with screen otherwise 0 it will stay with the last screen forever
| Variables |
FActive : integer;A list of all screens
FAutorepeat : boolean;
FFirstOpen : boolean;
FKeyPressed : boolean;
FList : Tlist;
FOnScreenEnds : TNotifyEvent;