Class TRangeControl (unit Range) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- Public declarations
****************************************************************************} {*** TRangeControl Public Methods ********************************************} {
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);
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 :
event OnClick :
event OnDragDrop :
event OnEndDrag :
event OnEnter :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseUp :
event OnStartDrag :
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;
constructor Create(AOwner: TComponent);
Public declarations
****************************************************************************} {*** TRangeControl Public Methods ********************************************} {
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);
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 :
event OnClick :
event OnDragDrop :
event OnEndDrag :
event OnEnter :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseUp :
event OnStartDrag :
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;