Class TmdURLLabel (unit mdURLLabel)

Inherits from

TCustomLabel

Constructors


Constructor Create(AOwner : TComponent);

Public declarations


Functions

Destructor Destroy;

Use the Hint property as full URL notify

Procedure CheckLinkAble;


Procedure Click;


Procedure SetAFont(AFont, AValue : TFont);

Protected declarations

Procedure SetTheCaption;

Check it the MAPI dll is there

Procedure SetViewFont;


Procedure UpdateHint;

Update the hint values

Function GetCaption : TCaption;

Execute the default web browser on the web page or the mailto window

Function GetHint : TCaption;


Procedure SetCaption(Value : TCaption);

Get the old caption

Procedure SetHint(Value : TCaption);

delete it.

Procedure SetLabelType(Value : TmdLabelType);

update the caption

Procedure SetLinkFont(Value : TFont);


Procedure SetLinkType(Value : TmdLinkType);

update the font (according to the new type

Procedure SetPassiveFont(Value : TFont);


Procedure SetShowPrefix(Value : Boolean);

update the caption

Procedure SetURL(Value : String);

If the label should look like a normal label

Procedure SetURLAsHint(Value : Boolean);

Update the hint values

Procedure SetURLCaption(Value : TCaption);

Set the "real" caption variabel

Properties

property Align :


property Alignment :


property AutoSize :


property Caption :


property Color :


property Enabled :


property LabelType : TmdLabelType


property LinkFont : TFont

Published declarations

property LinkType : TmdLinkType


property ParentShowHint :


property PassiveFont : TFont


property PopupMenu :


property ShowHint :

Published declarations - Inherited

property ShowPrefix : Boolean


property Transparent :


property URL : String


property URLAsHint : Boolean


property Visible :


property WordWrap :


property LinkAble : Boolean


property URLCaption : TCaption


Events

event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FCaptionChanged : Boolean;


FLabelType : TmdLabelType;


FLinkAble : Boolean;


FLinkFont : TFont;

Private declarations

FLinkType : TmdLinkType;


FPassiveFont : TFont;


FShowPrefix : Boolean;


FURL : String;


FURLAsHint : Boolean;


FURLCaption : TCaption;


FURLCursor : TCursor;



Constructors


Constructor Create(AOwner : TComponent);

Public declarations


Functions


Destructor Destroy;

Use the Hint property as full URL notify


Procedure CheckLinkAble;


Procedure Click;


Procedure SetAFont(AFont, AValue : TFont);

Protected declarations


Procedure SetTheCaption;

Check it the MAPI dll is there


Procedure SetViewFont;


Procedure UpdateHint;

Update the hint values


Function GetCaption : TCaption;

Execute the default web browser on the web page or the mailto window


Function GetHint : TCaption;


Procedure SetCaption(Value : TCaption);

Get the old caption


Procedure SetHint(Value : TCaption);

delete it...


Procedure SetLabelType(Value : TmdLabelType);

update the caption


Procedure SetLinkFont(Value : TFont);


Procedure SetLinkType(Value : TmdLinkType);

update the font (according to the new type


Procedure SetPassiveFont(Value : TFont);


Procedure SetShowPrefix(Value : Boolean);

update the caption


Procedure SetURL(Value : String);

If the label should look like a normal label


Procedure SetURLAsHint(Value : Boolean);

Update the hint values


Procedure SetURLCaption(Value : TCaption);

Set the "real" caption variabel


Properties


property Align :


property Alignment :


property AutoSize :


property Caption :


property Color :


property Enabled :


property LabelType : TmdLabelType


property LinkFont : TFont

Published declarations


property LinkType : TmdLinkType


property ParentShowHint :


property PassiveFont : TFont


property PopupMenu :


property ShowHint :

Published declarations - Inherited


property ShowPrefix : Boolean


property Transparent :


property URL : String


property URLAsHint : Boolean


property Visible :


property WordWrap :


property LinkAble : Boolean


property URLCaption : TCaption


Events


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FCaptionChanged : Boolean;


FLabelType : TmdLabelType;


FLinkAble : Boolean;


FLinkFont : TFont;

Private declarations


FLinkType : TmdLinkType;


FPassiveFont : TFont;


FShowPrefix : Boolean;


FURL : String;


FURLAsHint : Boolean;


FURLCaption : TCaption;


FURLCursor : TCursor;