Class TTaskIcon (unit TaskIcon) |
Inherits from
TCustomControl
Change this if used by something else!
constructor create(aOwner : TComponent);
destructor destroy;
The control should be visible at design time only
procedure OnSizeChanged(var Message : TWMSize);
This procedure is called at design time if the designer is
trying to resize the control on the form.
procedure Paint;
Show the bitmap at design time
function ChangeIcon(Sender : TObject) : boolean;
function KillIcon(sender : TObject) : boolean;
function MakeIcon(sender : TObject) : boolean;
procedure SetActive(Value : boolean);
procedure SetIcon(Value : TIcon);
procedure SetTaskIconID(Value : UINT);
procedure WMTASKICON(var msg : TMessage);
property Enabled : boolean
property Icon : TIcon
property TaskIconID : UINT
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnRightClick : TMouseEvent
fActive : boolean;
fIcon : TIcon;
fOnClick : TNotifyEvent;
fOnDblClick : TNotifyEvent;
fOnRightClick : TMouseEvent;
FPicture : TBitmap;
Field variables
fTaskIconID : UINT;
fVisible : boolean;
tnid : TNOTIFYICONDATA;
constructor create(aOwner : TComponent);
destructor destroy;
The control should be visible at design time only
procedure OnSizeChanged(var Message : TWMSize);
This procedure is called at design time if the designer is
trying to resize the control on the form. It will force the
control to be the size of the bitmap
procedure Paint;
Show the bitmap at design time
function ChangeIcon(Sender : TObject) : boolean;
function KillIcon(sender : TObject) : boolean;
function MakeIcon(sender : TObject) : boolean;
procedure SetActive(Value : boolean);
procedure SetIcon(Value : TIcon);
procedure SetTaskIconID(Value : UINT);
procedure WMTASKICON(var msg : TMessage);
property Enabled : boolean
property Icon : TIcon
property TaskIconID : UINT
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnRightClick : TMouseEvent
fActive : boolean;
fIcon : TIcon;
fOnClick : TNotifyEvent;
fOnDblClick : TNotifyEvent;
fOnRightClick : TMouseEvent;
FPicture : TBitmap;
Field variables
fTaskIconID : UINT;
fVisible : boolean;
tnid : TNOTIFYICONDATA;