Class TLinkEdit97 (unit AddOnTB97)

Inherits from

TPlusEdit97

////////////////////////////////////////////////////////////////////////////// // TLinkEdit97 // //////////////////////////////////////////////////////////////////////////////

Constructors


constructor Create(AOwner: TComponent);

////////////////////////////////////////////////////////////////////////////// // TLinkEdit97 // //////////////////////////////////////////////////////////////////////////////


Functions

destructor Destroy;


procedure ButtonClick(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// TLinkEdit97 Events for FButton //////////////////////////////////////////////////////////////////////////////

procedure ButtonDblClick(Sender: TObject);


procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseEnter(Sender: TObject);


procedure ButtonMouseExit(Sender: TObject);


procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure CreateWnd;


procedure RedrawButton;


procedure CMEnter(var Message: TCMGotFocus);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


function GetBtnCaption: TCaption;


function GetBtnGlyph: TBitmap;


function GetBtnLayout: TButtonLayout;


function GetBtnMargin: Integer;


function GetBtnMask: TBitmap;


function GetBtnNumGlyphs: TNumGlyphs;


function GetBtnSpacing: Integer;


function GetBtnWidth: Integer;


procedure SetBtnAllowDown(Value: Boolean);

////////////////////////////////////////////////////////////////////////////// TLinkEdit97 Procedures & Functions for FButton //////////////////////////////////////////////////////////////////////////////

procedure SetBtnCaption(Value: TCaption);


procedure SetBtnGlyph(Value: TBitmap);


procedure SetBtnLayout(Value: TButtonLayout);


procedure SetBtnMargin(Value:Integer);


procedure SetBtnMask (Value: TBitmap);


procedure SetBtnNumGlyphs(Value: TNumGlyphs);


procedure SetBtnSpacing(Value: Integer);


procedure SetBtnwidth(Value: Integer);


procedure SetEditRect;


procedure WMCut(var Message: TWMCut);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMNCPaint (var Message: TMessage);


procedure WMPaste(var Message: TWMPaste);


procedure WMSetCursor(var Msg: TWMSetCursor);


procedure WMSetFocus(var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties

property BtnAllowDown : Boolean


property BtnCaption : TCaption


property BtnGlyph : TBitmap


property BtnLayout : TButtonLayout


property BtnMargin : Integer


property BtnMask : TBitmap


property BtnNumGlyphs : TNumGlyphs


property BtnSpacing : Integer


property BtnWidth : Integer


Events

event OnButtonClick : TNotifyEvent


event OnButtonDblClick : TNotifyEvent


event OnButtonMouseDown : TMouseEvent


event OnButtonMouseEnter : TNotifyEvent


event OnButtonMouseExit : TNotifyEvent


event OnButtonMouseMove : TMouseMoveEvent


event OnButtonMouseUp : TMouseEvent


Variables

FBtnAllowDown : Boolean;


FButton : TToolbarButton97;


FButtonClick : TNotifyEvent;


FButtonDblClick : TNotifyEvent;


FButtonMouseDown : TMouseEvent;


FButtonMouseEnter : TNotifyEvent;


FButtonMouseExit : TNotifyEvent;


FButtonMouseMove : TMouseMoveEvent;


FButtonMouseUp : TMouseEvent;


FEditorEnabled : Boolean;


MouseInControl : Boolean;



Constructors


constructor Create(AOwner: TComponent);

////////////////////////////////////////////////////////////////////////////// // TLinkEdit97 // //////////////////////////////////////////////////////////////////////////////


Functions


destructor Destroy;


procedure ButtonClick(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// TLinkEdit97 Events for FButton //////////////////////////////////////////////////////////////////////////////


procedure ButtonDblClick(Sender: TObject);


procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseEnter(Sender: TObject);


procedure ButtonMouseExit(Sender: TObject);


procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure CreateWnd;


procedure RedrawButton;


procedure CMEnter(var Message: TCMGotFocus);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


function GetBtnCaption: TCaption;


function GetBtnGlyph: TBitmap;


function GetBtnLayout: TButtonLayout;


function GetBtnMargin: Integer;


function GetBtnMask: TBitmap;


function GetBtnNumGlyphs: TNumGlyphs;


function GetBtnSpacing: Integer;


function GetBtnWidth: Integer;


procedure SetBtnAllowDown(Value: Boolean);

////////////////////////////////////////////////////////////////////////////// TLinkEdit97 Procedures & Functions for FButton //////////////////////////////////////////////////////////////////////////////


procedure SetBtnCaption(Value: TCaption);


procedure SetBtnGlyph(Value: TBitmap);


procedure SetBtnLayout(Value: TButtonLayout);


procedure SetBtnMargin(Value:Integer);


procedure SetBtnMask (Value: TBitmap);


procedure SetBtnNumGlyphs(Value: TNumGlyphs);


procedure SetBtnSpacing(Value: Integer);


procedure SetBtnwidth(Value: Integer);


procedure SetEditRect;


procedure WMCut(var Message: TWMCut);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMNCPaint (var Message: TMessage);


procedure WMPaste(var Message: TWMPaste);


procedure WMSetCursor(var Msg: TWMSetCursor);


procedure WMSetFocus(var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties


property BtnAllowDown : Boolean


property BtnCaption : TCaption


property BtnGlyph : TBitmap


property BtnLayout : TButtonLayout


property BtnMargin : Integer


property BtnMask : TBitmap


property BtnNumGlyphs : TNumGlyphs


property BtnSpacing : Integer


property BtnWidth : Integer


Events


event OnButtonClick : TNotifyEvent


event OnButtonDblClick : TNotifyEvent


event OnButtonMouseDown : TMouseEvent


event OnButtonMouseEnter : TNotifyEvent


event OnButtonMouseExit : TNotifyEvent


event OnButtonMouseMove : TMouseMoveEvent


event OnButtonMouseUp : TMouseEvent


Variables


FBtnAllowDown : Boolean;


FButton : TToolbarButton97;


FButtonClick : TNotifyEvent;


FButtonDblClick : TNotifyEvent;


FButtonMouseDown : TMouseEvent;


FButtonMouseEnter : TNotifyEvent;


FButtonMouseExit : TNotifyEvent;


FButtonMouseMove : TMouseMoveEvent;


FButtonMouseUp : TMouseEvent;


FEditorEnabled : Boolean;


MouseInControl : Boolean;