Class TmdTray (unit mdTray)

Inherits from

TmdMsgComponent

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.

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 : 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


Events

Variables

FActive : Boolean;

Private declarations

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 : 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


Events


Variables


FActive : Boolean;

Private declarations


FDefaultFunction : TNotifyEvent;


FIcon : TIcon;


FIconIndex : Integer;


FIconResourceNames : TStrings;


FPopupMenu : TPopupMenu;


FShowMenu : TNotifyEvent;


FSimpelFunction : TNotifyEvent;


FTipChanged : Boolean;


FTrayData : TNotifyIconData;