Class TCustomNumInp (unit NumInp)

Inherits from

TCustomEdit

numinp component

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;



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;