Class TOnmoveLabel (unit MovingL)

Inherits from

TLabel

This is freeware if eny one likes this code plese let me now and if changes are made send it to me. From Dolf van den Berg South-Africa PS : This is my first Component EMail Edusof@Icon.co.za

Constructors



Functions

Procedure SetOffMoveFontColor(Value : Tcolor);


Procedure SetOnMoveFontColor(Value : Tcolor);


Procedure WMLButtonDown(var msg: TWMLButtonDown);


Procedure WMLButtonUp(var msg: TWMLButtonUp);


Procedure WMMouseMove(var msg: TWMMouseMove);

Protected declarations

Properties

property Font :

Public declarations

property OffMoveColor : TColor


Events

event OnMoveColor : TColor


Variables

FDown : Boolean;


FEnabled : Boolean;


MouseIn : Boolean;


OffMoveFontColor : TColor;


OnMoveFontColor : TColor;


Pushed : Boolean;



Constructors


Functions


Procedure SetOffMoveFontColor(Value : Tcolor);


Procedure SetOnMoveFontColor(Value : Tcolor);


Procedure WMLButtonDown(var msg: TWMLButtonDown);


Procedure WMLButtonUp(var msg: TWMLButtonUp);


Procedure WMMouseMove(var msg: TWMMouseMove);

Protected declarations


Properties


property Font :

Public declarations


property OffMoveColor : TColor


Events


event OnMoveColor : TColor


Variables


FDown : Boolean;


FEnabled : Boolean;


MouseIn : Boolean;


OffMoveFontColor : TColor;


OnMoveFontColor : TColor;


Pushed : Boolean;