Class TTaskIcon (unit TaskIcon)

Inherits from

TCustomControl

Change this if used by something else!

Constructors


constructor create(aOwner : TComponent);



Functions

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);


Properties

property Enabled : boolean


property Icon : TIcon


property TaskIconID : UINT


Events

event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnRightClick : TMouseEvent


Variables

fActive : boolean;


fIcon : TIcon;


fOnClick : TNotifyEvent;


fOnDblClick : TNotifyEvent;


fOnRightClick : TMouseEvent;


FPicture : TBitmap;

Field variables

fTaskIconID : UINT;


fVisible : boolean;


tnid : TNOTIFYICONDATA;



Constructors


constructor create(aOwner : TComponent);


Functions


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);


Properties


property Enabled : boolean


property Icon : TIcon


property TaskIconID : UINT


Events


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnRightClick : TMouseEvent


Variables


fActive : boolean;


fIcon : TIcon;


fOnClick : TNotifyEvent;


fOnDblClick : TNotifyEvent;


fOnRightClick : TMouseEvent;


FPicture : TBitmap;

Field variables


fTaskIconID : UINT;


fVisible : boolean;


tnid : TNOTIFYICONDATA;