| Class TIDSNumberEdit (unit IDSNBRED) |
TCustomEdit
| Constructors |
constructor Create(Owner : TComponent);| Functions |
procedure Change;
procedure CreateParams(var Params : TCreateParams);
procedure FocusGained(var Message: TMessage);
procedure FocusLost(var Message: TMessage);
procedure KeyPress(var Key : Char);
procedure CleanText;Call inherited if this is not a change generated by code
function GetStrValue(dblIn:Double; blClean:Boolean):String;Call the inherited method, and then force the value into range
function GetValue : Double;Returned the string value
function ProcessValue(dblIn : Double) : Double;Key is not valid - kill it
procedure Recalc;Check if above allowed range
procedure Redraw;Set the color of the font
procedure SetAlignment(alignIn : TLeftRight);Set the text to the internal value
procedure SetBlankIfZero(blBIZ : Boolean);Set the new alignment and recreate the window
procedure SetColorNeg(colIn : TColor);
procedure SetColorPos(colIn : TColor);
procedure SetFormatStr(strIn : String);
procedure SetMaxValue(dblIn : Double);
procedure SetMinValue(dblIn : Double);Set the new format and recalc the value
procedure SetValue(dblIn : Double);
function StrToDbl(strIn : String) : Double;Calc new value of control and redraw
| Properties |
property Alignment : TLeftRight
property AutoSelect :
property AutoSize :
property BlankIfZero : Boolean
property BorderStyle :
property Color :
property ColorNeg : TColor
property ColorPos : TColor
property Ctl3D :
property Cursor :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property FormatStr : String
property Height :
property HelpContext :
property HideSelection :
property Hint :
property Left :
property MaxValue : Double
property MinValue : Double
property ParentColor :
property ParentCtl3D :
property ParentShowHint :
property PopUpMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Tag :
property Top :
property Value : Double
property Visible :
property Width : | Events |
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
blCodeChange : Boolean;
FAlignment : TLeftRight;
FBlankIfZero : Boolean;
FColorNeg : TColor;
FColorPos : TColor;
FFormatStr : String;
FMaxValue : Double;
FMinValue : Double;
FValue : Double;| Constructors |
constructor Create(Owner : TComponent);Clean all formatting from text
| Functions |
procedure Change;Converts a string to a double
procedure CreateParams(var Params : TCreateParams);Set the initial value
procedure FocusGained(var Message: TMessage);TA_RIGHT doesnt work
procedure FocusLost(var Message: TMessage);Clean all formatting and select all characters
procedure KeyPress(var Key : Char);
procedure CleanText;The value of the field } { Private functions
Call inherited if this is not a change generated by code
function GetStrValue(dblIn:Double; blClean:Boolean):String;Strips all the formatting chars from text
Call the inherited method, and then force the value into range
function GetValue : Double;Returns string value, with appropriate formatting
Returned the string value
function ProcessValue(dblIn : Double) : Double;Retreives the current value
Key is not valid - kill it
procedure Recalc;Processes a new value
Check if above allowed range
procedure Redraw;Recalculates the field value
Set the color of the font
procedure SetAlignment(alignIn : TLeftRight);Redraws the control } { Property access functions
Set the text to the internal value
procedure SetBlankIfZero(blBIZ : Boolean);Sets the new alignment
Set the new alignment and recreate the window
procedure SetColorNeg(colIn : TColor);Sets whether to blank if zero
procedure SetColorPos(colIn : TColor);Sets the color for negative values
procedure SetFormatStr(strIn : String);Sets the color for positive values
procedure SetMaxValue(dblIn : Double);Sets the minimum value for the control
procedure SetMinValue(dblIn : Double);Sets the formatting string
Set the new format and recalc the value
procedure SetValue(dblIn : Double);Sets the maximum value for the control
function StrToDbl(strIn : String) : Double;Sets the field value
Calc new value of control and redraw
| Properties |
property Alignment : TLeftRightNew properties
property AutoSelect : Inherited properties and events
property AutoSize :
property BlankIfZero : Boolean
property BorderStyle :
property Color :
property ColorNeg : TColor
property ColorPos : TColor
property Ctl3D :
property Cursor :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property FormatStr : String
property Height :
property HelpContext :
property HideSelection :
property Hint :
property Left :
property MaxValue : Double
property MinValue : Double
property ParentColor :
property ParentCtl3D :
property ParentShowHint :
property PopUpMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Tag :
property Top :
property Value : Double
property Visible :
property Width : | Events |
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
blCodeChange : Boolean;Private variables
FAlignment : TLeftRight;Private fields
FBlankIfZero : Boolean;The alignment for the field
FColorNeg : TColor;Display blank if zero
FColorPos : TColor;Color for negative text
FFormatStr : String;Color for positive text
FMaxValue : Double;Minimum value for field
FMinValue : Double;Formatting string for the output text
FValue : Double;Maximum value for field