| Class TMenuSpeedButton (unit Menus97) |
TSpeedButton
| Constructors |
| Functions |
procedure Paint;
procedure CMDialogChar(var Message: TCMDialogChar);
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 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;