Class TMenuButton (unit MenBtn)

Inherits from

TSpeedButton

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Click;


procedure DrawSeparateLine(UpDown: TUpDown);


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


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


procedure Paint;


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure SetSeparateLine(value: boolean);


Properties

property PopupMenu :


property SeparateLine : boolean


Events

Variables

FSeparateLine : boolean;


MouseState : TUpDown;


Mouse_Down : boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Click;


procedure DrawSeparateLine(UpDown: TUpDown);


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


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


procedure Paint;


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure SetSeparateLine(value: boolean);


Properties


property PopupMenu :


property SeparateLine : boolean


Events


Variables


FSeparateLine : boolean;


MouseState : TUpDown;


Mouse_Down : boolean;