| Class TEnhRombButtons (unit ERombBtn) |
TCustomControl
| Constructors |
Constructor Create(AOwner:TComponent);| Functions |
Destructor Destroy;
Procedure DownNext(DownNone: Boolean);
Procedure DownPrev(DownNone: Boolean);
Procedure Paint;
Procedure DoEnter;
Procedure DoExit;
Procedure DrawArrow(B, O: Integer; Color: TColor; Clearing: Boolean);
Procedure DrawButtonDown(B: Integer);
Procedure DrawButtonUp(B: Integer);
Function GetButtonDown: TEnhRombButtonPressed;
Procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure SetButtonDown(Val: TEnhRombButtonPressed);
Procedure SetButtonSpace(Val: Integer);
Procedure SetContur(Val: Boolean);
Procedure SetFullPression(Val: Boolean);
Procedure SetWithArrows(Val: Boolean);
Procedure KeyDown(var Key: Word; Shift: TShiftState);
Procedure KeyUp(var Key: Word; Shift: TShiftState);
procedure SetEnabledButtons(Value: TButtonSet);
Procedure WMGetDlgCode(var M: TWMGetDlgCode);
Procedure WMSize(var M: TWMSize);| Properties |
property ButtonDown : TEnhRombButtonPressed
property ButtonDownColor : TColor
property ButtonSpace : Integer
property ButtonUpColor : TColor
property DrawContur : Boolean
property Enabled :
property EnabledButtons : TButtonSet
property FullPression : Boolean
property SignalFocus : Boolean
property TabStop :
property WithArrows : Boolean| Events |
event OnDownClick : TNotifyEvent
event OnDownMouseDown : TNotifyEvent
event OnDownMouseUp : TNotifyEvent
event OnEnter :
event OnExit :
event OnLeftClick : TNotifyEvent
event OnLeftMouseDown : TNotifyEvent
event OnLeftMouseUp : TNotifyEvent
event OnRightClick : TNotifyEvent
event OnRightMouseDown : TNotifyEvent
event OnRightMouseUp : TNotifyEvent
event OnUpClick : TNotifyEvent
event OnUpMouseDown : TNotifyEvent
event OnUpMouseUp : TNotifyEvent| Variables |
Btn : Integer;
BtnHalfH : Integer;
BtnHalfW : Integer;
FButtonSpace : Integer;
FDownColor : TColor;
FDrawContur : Boolean;
FEnabledButtons : TButtonSet;
FFullPression : Boolean;
FOnDownClick : TNotifyEvent;
FOnDownMouseDown : TNotifyEvent;
FOnDownMouseUp : TNotifyEvent;
FOnLeftClick : TNotifyEvent;
FOnLeftMouseDown : TNotifyEvent;
FOnLeftMouseUp : TNotifyEvent;
FOnRightClick : TNotifyEvent;
FOnRightMouseDown : TNotifyEvent;
FOnRightMouseUp : TNotifyEvent;
FOnUpClick : TNotifyEvent;
FOnUpMouseDown : TNotifyEvent;
FOnUpMouseUp : TNotifyEvent;
FSignalFocus : Boolean;
FUpColor : TColor;
FWithArrows : Boolean;
LastKey : Word;
OffSetX : Array[1..4] of Integer;
OffSetY : Array[1..4] of Integer;| Constructors |
Constructor Create(AOwner:TComponent);| Functions |
Destructor Destroy;
Procedure DownNext(DownNone: Boolean);
Procedure DownPrev(DownNone: Boolean);
Procedure Paint;
Procedure DoEnter;
Procedure DoExit;
Procedure DrawArrow(B, O: Integer; Color: TColor; Clearing: Boolean);
Procedure DrawButtonDown(B: Integer);
Procedure DrawButtonUp(B: Integer);
Function GetButtonDown: TEnhRombButtonPressed;
Procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure SetButtonDown(Val: TEnhRombButtonPressed);
Procedure SetButtonSpace(Val: Integer);
Procedure SetContur(Val: Boolean);
Procedure SetFullPression(Val: Boolean);
Procedure SetWithArrows(Val: Boolean);
Procedure KeyDown(var Key: Word; Shift: TShiftState);
Procedure KeyUp(var Key: Word; Shift: TShiftState);
procedure SetEnabledButtons(Value: TButtonSet);
Procedure WMGetDlgCode(var M: TWMGetDlgCode);
Procedure WMSize(var M: TWMSize);| Properties |
property ButtonDown : TEnhRombButtonPressed
property ButtonDownColor : TColor
property ButtonSpace : Integer
property ButtonUpColor : TColor
property DrawContur : Boolean
property Enabled :
property EnabledButtons : TButtonSet
property FullPression : Boolean
property SignalFocus : Boolean
property TabStop :
property WithArrows : Boolean| Events |
event OnDownClick : TNotifyEvent
event OnDownMouseDown : TNotifyEvent
event OnDownMouseUp : TNotifyEvent
event OnEnter :
event OnExit :
event OnLeftClick : TNotifyEvent
event OnLeftMouseDown : TNotifyEvent
event OnLeftMouseUp : TNotifyEvent
event OnRightClick : TNotifyEvent
event OnRightMouseDown : TNotifyEvent
event OnRightMouseUp : TNotifyEvent
event OnUpClick : TNotifyEvent
event OnUpMouseDown : TNotifyEvent
event OnUpMouseUp : TNotifyEvent| Variables |
Btn : Integer;
BtnHalfH : Integer;
BtnHalfW : Integer;
FButtonSpace : Integer;
FDownColor : TColor;
FDrawContur : Boolean;
FEnabledButtons : TButtonSet;
FFullPression : Boolean;
FOnDownClick : TNotifyEvent;
FOnDownMouseDown : TNotifyEvent;
FOnDownMouseUp : TNotifyEvent;
FOnLeftClick : TNotifyEvent;
FOnLeftMouseDown : TNotifyEvent;
FOnLeftMouseUp : TNotifyEvent;
FOnRightClick : TNotifyEvent;
FOnRightMouseDown : TNotifyEvent;
FOnRightMouseUp : TNotifyEvent;
FOnUpClick : TNotifyEvent;
FOnUpMouseDown : TNotifyEvent;
FOnUpMouseUp : TNotifyEvent;
FSignalFocus : Boolean;
FUpColor : TColor;
FWithArrows : Boolean;
LastKey : Word;
OffSetX : Array[1..4] of Integer;
OffSetY : Array[1..4] of Integer;