Class TMenuSpeedButton (unit Menus97)

Inherits from

TSpeedButton

Constructors



Functions

procedure Paint;


procedure CMDialogChar(var Message: TCMDialogChar);


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

TMenuSpeedButton

procedure MouseMove(Shift: TShiftState; X, Y: Integer);

PaintRect := Rect(0, 0, Width, Height); case FMenuState of msActive : DrawEdge(Canvas.

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


procedure SetMenuState(Value : TMenuState);


Properties

property MenuState : TMenuState


Events

Variables

FInDown : Boolean;


FM97Handle : THandle;


FMenuState : TMenuState;



Constructors


Functions


procedure Paint;


procedure CMDialogChar(var Message: TCMDialogChar);


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

TMenuSpeedButton


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

PaintRect := Rect(0, 0, Width, Height); case FMenuState of msActive : DrawEdge(Canvas.Handle, PaintRect, BDR_RAISEDINNER, BF_RECT); msActiveDrop : DrawEdge(Canvas.Handle, PaintRect, BDR_RAISEDOUTER, BF_RECT); msInactive : ; end;


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


procedure SetMenuState(Value : TMenuState);


Properties


property MenuState : TMenuState


Events


Variables


FInDown : Boolean;


FM97Handle : THandle;


FMenuState : TMenuState;