Class THyperLink (unit HyperLink)

Inherits from

TCustomStaticText

8bit international const BPGcopyr : string = '(C) 1998 Toivo Leedjärv, BPG'; 7bit international const BPGcopyr : string = '(C) 1998 Toivo Leedjarv, BPG';

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure DoEnter;


procedure DoExit;


procedure KeyPress(var Key: Char);


procedure Loaded;

procedure SetAutoSize(Value: Boolean);

procedure THyperLink.


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


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


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


procedure SetHLinkStyle(AActive : boolean);


procedure AdjustBounds;


procedure CMFocusChanged(var Message: TCMFocusChanged);


procedure CMFontChanged(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


procedure SetNotPressedColor(NewColor : TColor);


procedure WMPaint(var Message: TWMPaint);

with Message do if Sender is THyperLink then FActive := Sender = Self else FActive := False; SetHLinkStyle(FActive);

Properties

property Author : string


property BorderStyle :

property AutoSize: Boolean read FAutoSize write SetAutoSize default True;

property Caption :


property Color :


property Enabled :


property Font :


property Height :


property HREF : String


property NotPressedColor : TColor


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property PressedColor : TColor


property ShowHint :


property StatusBar : TStatusBar


property StatusPanelNo : integer


property TabOrder :


property TabStop :


property Visible :


property Width :


Events

event OnClick :


event OnDblClick :


event OnDragOver :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FActive : Boolean;


FAutoSize : Boolean;


FCopyr : String;


FCursor : integer;


FDown : boolean;


FDummy : String;


FHREF : String;


FNotPressedColor : TColor;


FOld : String;


FPressedColor : TColor;


FStatusBar : TStatusBar;


FStatusNr : integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure DoEnter;


procedure DoExit;


procedure KeyPress(var Key: Char);


procedure Loaded;

procedure SetAutoSize(Value: Boolean);

procedure THyperLink.SetAutoSize(Value: Boolean); begin if FAutoSize <> Value then begin FAutoSize := Value; if Value then AdjustBounds; end; end;


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


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


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


procedure SetHLinkStyle(AActive : boolean);


procedure AdjustBounds;


procedure CMFocusChanged(var Message: TCMFocusChanged);


procedure CMFontChanged(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


procedure SetNotPressedColor(NewColor : TColor);


procedure WMPaint(var Message: TWMPaint);

with Message do if Sender is THyperLink then FActive := Sender = Self else FActive := False; SetHLinkStyle(FActive);


Properties


property Author : string


property BorderStyle :

property AutoSize: Boolean read FAutoSize write SetAutoSize default True;


property Caption :


property Color :


property Enabled :


property Font :


property Height :


property HREF : String


property NotPressedColor : TColor


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property PressedColor : TColor


property ShowHint :


property StatusBar : TStatusBar


property StatusPanelNo : integer


property TabOrder :


property TabStop :


property Visible :


property Width :


Events


event OnClick :


event OnDblClick :


event OnDragOver :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FActive : Boolean;


FAutoSize : Boolean;


FCopyr : String;


FCursor : integer;


FDown : boolean;


FDummy : String;


FHREF : String;


FNotPressedColor : TColor;


FOld : String;


FPressedColor : TColor;


FStatusBar : TStatusBar;


FStatusNr : integer;