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