| Class TFnugryTrayIcon (unit FnugryTrayIcon) |
TComponent
| Constructors |
constructor Create(AOwner :TComponent);| Functions |
destructor Destroy;
procedure Change;
procedure CheckError(fCond :Boolean; MsgID :Integer);
procedure MouseLBtnDblClk;
procedure MouseLBtnDown;
procedure MouseLBtnUp;
procedure MouseMove;
procedure MouseRBtnDblClk;
procedure MouseRBtnDown;
procedure MouseRBtnUp;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure AllocateTrayIcon;
procedure evIconChange(Sender :TObject);
function GetVisible :Boolean;
procedure ReleaseTrayIcon;
procedure SetIcon(Value :TIcon);
procedure SetLeftMenu(Value :TPopupMenu);
procedure SetRightMenu(Value :TPopupMenu);
procedure SetTip(const Value :String);
procedure SetVisible(Value :Boolean);
procedure TrayWndProc(var Msg :TMessage);
procedure UpdateTrayIcon;| Properties |
property Icon : TIcon
property LeftMenu : TPopupMenu
property RightMenu : TPopupMenu
property Tip : String
property Visible : Boolean| Events |
event OnChange : TNotifyEvent
event OnMouseLBtnDblClk : TNotifyEvent
event OnMouseLBtnDown : TNotifyEvent
event OnMouseLBtnUp : TNotifyEvent
event OnMouseMove : TNotifyEvent
event OnMouseRBtnDblClk : TNotifyEvent
event OnMouseRBtnUp : TNotifyEvent
event OnRBtnDown : TNotifyEvent| Variables |
FHandle : HWND;
FIcon : TIcon;
FIconData : TNotifyIconData;
FLeftMenu : TPopupMenu;
FOnChange : TNotifyEvent;
FOnLBtnDblClk : TNotifyEvent;
FOnLBtnDown : TNotifyEvent;
FOnLBtnUp : TNotifyEvent;
FOnMouseMove : TNotifyEvent;
FOnRBtnDblClk : TNotifyEvent;
FOnRBtnDown : TNotifyEvent;
FOnRBtnUp : TNotifyEvent;
FRightMenu : TPopupMenu;
FTip : String;| Constructors |
constructor Create(AOwner :TComponent);| Functions |
destructor Destroy;
procedure Change;
procedure CheckError(fCond :Boolean; MsgID :Integer);
procedure MouseLBtnDblClk;
procedure MouseLBtnDown;
procedure MouseLBtnUp;
procedure MouseMove;
procedure MouseRBtnDblClk;
procedure MouseRBtnDown;
procedure MouseRBtnUp;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure AllocateTrayIcon;
procedure evIconChange(Sender :TObject);
function GetVisible :Boolean;
procedure ReleaseTrayIcon;
procedure SetIcon(Value :TIcon);
procedure SetLeftMenu(Value :TPopupMenu);
procedure SetRightMenu(Value :TPopupMenu);
procedure SetTip(const Value :String);
procedure SetVisible(Value :Boolean);
procedure TrayWndProc(var Msg :TMessage);
procedure UpdateTrayIcon;| Properties |
property Icon : TIcon
property LeftMenu : TPopupMenu
property RightMenu : TPopupMenu
property Tip : String
property Visible : Boolean| Events |
event OnChange : TNotifyEvent
event OnMouseLBtnDblClk : TNotifyEvent
event OnMouseLBtnDown : TNotifyEvent
event OnMouseLBtnUp : TNotifyEvent
event OnMouseMove : TNotifyEvent
event OnMouseRBtnDblClk : TNotifyEvent
event OnMouseRBtnUp : TNotifyEvent
event OnRBtnDown : TNotifyEvent| Variables |
FHandle : HWND;
FIcon : TIcon;
FIconData : TNotifyIconData;
FLeftMenu : TPopupMenu;
FOnChange : TNotifyEvent;
FOnLBtnDblClk : TNotifyEvent;
FOnLBtnDown : TNotifyEvent;
FOnLBtnUp : TNotifyEvent;
FOnMouseMove : TNotifyEvent;
FOnRBtnDblClk : TNotifyEvent;
FOnRBtnDown : TNotifyEvent;
FOnRBtnUp : TNotifyEvent;
FRightMenu : TPopupMenu;
FTip : String;