Class TAnimationThread (unit AniIcon)

Inherits from

TThread

Constructors


Constructor Initialize(aAniIcon : TComponent);



Functions

Procedure Execute;


Procedure PaintFrame;


Procedure NextFrame;

In Future for TrayIcons??? Data.

Properties

property AniFormIcon : TAnimatedFormIcon


property AniIcon : TAnimatedIcon


property FramesDone : Integer


property MinFrames : Integer


property ShallSuspend : Boolean


Events

Variables

fActFrame : Integer;


fAniFormIcon : TAnimatedFormIcon;


fAniIcon : TAnimatedIcon;


fFramesDone : Integer;


fMinFrames : Integer;


fShallSuspend : Boolean;



Constructors


Constructor Initialize(aAniIcon : TComponent);


Functions


Procedure Execute;


Procedure PaintFrame;


Procedure NextFrame;

In Future for TrayIcons??? Data.cbSize:=SizeOf(Data); Data.wnd:=TForm(fAniFormIcon.Owner).Handle; Data.hIcon:=TForm(fAniFormIcon.Owner).Icon.Handle; Data.uFlags:=NIF_Icon; Data.uCallbackMessage:=0; Shell_NotifyIcon(NIM_Add,@Data); Shell_NotifyIcon(NIM_modify,@Data)


Properties


property AniFormIcon : TAnimatedFormIcon


property AniIcon : TAnimatedIcon


property FramesDone : Integer


property MinFrames : Integer


property ShallSuspend : Boolean


Events


Variables


fActFrame : Integer;


fAniFormIcon : TAnimatedFormIcon;


fAniIcon : TAnimatedIcon;


fFramesDone : Integer;


fMinFrames : Integer;


fShallSuspend : Boolean;