| Class TCustomNumInp (unit NumInp) |
TCustomEdit
numinp component
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function AsByte : Byte;
function AsDouble : double;
function AsInteger : integer;
function AsLongint : longint;
function AsMoneyStr:String;
function AsReal : real;
function AsShortInt : ShortInt;
function AsSingle : Single;
function AsWord : Word;
function Valid ( Value : extended ) : boolean;
procedure CheckRange;
procedure FormatText;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure CalcTextMargin;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
procedure CMFontChanged(var Message: TMessage);
procedure SetAlignment(Value : TAlignment);
procedure SetDataType(Value : TDataType);
procedure SetDecimals(Value : word);
procedure SetDigits(Value : word);
procedure SetMax(Value : extended);
procedure SetMin(Value : extended);
procedure SetNegCol(Value:TColor);
procedure SetNumericType(Value : TNumericType);
procedure SetTabOnEnterKey(Value: Boolean);
procedure SetValidate(Value : boolean);
procedure SetValue(Value : extended);
procedure WMPaint(var Message: TWMPaint);| Properties |
property Alignment : TAlignment
property DataType : TDataType
property Decimals : word
property Digits : word
property Max : extended
property Min : extended
property NegativeColor : Tcolor
property NumericType : TNumericType
property TabOnEnterKey : Boolean
property Validate : boolean
property Value : extended| Events |
| Variables |
IsValid : Boolean;
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataType : TDataType;
FDecimals : word;
FDigits : word;
FFocused : Boolean;
FMax : extended;
FMin : extended;
FNegColor : TColor;
FNumericType : TNumericType;
FTabOnEnterKey : Boolean;
FTextMargin : Integer;
FValidate : boolean;
FValue : extended;
OldColor : TColor;
OldTNIColor : TColor;| Constructors |
constructor Create(AOwner: TComponent);========================================================================} { Custom Numeric Edit } {========================================================================
| Functions |
function AsByte : Byte;
function AsDouble : double;
function AsInteger : integer;
function AsLongint : longint;
function AsMoneyStr:String;repaint the control
function AsReal : real;
function AsShortInt : ShortInt;
function AsSingle : Single;
function AsWord : Word;
function Valid ( Value : extended ) : boolean;
procedure CheckRange;This will repaint the control WM_PAINT Message
procedure FormatText;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure CalcTextMargin;
procedure CMEnter(var Message: TCMEnter);Check max characters after decimal
procedure CMExit(var Message: TCMExit);info for WM_PAINT
procedure CMFontChanged(var Message: TMessage);
procedure SetAlignment(Value : TAlignment);
procedure SetDataType(Value : TDataType);
procedure SetDecimals(Value : word);
procedure SetDigits(Value : word);
procedure SetMax(Value : extended);
procedure SetMin(Value : extended);
procedure SetNegCol(Value:TColor);
procedure SetNumericType(Value : TNumericType);
procedure SetTabOnEnterKey(Value: Boolean);
procedure SetValidate(Value : boolean);
procedure SetValue(Value : extended);
procedure WMPaint(var Message: TWMPaint);| Properties |
property Alignment : TAlignment
property DataType : TDataType
property Decimals : word
property Digits : word
property Max : extended
property Min : extended
property NegativeColor : Tcolor
property NumericType : TNumericType
property TabOnEnterKey : Boolean
property Validate : boolean
property Value : extended| Events |
| Variables |
IsValid : Boolean;
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataType : TDataType;
FDecimals : word;
FDigits : word;
FFocused : Boolean;
FMax : extended;
FMin : extended;
FNegColor : TColor;
FNumericType : TNumericType;
FTabOnEnterKey : Boolean;
FTextMargin : Integer;
FValidate : boolean;
FValue : extended;
OldColor : TColor;
OldTNIColor : TColor;