| Class THyperLink (unit HyperLink) |
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 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);| Properties |
property Author : string
property BorderStyle :
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;