| Class TmdTray (unit mdTray) |
TmdMsgComponent
| Constructors |
Constructor Create(AOwner : TComponent);------ Standard functions -------
| Functions |
Destructor Destroy;
Procedure First;
Function GetIconHandle : HICON;
Procedure IconChanged;
Procedure Last;
Procedure Loaded;
Procedure Next;
Procedure Notification(AComponent : TComponent;
Operation : TOperation);
Procedure Prev;
Procedure SetIconHandle(Value : HICON);
Procedure CreateTrayIcon;
Procedure DoDefaultFunction;
Procedure DoShowMenu;
Procedure DoSimpelFunction;
Procedure FreeTrayIcon;
Procedure Popup(Pt : TPoint);
Procedure SetName(const NewName: TComponentName);
Procedure UpdateTrayIcon;
Procedure WMTrayMessage(Var TrayMsg : TWMTrayMessage);
Function GetActive : Boolean;
Function GetTip : TTipString;
Procedure SetActive(Value : Boolean);
Procedure SetIcon(Value : TIcon);
Procedure SetIconIndex(Value : Integer);
Procedure SetIconResourceNames(Value : TStrings);
Procedure SetPopupMenu(Value : TPopupMenu);
Procedure SetTip(Value : TTipString);| Properties |
property Active : Boolean
property DefaultFunction : TNotifyEvent
property Icon : TIcon
property IconIndex : Integer
property IconResources : TStrings
property PopupMenu : TPopupMenu
property ShowMenu : TNotifyEvent
property SimpelFunction : TNotifyEvent
property Tip : TTipString| Events |
| Variables |
FActive : Boolean;
FDefaultFunction : TNotifyEvent;
FIcon : TIcon;
FIconIndex : Integer;
FIconResourceNames : TStrings;
FPopupMenu : TPopupMenu;
FShowMenu : TNotifyEvent;
FSimpelFunction : TNotifyEvent;
FTipChanged : Boolean;
FTrayData : TNotifyIconData;| Constructors |
Constructor Create(AOwner : TComponent);Public declarations
------ Standard functions -------
| Functions |
Destructor Destroy;Use the project icon as default
Procedure First;Only update if there is something to update
Function GetIconHandle : HICON;------ Public functions ------ "Internal" function to get the handle of the icon which should be used. The Icon property have first priority, and if that one have Handle which is zero, then load one from the resource.
Procedure IconChanged;
Procedure Last;
Procedure Loaded;
Procedure Next;
Procedure Notification(AComponent : TComponent;
Operation : TOperation);
Procedure Prev;
Procedure SetIconHandle(Value : HICON);
Procedure CreateTrayIcon;------ Tray Icon functions ------
Procedure DoDefaultFunction;
Procedure DoShowMenu;------ Event functions ------
Procedure DoSimpelFunction;Get the position to popup at
Procedure FreeTrayIcon;Only create the icon if there is set a icon
Procedure Popup(Pt : TPoint);So we are notified if the popup menu is released
Procedure SetName(const NewName: TComponentName);Protected declarations
Procedure UpdateTrayIcon;
Procedure WMTrayMessage(Var TrayMsg : TWMTrayMessage);
Function GetActive : Boolean;
Function GetTip : TTipString;Store the tip directly in the data structure
Procedure SetActive(Value : Boolean);------ Property functions ------
Procedure SetIcon(Value : TIcon);If the component is edited in the Delphi IDE return the wanted value, and not the real state
Procedure SetIconIndex(Value : Integer);
Procedure SetIconResourceNames(Value : TStrings);
Procedure SetPopupMenu(Value : TPopupMenu);
Procedure SetTip(Value : TTipString);| Properties |
property Active : BooleanProperies
property DefaultFunction : TNotifyEvent
property Icon : TIcon
property IconIndex : Integer
property IconResources : TStrings
property PopupMenu : TPopupMenu
property ShowMenu : TNotifyEventEvents
property SimpelFunction : TNotifyEvent
property Tip : TTipString| Events |
| Variables |
FActive : Boolean;Private declarations
FDefaultFunction : TNotifyEvent;
FIcon : TIcon;
FIconIndex : Integer;
FIconResourceNames : TStrings;
FPopupMenu : TPopupMenu;
FShowMenu : TNotifyEvent;
FSimpelFunction : TNotifyEvent;
FTipChanged : Boolean;
FTrayData : TNotifyIconData;