TOvcURL

type TOvcURL = class(TCustomLabel)

protected

  FCaption: string;

  FHighlightColor: TColor;

  FURL: string;

  FUseVisitedColor: Boolean;

  FVisitedColor: TColor;

  urlTimer: TTimer;

  urlFontColor: TColor;

  function GetUnderlineURL;

  procedure SetCaption();

  procedure SetHighlightColor();

  procedure SetUnderlineURL();

  procedure SetURL();

  procedure SetVisitedColor();

  procedure TimerEvent();

  procedure Loaded; override;

  procedure MouseMove(); override;

public

  procedure Click; override;

  constructor Create(); override;

  destructor Destroy; override;

published

  property Caption: string; [rw]

  property HighlightColor: TColor; [rw]

  property UnderlineURL: Boolean; [rws]

  property URL: string; [rw]

  property UseVisitedColor: Boolean; [rw]

  property VisitedColor: TColor; [rws]

  property Anchors;

  property Constraints;

  property DragKind;

  property Align;

  property Alignment;

  property AutoSize;

  property Color;

  property Cursor;

  property DragCursor;

  property DragMode;

  property Enabled;

  property FocusControl;

  property Font;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowAccelChar;

  property ShowHint;

  property Transparent;

  property Layout;

  property Visible;

  property WordWrap;

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnStartDrag;

end;

TOvcURL

TObject