Class TmdTray (unit mdTray) |
Inherits from
TmdMsgComponent
Constructor Create(AOwner : TComponent);
- Public declarations
------ Standard 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.
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);
property Active : Boolean
Properies
property DefaultFunction : TNotifyEvent
property Icon : TIcon
property IconIndex : Integer
property IconResources : TStrings
property PopupMenu : TPopupMenu
property ShowMenu : TNotifyEvent
Events
property SimpelFunction : TNotifyEvent
property Tip : TTipString
FActive : Boolean;
Private declarations
FDefaultFunction : TNotifyEvent;
FIcon : TIcon;
FIconIndex : Integer;
FIconResourceNames : TStrings;
FPopupMenu : TPopupMenu;
FShowMenu : TNotifyEvent;
FSimpelFunction : TNotifyEvent;
FTipChanged : Boolean;
FTrayData : TNotifyIconData;
Constructor Create(AOwner : TComponent);
Public declarations
------ Standard 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);
property Active : Boolean
Properies
property DefaultFunction : TNotifyEvent
property Icon : TIcon
property IconIndex : Integer
property IconResources : TStrings
property PopupMenu : TPopupMenu
property ShowMenu : TNotifyEvent
Events
property SimpelFunction : TNotifyEvent
property Tip : TTipString
FActive : Boolean;
Private declarations
FDefaultFunction : TNotifyEvent;
FIcon : TIcon;
FIconIndex : Integer;
FIconResourceNames : TStrings;
FPopupMenu : TPopupMenu;
FShowMenu : TNotifyEvent;
FSimpelFunction : TNotifyEvent;
FTipChanged : Boolean;
FTrayData : TNotifyIconData;