Class TURLLabel (unit FPURLLabel)

Inherits from

TCustomLabel

Constructors


constructor Create( AOwner : TComponent);

Public declarations


Functions

procedure OpenObject(sObjectPath : PChar);


procedure Click;

Protected declarations

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function GetFont: TFont;


procedure SetAllowDown(Value: Boolean);


procedure SetColPre(Value: TColor);


procedure SetColStd(Value: TColor);


procedure SetEffect98(Value: Boolean);


procedure SetFont(Value: TFont);


procedure SetLabelType(Value: TLabelType);


procedure URLMouseEnter(var Message: TMessage);


procedure URLMouseLeave(var Message: TMessage);


Properties

property About : TAbout

Published declarations

property Align :


property Alignment :


property AllowDown : Boolean


property AutoSize :


property Caption :


property Effect98 : Boolean


property Font : TFont


property Hint :


property LabelType : TLabelType


property ParentFont :


property ShowHint :


property Transparent :


property URLColPre : TColor


property URLColStd : TColor


property WordWrap :


Events

event OnClick :


Variables

FAbout : TAbout;

Private declarations

FAllowDown : Boolean;


FColPre : TColor;


FColStd : TColor;


FEffect98 : Boolean;


FLabelType : TLabelType;



Constructors


constructor Create( AOwner : TComponent);

Public declarations


Functions


procedure OpenObject(sObjectPath : PChar);


procedure Click;

Protected declarations


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function GetFont: TFont;


procedure SetAllowDown(Value: Boolean);


procedure SetColPre(Value: TColor);


procedure SetColStd(Value: TColor);


procedure SetEffect98(Value: Boolean);


procedure SetFont(Value: TFont);


procedure SetLabelType(Value: TLabelType);


procedure URLMouseEnter(var Message: TMessage);


procedure URLMouseLeave(var Message: TMessage);


Properties


property About : TAbout

Published declarations


property Align :


property Alignment :


property AllowDown : Boolean


property AutoSize :


property Caption :


property Effect98 : Boolean


property Font : TFont


property Hint :


property LabelType : TLabelType


property ParentFont :


property ShowHint :


property Transparent :


property URLColPre : TColor


property URLColStd : TColor


property WordWrap :


Events


event OnClick :


Variables


FAbout : TAbout;

Private declarations


FAllowDown : Boolean;


FColPre : TColor;


FColStd : TColor;


FEffect98 : Boolean;


FLabelType : TLabelType;