Class TRebarGripper (unit Rebar)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner:TComponent);

Public declarations

TRebarGripper



Functions

destructor Destroy;


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

Protected declarations

procedure CMMouseEnter(var msg: TMessage);


procedure CMMouseLeave(var msg: TMessage);


procedure SetBorderWidth(Value:integer);


Properties

property BorderWidth : integer

Published declarations

Events

event OnEnter : TNotifyEvent


event OnExit : TNotifyEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBorderWidth : integer;

Private declarations

FOnEnter : TNotifyEvent;


FOnExit : TNotifyEvent;



Constructors


constructor Create(AOwner:TComponent);

Public declarations

TRebarGripper


Functions


destructor Destroy;


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

Protected declarations


procedure CMMouseEnter(var msg: TMessage);


procedure CMMouseLeave(var msg: TMessage);


procedure SetBorderWidth(Value:integer);


Properties


property BorderWidth : integer

Published declarations


Events


event OnEnter : TNotifyEvent


event OnExit : TNotifyEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBorderWidth : integer;

Private declarations


FOnEnter : TNotifyEvent;


FOnExit : TNotifyEvent;