| Class TDRLabel (unit DrLabel) |
TLabel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Paint;
procedure FTimerOnTimer(sender:TObject);
procedure SetBlink(Value: TDRBlink);
procedure SetBorder(Value: TDRBorder);
procedure SetCtl3D(Value: boolean);
procedure SetDeep(Value: byte);
procedure SetHiColor(value: TColor);
procedure SetInterval(Value: integer);
procedure SetLoColor(value: TColor);
procedure SetShadowColor(Value: TColor);| Properties |
property Blink : TDRBlink
property BlinkInterval : integer
property Border : TDRBorder
property Ctl3D : boolean
property Deep : byte
property HiColor : TColor
property LoColor : TColor
property ShadowColor : TColor| Events |
| Variables |
FBlink : TDRBlink;
FBorder : TDRBorder;
FCtl3D : boolean;
FDeep : byte;
FFontColor : TColor;
FHiColor : TColor;
FInterval : integer;
FLoColor : TColor;
FShadowColor : TColor;
FTimer : TTimer;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Paint;
procedure FTimerOnTimer(sender:TObject);Draw the text in original position
procedure SetBlink(Value: TDRBlink);
procedure SetBorder(Value: TDRBorder);
procedure SetCtl3D(Value: boolean);
procedure SetDeep(Value: byte);
procedure SetHiColor(value: TColor);
procedure SetInterval(Value: integer);
procedure SetLoColor(value: TColor);
procedure SetShadowColor(Value: TColor);| Properties |
property Blink : TDRBlink
property BlinkInterval : integerspeed of blinking
property Border : TDRBorder
property Ctl3D : boolean
property Deep : byte
property HiColor : TColorHi Color, when "Blink" is blHiLo
property LoColor : TColorLo Color, when "Blink" is blHiLo
property ShadowColor : TColor| Events |
| Variables |
FBlink : TDRBlink;Blink interval in miliseconds
FBorder : TDRBorder;Shadow deep
FCtl3D : boolean;save old font color
FDeep : byte;use 3D effects when true
FFontColor : TColor;used when "Blink" is blHiLo
FHiColor : TColor;
FInterval : integer;
FLoColor : TColor;used when "Blink" is blHiLo
FShadowColor : TColor;
FTimer : TTimer;