Class TEnhRombButtons (unit ERombBtn)

Inherits from

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);

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;



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;