Class TAnimatedTrayIcon (unit AniTray)

Inherits from

TWindowedComponent

Constructors


constructor Create(AOwner: TComponent);

Constructor / destructor overrides

TAnimatedTrayIcon



Functions

destructor Destroy;


procedure HideAppIcon;

Methods

Public methods


procedure ShowAppIcon;


procedure AnimStopped(Sender: TObject);


procedure DoClick;

event dispatch routines

Event dispatch routines


procedure DoDblClick;


procedure DoMouseDown(Button: TMouseButton; Shift: TShiftState);


procedure DoMouseMove;


procedure DoMouseUp(Button: TMouseButton);


function GetActiveIcon: TIcon;

LR_LOADREALSIZE);

function GetControlKeys(const Shift: TShiftState): TShiftState;


procedure HandleTrayMessage(const Msg: Longint);


procedure IconChange(Sender: TObject);

Internal protected methods

procedure Loaded;


function LoadWorldIcon: THandle;


procedure NewFrame(Sender: TObject; Frame: Integer);


procedure Notification(AComponent: TComponent; AOperation: TOperation);


procedure ShellNotifyIcon(Msg: DWord; Flags: UInt; Icon: TIcon);

Internal routines

procedure WndProc(var Msg: TMessage);

Overrides

procedure SetActive(Value: Boolean);

Property setting routines

Property get/set routines


procedure SetAnimatedIcons(Value: TAnimatedIcons);


procedure SetHint(Value: String);


procedure SetIcon(Value: TIcon);


procedure SetPopupMenu(Value: TPopupMenu);


procedure SetRepeatCount(Value: Integer);


procedure SetShowHint(Value: Boolean);


procedure SetStyle(Value: TTrayIconStyle);


Properties

property About : TAboutInfo

Properties

property Active : Boolean


property Animation : TAnimatedIcons


property Hint : String


property Icon : TIcon


property PopupMenu : TPopupMenu


property RepeatCount : Integer


property ShowHint : Boolean


property Style : TTrayIconStyle


Events

event OnClick : TNotifyEvent

Events

event OnDblClick : TNotifyEvent


event OnEndAnimation : TNotifyEvent


event OnMouseDown : TTIMouseEvent


event OnMouseMove : TTIMouseMove


event OnMouseUp : TTIMouseEvent


Variables

FAboutInfo : TAboutInfo;

property variables

FActive : Boolean;


FCallBackMsg : Word;


FHint : String;


FIcon : TIcon;


FIcons : TAnimatedIcons;


FInvAppStyle : Integer;


FOnClick : TNotifyEvent;

event variables

FOnDblClick : TNotifyEvent;


FOnEndAnimation : TNotifyEvent;


FOnMouseDown : TTIMouseEvent;


FOnMouseMove : TTIMouseMove;


FOnMouseUp : TTIMouseEvent;


FPopupMenu : TPopupMenu;


FPreventClick : Boolean;


FRepeatCount : Integer;


FShowHint : Boolean;


FStyle : TTrayIconStyle;


FVisAppStyle : Integer;

internal variables


Constructors


constructor Create(AOwner: TComponent);

Constructor / destructor overrides

TAnimatedTrayIcon


Functions


destructor Destroy;


procedure HideAppIcon;

Methods

Public methods


procedure ShowAppIcon;


procedure AnimStopped(Sender: TObject);


procedure DoClick;

event dispatch routines

Event dispatch routines


procedure DoDblClick;


procedure DoMouseDown(Button: TMouseButton; Shift: TShiftState);


procedure DoMouseMove;


procedure DoMouseUp(Button: TMouseButton);


function GetActiveIcon: TIcon;

LR_LOADREALSIZE);


function GetControlKeys(const Shift: TShiftState): TShiftState;


procedure HandleTrayMessage(const Msg: Longint);


procedure IconChange(Sender: TObject);

Internal protected methods


procedure Loaded;


function LoadWorldIcon: THandle;


procedure NewFrame(Sender: TObject; Frame: Integer);


procedure Notification(AComponent: TComponent; AOperation: TOperation);


procedure ShellNotifyIcon(Msg: DWord; Flags: UInt; Icon: TIcon);

Internal routines


procedure WndProc(var Msg: TMessage);

Overrides


procedure SetActive(Value: Boolean);

Property setting routines

Property get/set routines


procedure SetAnimatedIcons(Value: TAnimatedIcons);


procedure SetHint(Value: String);


procedure SetIcon(Value: TIcon);


procedure SetPopupMenu(Value: TPopupMenu);


procedure SetRepeatCount(Value: Integer);


procedure SetShowHint(Value: Boolean);


procedure SetStyle(Value: TTrayIconStyle);


Properties


property About : TAboutInfo

Properties


property Active : Boolean


property Animation : TAnimatedIcons


property Hint : String


property Icon : TIcon


property PopupMenu : TPopupMenu


property RepeatCount : Integer


property ShowHint : Boolean


property Style : TTrayIconStyle


Events


event OnClick : TNotifyEvent

Events


event OnDblClick : TNotifyEvent


event OnEndAnimation : TNotifyEvent


event OnMouseDown : TTIMouseEvent


event OnMouseMove : TTIMouseMove


event OnMouseUp : TTIMouseEvent


Variables


FAboutInfo : TAboutInfo;

property variables


FActive : Boolean;


FCallBackMsg : Word;


FHint : String;


FIcon : TIcon;


FIcons : TAnimatedIcons;


FInvAppStyle : Integer;


FOnClick : TNotifyEvent;

event variables


FOnDblClick : TNotifyEvent;


FOnEndAnimation : TNotifyEvent;


FOnMouseDown : TTIMouseEvent;


FOnMouseMove : TTIMouseMove;


FOnMouseUp : TTIMouseEvent;


FPopupMenu : TPopupMenu;


FPreventClick : Boolean;


FRepeatCount : Integer;


FShowHint : Boolean;


FStyle : TTrayIconStyle;


FVisAppStyle : Integer;

internal variables