| Class TOnmoveLabel (unit MovingL) |
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);| Properties |
property Font :
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;