| Class TAnimationThread (unit AniIcon) |
TThread
| Constructors |
Constructor Initialize(aAniIcon : TComponent);| Functions |
Procedure Execute;
Procedure PaintFrame;
Procedure NextFrame;| 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;