Class TsCustomLinkEdit (unit sToolsEdit)

Inherits from

TsCustomEdit

Constructors


constructor Create( AOwner: TComponent );

TsCustomLinkEdit


Functions

procedure CloseUp;


destructor Destroy;


procedure DropDown;


procedure ButtonClick;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


function GetEditRect: TRect;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


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);


function NeedBorderRedraw: Boolean;


procedure PaintBorders(DC: HDC);


procedure PaintEdit(DC: HDC);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure WndProc(var Message: TMessage);


procedure ApplicationShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);


function ButtonWidth: Integer;


procedure CMEnabledChanged (var Msg: TMessage);

CM_EXIT;

procedure DrawButton(DC: HDC);


function GetButtonGlyph: TBitMap;


procedure InvalidateButton;


procedure RecreateGlyph;


procedure RedrawButtonBorder(DC: HDC);


procedure SetButtonVisible(const Value: Boolean);


procedure SetEditRect;


procedure SetGlyph(const Value: TBitMap);


procedure SetGlyphKind(const Value: TGlyphKind);


procedure SetGlyphsNumber(const Value: Integer);


procedure StopTracking;


procedure TrackButton(const X,Y: Integer);


procedure WMKillFocus(var Message: TMessage);


procedure WMSetCursor(var Msg: TWMSetCursor);


Properties

property PopupOpen : Boolean


property ButtonHint : String


property ButtonShowHint : Boolean


property ButtonVisible : Boolean


property ClickKey : TShortCut


property Glyph : TBitMap


property GlyphKind : TGlyphKind


property GlyphsNumber : Integer


Events

event OnButtonDown : TNotifyEvent


Variables

FPopupOpen : Boolean;


FAppShowHint : TShowHintEvent;


FButtonHint : String;


FButtonShowHint : Boolean;


FButtonVisible : Boolean;


FButtonWidth : Integer;


FClickKey : TShortCut;


FGlyph : TBitMap;


FGlyphKind : TGlyphKind;


FGlyphsNumber : Integer;


FOnButtonDown : TNotifyEvent;



Constructors


constructor Create( AOwner: TComponent );

TsCustomLinkEdit


Functions


procedure CloseUp;


destructor Destroy;


procedure DropDown;


procedure ButtonClick;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


function GetEditRect: TRect;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


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);


function NeedBorderRedraw: Boolean;


procedure PaintBorders(DC: HDC);


procedure PaintEdit(DC: HDC);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure WndProc(var Message: TMessage);


procedure ApplicationShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);


function ButtonWidth: Integer;


procedure CMEnabledChanged (var Msg: TMessage);

CM_EXIT;


procedure DrawButton(DC: HDC);


function GetButtonGlyph: TBitMap;


procedure InvalidateButton;


procedure RecreateGlyph;


procedure RedrawButtonBorder(DC: HDC);


procedure SetButtonVisible(const Value: Boolean);


procedure SetEditRect;


procedure SetGlyph(const Value: TBitMap);


procedure SetGlyphKind(const Value: TGlyphKind);


procedure SetGlyphsNumber(const Value: Integer);


procedure StopTracking;


procedure TrackButton(const X,Y: Integer);


procedure WMKillFocus(var Message: TMessage);


procedure WMSetCursor(var Msg: TWMSetCursor);


Properties


property PopupOpen : Boolean


property ButtonHint : String


property ButtonShowHint : Boolean


property ButtonVisible : Boolean


property ClickKey : TShortCut


property Glyph : TBitMap


property GlyphKind : TGlyphKind


property GlyphsNumber : Integer


Events


event OnButtonDown : TNotifyEvent


Variables


FPopupOpen : Boolean;


FAppShowHint : TShowHintEvent;


FButtonHint : String;


FButtonShowHint : Boolean;


FButtonVisible : Boolean;


FButtonWidth : Integer;


FClickKey : TShortCut;


FGlyph : TBitMap;


FGlyphKind : TGlyphKind;


FGlyphsNumber : Integer;


FOnButtonDown : TNotifyEvent;