| 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);
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 WMGetDlgCode(var M: TWMGetDlgCode);
Procedure WMSize(var M: TWMSize);| Properties |
property ButtonDown : TEnhRombButtonPressed
property ButtonSpace : Integer
property DrawContur : Boolean
property Enabled :
property FullPression : Boolean
property SignalFocus : Boolean
property TabStop :
property WithArrows : Boolean| Events |
event OnDownClick : TNotifyEvent
event OnEnter :
event OnExit :
event OnLeftClick : TNotifyEvent
event OnRightClick : TNotifyEvent
event OnUpClick : TNotifyEvent| Variables |
Btn : Integer;
BtnHalfH : Integer;
BtnHalfW : Integer;
FButtonSpace : Integer;
FDrawContur : Boolean;
FFullPression : Boolean;
FOnDownClick : TNotifyEvent;
FOnLeftClick : TNotifyEvent;
FOnRightClick : TNotifyEvent;
FOnUpClick : TNotifyEvent;
FSignalFocus : Boolean;
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);
Procedure DrawButtonDown(B: Integer);Right
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 WMGetDlgCode(var M: TWMGetDlgCode);
Procedure WMSize(var M: TWMSize);| Properties |
property ButtonDown : TEnhRombButtonPressed
property ButtonSpace : Integer
property DrawContur : Boolean
property Enabled :
property FullPression : Boolean
property SignalFocus : Boolean
property TabStop :
property WithArrows : Boolean| Events |
event OnDownClick : TNotifyEvent
event OnEnter :
event OnExit :
event OnLeftClick : TNotifyEvent
event OnRightClick : TNotifyEvent
event OnUpClick : TNotifyEvent| Variables |
Btn : Integer;
BtnHalfH : Integer;
BtnHalfW : Integer;
FButtonSpace : Integer;
FDrawContur : Boolean;
FFullPression : Boolean;
FOnDownClick : TNotifyEvent;
FOnLeftClick : TNotifyEvent;
FOnRightClick : TNotifyEvent;
FOnUpClick : TNotifyEvent;
FSignalFocus : Boolean;
FWithArrows : Boolean;
LastKey : Word;
OffSetX : Array[1..4] of Integer;
OffSetY : Array[1..4] of Integer;