Class TMenuSpeedButton (unit Menus97) |
Inherits from
TSpeedButton
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);
property MenuState : TMenuState
FInDown : Boolean;
FM97Handle : THandle;
FMenuState : TMenuState;
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);
property MenuState : TMenuState
FInDown : Boolean;
FM97Handle : THandle;
FMenuState : TMenuState;