Class TTaskIcon (unit RGTaskIcon)

Inherits from

TWinControl

Constructors


constructor Create(aOwner: TComponent);



Functions

destructor Destroy;


function ChangeIcon(Sender: TObject) : boolean;

try if fState=tiAnimated then KillTimer(Handle,fTimerID); except on EInvalidOperation do ; end;

function KillIcon(Sender: TObject) : boolean;


procedure LoadTaskIcon;


function MakeIcon(Sender: TObject) : boolean;


procedure SetActive(Value: boolean);


procedure SetDisabledIcon(Value: TIcon);


procedure SetHint(Value: String64);


procedure SetIcon(Value: TIcon);


procedure SetIconList(Value: TStrings);


procedure SetInterval(Value: UINT);


procedure SetShowHint(Value: boolean);


procedure SetState(Value: TStateTaskIcon);


procedure SetTaskIconID(Value: UINT);


procedure WMTASKICON(var msg: TMessage);


procedure WMTIMER(var msg: TMessage);


Properties

property Active : boolean


property DisabledIcon : TIcon


property Hint : string64


property Icon : TIcon


property IconList : TStrings


property Interval : UINT


property ShowHint : boolean


property State : TStateTaskIcon


property TaskIconID : UINT


property WhereIcons : TWhereTaskIcon


Events

event OnAnimate : TNotifyEvent


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnRightClick : TMouseEvent


Variables

fActive : boolean;


fAniIcon : TIcon;


fDisabledIcon : TIcon;


fHint : string64;


fIcon : TIcon;


fIconList : TStrings;


fIconNum : integer;


fInterval : UINT;


fOnAnimate : TNotifyEvent;


fOnClick : TNotifyEvent;


fOnDblClick : TNotifyEvent;


fOnRightClick : TMouseEvent;


fShowHint : boolean;


fState : TStateTaskIcon;


fTaskIconID : UINT;


fTimerID : UINT;


fVisible : boolean;


fWhereIcons : TWhereTaskIcon;


p : PChar;


tnid : TNOTIFYICONDATA;

Field variables


Constructors


constructor Create(aOwner: TComponent);


Functions


destructor Destroy;


function ChangeIcon(Sender: TObject) : boolean;

try if fState=tiAnimated then KillTimer(Handle,fTimerID); except on EInvalidOperation do ; end;


function KillIcon(Sender: TObject) : boolean;


procedure LoadTaskIcon;


function MakeIcon(Sender: TObject) : boolean;


procedure SetActive(Value: boolean);


procedure SetDisabledIcon(Value: TIcon);


procedure SetHint(Value: String64);


procedure SetIcon(Value: TIcon);


procedure SetIconList(Value: TStrings);


procedure SetInterval(Value: UINT);


procedure SetShowHint(Value: boolean);


procedure SetState(Value: TStateTaskIcon);


procedure SetTaskIconID(Value: UINT);


procedure WMTASKICON(var msg: TMessage);


procedure WMTIMER(var msg: TMessage);


Properties


property Active : boolean


property DisabledIcon : TIcon


property Hint : string64


property Icon : TIcon


property IconList : TStrings


property Interval : UINT


property ShowHint : boolean


property State : TStateTaskIcon


property TaskIconID : UINT


property WhereIcons : TWhereTaskIcon


Events


event OnAnimate : TNotifyEvent


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnRightClick : TMouseEvent


Variables


fActive : boolean;


fAniIcon : TIcon;


fDisabledIcon : TIcon;


fHint : string64;


fIcon : TIcon;


fIconList : TStrings;


fIconNum : integer;


fInterval : UINT;


fOnAnimate : TNotifyEvent;


fOnClick : TNotifyEvent;


fOnDblClick : TNotifyEvent;


fOnRightClick : TMouseEvent;


fShowHint : boolean;


fState : TStateTaskIcon;


fTaskIconID : UINT;


fTimerID : UINT;


fVisible : boolean;


fWhereIcons : TWhereTaskIcon;


p : PChar;


tnid : TNOTIFYICONDATA;

Field variables