Class TRangeControl (unit Range)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************} {*** TRangeControl Public Methods ********************************************} {



Functions

destructor Destroy;


procedure Toggle;


procedure Click;

Choose the correct bitmap.

procedure KeyPress(var Key: Char);


procedure Paint;

Protected declarations

****************************************************************************} {*** TRangeControl Protected Methods *****************************************} {


procedure ValueInRange;


procedure CMCtl3DChanged(var Msg: TMessage);


procedure CMDialogChar(var Msg: TCMDialogChar);


procedure CMEnabledChanged(var Msg: TMessage);


procedure CMFontChanged(var Msg: TMessage);


procedure CMSysColorChange(var Msg: TMessage);


procedure CMTextChanged(var Msg: TMessage);


function GetInRange: Boolean;


procedure SetAlignment(Value : TLeftRight);

****************************************************************************} {** TBitCheckBox Private Methods **********************************************} {

procedure SetInRange(Value: Boolean);


procedure SetInRangeBitmap(Value : TBitmap);


procedure SetInRangeNumGlyphs(Value: Integer);


procedure SetMaxRangeValue(Value: Double);


procedure SetMinRangeValue(Value: Double);


procedure SetNoCheckBitmap(Value : TBitmap);


procedure SetNoCheckNumGlyphs(Value: Integer);


procedure SetOutRangeBitmap(Value : TBitmap);


procedure SetOutRangeNumGlyphs(Value: Integer);


procedure SetRange(Value: TRange);


procedure SetState(Value: TRangeControlState);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);


Properties

property AfterRangeCheck : TNotifyEvent


property Alignment : TLeftRight

Published declarations

property BeforeRangeCheck : TNotifyEvent


property CanModify : Boolean


property Caption :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property InRangeGlyph : TBitmap


property InRangeNumGlyphs : Integer


property MaxRangeValue : Double


property MinRangeValue : Double


property NoCheckGlyph : TBitmap


property NoCheckNumGlyphs : Integer


property OutRangeGlyph : TBitmap


property OutRangeNumGlyphs : Integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property Range : TRange


property ShowHint :


property State : TRangeControlState


property TabOrder :


property TabStop :


property Visible :


Events

event OnClick :


event OnDragDrop :


event OnEndDrag :


event OnEnter :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseUp :


event OnStartDrag :


Variables

fAfterRangeCheck : TNotifyEvent;


fAlignment : TLeftRight;


fBeforeRangeCheck : TNotifyEvent;


fCanModify : Boolean;


fCheckValue : Double;


fInRangeBitmap : TBitmap;

Private declarations

fInRangeNumGlyphs : Integer;


fMaxRangeValue : Double;


fMinRangeValue : Double;


fNoCheckBitmap : TBitmap;


fNoCheckNumGlyphs : Integer;


fOutRangeBitmap : TBitmap;


fOutRangeNumGlyphs : Integer;


fRange : TRange;


fState : TRangeControlState;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

****************************************************************************} {*** TRangeControl Public Methods ********************************************} {


Functions


destructor Destroy;


procedure Toggle;


procedure Click;

Choose the correct bitmap.} {If we're disabled choose the second bitmap.


procedure KeyPress(var Key: Char);


procedure Paint;

Protected declarations

****************************************************************************} {*** TRangeControl Protected Methods *****************************************} {


procedure ValueInRange;


procedure CMCtl3DChanged(var Msg: TMessage);


procedure CMDialogChar(var Msg: TCMDialogChar);


procedure CMEnabledChanged(var Msg: TMessage);


procedure CMFontChanged(var Msg: TMessage);


procedure CMSysColorChange(var Msg: TMessage);


procedure CMTextChanged(var Msg: TMessage);


function GetInRange: Boolean;


procedure SetAlignment(Value : TLeftRight);

****************************************************************************} {** TBitCheckBox Private Methods **********************************************} {


procedure SetInRange(Value: Boolean);


procedure SetInRangeBitmap(Value : TBitmap);


procedure SetInRangeNumGlyphs(Value: Integer);


procedure SetMaxRangeValue(Value: Double);


procedure SetMinRangeValue(Value: Double);


procedure SetNoCheckBitmap(Value : TBitmap);


procedure SetNoCheckNumGlyphs(Value: Integer);


procedure SetOutRangeBitmap(Value : TBitmap);


procedure SetOutRangeNumGlyphs(Value: Integer);


procedure SetRange(Value: TRange);


procedure SetState(Value: TRangeControlState);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);


Properties


property AfterRangeCheck : TNotifyEvent


property Alignment : TLeftRight

Published declarations


property BeforeRangeCheck : TNotifyEvent


property CanModify : Boolean


property Caption :


property Color :


property Ctl3D :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property InRangeGlyph : TBitmap


property InRangeNumGlyphs : Integer


property MaxRangeValue : Double


property MinRangeValue : Double


property NoCheckGlyph : TBitmap


property NoCheckNumGlyphs : Integer


property OutRangeGlyph : TBitmap


property OutRangeNumGlyphs : Integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property Range : TRange


property ShowHint :


property State : TRangeControlState


property TabOrder :


property TabStop :


property Visible :


Events


event OnClick :


event OnDragDrop :


event OnEndDrag :


event OnEnter :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseUp :


event OnStartDrag :


Variables


fAfterRangeCheck : TNotifyEvent;


fAlignment : TLeftRight;


fBeforeRangeCheck : TNotifyEvent;


fCanModify : Boolean;


fCheckValue : Double;


fInRangeBitmap : TBitmap;

Private declarations


fInRangeNumGlyphs : Integer;


fMaxRangeValue : Double;


fMinRangeValue : Double;


fNoCheckBitmap : TBitmap;


fNoCheckNumGlyphs : Integer;


fOutRangeBitmap : TBitmap;


fOutRangeNumGlyphs : Integer;


fRange : TRange;


fState : TRangeControlState;