Class TAnim (unit Uscreen)

Inherits from

TObject

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 : TNotifyEvent

if 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;



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 : TNotifyEvent

if 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;