Class TFnugryTrayIcon (unit FnugryTrayIcon)

Inherits from

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;