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';
constructor Create(AOwner: TComponent);
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);
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 :
event OnClick :
event OnDblClick :
event OnDragOver :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FActive : Boolean;
FAutoSize : Boolean;
FCopyr : String;
FCursor : integer;
FDown : boolean;
FDummy : String;
FHREF : String;
FNotPressedColor : TColor;
FOld : String;
FPressedColor : TColor;
FStatusBar : TStatusBar;
FStatusNr : integer;
constructor Create(AOwner: TComponent);
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);
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 :
event OnClick :
event OnDblClick :
event OnDragOver :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FActive : Boolean;
FAutoSize : Boolean;
FCopyr : String;
FCursor : integer;
FDown : boolean;
FDummy : String;
FHREF : String;
FNotPressedColor : TColor;
FOld : String;
FPressedColor : TColor;
FStatusBar : TStatusBar;
FStatusNr : integer;