Class TUPScrollbarButton (unit uUPScrollbarButton)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions

procedure Paint;


procedure CMMouseEnter(var Msg: TMessage);


procedure CMMouseLeave(var Msg: TMessage);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function MouseIsDownAndInControl: Boolean;


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetFlat(Value: Boolean);


procedure SetKind(Value: TButtonKind);

Private declarations

Properties

property Enabled :

Public declarations

property Flat : Boolean


property Kind : TButtonKind


Events

event OnClick :


event OnDblClick :


Variables

FFlat : Boolean;


FKind : TButtonKind;


MouseIsDown : Boolean;


MouseIsIn : Boolean;



Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions


procedure Paint;


procedure CMMouseEnter(var Msg: TMessage);


procedure CMMouseLeave(var Msg: TMessage);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function MouseIsDownAndInControl: Boolean;


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetFlat(Value: Boolean);


procedure SetKind(Value: TButtonKind);

Private declarations


Properties


property Enabled :

Public declarations


property Flat : Boolean


property Kind : TButtonKind


Events


event OnClick :


event OnDblClick :


Variables


FFlat : Boolean;


FKind : TButtonKind;


MouseIsDown : Boolean;


MouseIsIn : Boolean;