Class TAnimatedTrayIcon (unit AniTray) |
Inherits from
TWindowedComponent
constructor Create(AOwner: TComponent);
- Constructor / destructor overrides
TAnimatedTrayIcon
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);
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
event OnClick : TNotifyEvent
Events
event OnDblClick : TNotifyEvent
event OnEndAnimation : TNotifyEvent
event OnMouseDown : TTIMouseEvent
event OnMouseMove : TTIMouseMove
event OnMouseUp : TTIMouseEvent
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
constructor Create(AOwner: TComponent);
Constructor / destructor overrides
TAnimatedTrayIcon
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);
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
event OnClick : TNotifyEvent
Events
event OnDblClick : TNotifyEvent
event OnEndAnimation : TNotifyEvent
event OnMouseDown : TTIMouseEvent
event OnMouseMove : TTIMouseMove
event OnMouseUp : TTIMouseEvent
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