Class TLinkEdit97 (unit AddOnTB97) |
Inherits from
TPlusEdit97
////////////////////////////////////////////////////////////////////////////// // TLinkEdit97 // //////////////////////////////////////////////////////////////////////////////
constructor Create(AOwner: TComponent);
- ////////////////////////////////////////////////////////////////////////////// // TLinkEdit97 // //////////////////////////////////////////////////////////////////////////////
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);
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
event OnButtonClick : TNotifyEvent
event OnButtonDblClick : TNotifyEvent
event OnButtonMouseDown : TMouseEvent
event OnButtonMouseEnter : TNotifyEvent
event OnButtonMouseExit : TNotifyEvent
event OnButtonMouseMove : TMouseMoveEvent
event OnButtonMouseUp : TMouseEvent
FBtnAllowDown : Boolean;
FButton : TToolbarButton97;
FButtonClick : TNotifyEvent;
FButtonDblClick : TNotifyEvent;
FButtonMouseDown : TMouseEvent;
FButtonMouseEnter : TNotifyEvent;
FButtonMouseExit : TNotifyEvent;
FButtonMouseMove : TMouseMoveEvent;
FButtonMouseUp : TMouseEvent;
FEditorEnabled : Boolean;
MouseInControl : Boolean;
constructor Create(AOwner: TComponent);
////////////////////////////////////////////////////////////////////////////// // TLinkEdit97 // //////////////////////////////////////////////////////////////////////////////
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);
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
event OnButtonClick : TNotifyEvent
event OnButtonDblClick : TNotifyEvent
event OnButtonMouseDown : TMouseEvent
event OnButtonMouseEnter : TNotifyEvent
event OnButtonMouseExit : TNotifyEvent
event OnButtonMouseMove : TMouseMoveEvent
event OnButtonMouseUp : TMouseEvent
FBtnAllowDown : Boolean;
FButton : TToolbarButton97;
FButtonClick : TNotifyEvent;
FButtonDblClick : TNotifyEvent;
FButtonMouseDown : TMouseEvent;
FButtonMouseEnter : TNotifyEvent;
FButtonMouseExit : TNotifyEvent;
FButtonMouseMove : TMouseMoveEvent;
FButtonMouseUp : TMouseEvent;
FEditorEnabled : Boolean;
MouseInControl : Boolean;