| Class TAnimatedTrayIcon (unit AniTray) |
| Constructors |
constructor Create(AOwner: TComponent);TAnimatedTrayIcon
| Functions |
destructor Destroy;
procedure HideAppIcon;Public methods
procedure ShowAppIcon;
procedure AnimStopped(Sender: TObject);
procedure DoClick;Event dispatch routines
procedure DoDblClick;
procedure DoMouseDown(Button: TMouseButton; Shift: TShiftState);
procedure DoMouseMove;
procedure DoMouseUp(Button: TMouseButton);
function GetActiveIcon: TIcon;
function GetControlKeys(const Shift: TShiftState): TShiftState;
procedure HandleTrayMessage(const Msg: Longint);
procedure IconChange(Sender: TObject);
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);
procedure WndProc(var Msg: TMessage);
procedure SetActive(Value: Boolean);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
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
event OnDblClick : TNotifyEvent
event OnEndAnimation : TNotifyEvent
event OnMouseDown : TTIMouseEvent
event OnMouseMove : TTIMouseMove
event OnMouseUp : TTIMouseEvent| Variables |
FAboutInfo : TAboutInfo;
FActive : Boolean;
FCallBackMsg : Word;
FHint : String;
FIcon : TIcon;
FIcons : TAnimatedIcons;
FInvAppStyle : Integer;
FOnClick : TNotifyEvent;
FOnDblClick : TNotifyEvent;
FOnEndAnimation : TNotifyEvent;
FOnMouseDown : TTIMouseEvent;
FOnMouseMove : TTIMouseMove;
FOnMouseUp : TTIMouseEvent;
FPopupMenu : TPopupMenu;
FPreventClick : Boolean;
FRepeatCount : Integer;
FShowHint : Boolean;
FStyle : TTrayIconStyle;
FVisAppStyle : Integer;| 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 : TAboutInfoProperties
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 : TNotifyEventEvents
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