Class TFloatEdit (unit ValCtrls)

Inherits from

TValidCustomEdit

Constructors


constructor Create( AOwner: TComponent );

Public declarations

**************************************************************************}



Functions

function Validate: Boolean;

Protected declarations

function GetValue: Extended;


procedure SetDigits( Digits: Integer );


procedure SetFormat( Format: TFloatView );


procedure SetMaxValue( AMaxValue: Extended );


procedure SetMinValue( AMinValue: Extended );


procedure SetPrecision( Precision: Integer );


procedure SetValue( AValue: Extended );

Float format *) { Private declarations

procedure UpdateValue;


Properties

property AllowEmpty :


property AutoSelect :


property BeepOnInvalid :


property BorderStyle :


property Digits : Integer


property Format : TFloatView


property MaxValue : Extended


property MinValue : Extended

Published declarations

property Precision : Integer


property ReadOnly :


property UseBounds : Boolean


property Value : Extended


property IsEmpty :


property IsValid :


Events

event OnChange :


event OnEnter :


event OnExit :


event OnInvalid :


Variables

FDigits : Integer;

Apply Min/Max bounds

FFormat : TFloatView;

Float format for FloatToStrF

FMaxValue : Extended;

Minimum value for field

FMinValue : Extended;


FPrecision : Integer;

Max number for digits to show

FStrFormat : TFloatFormat;

Number of decimal digits to show

FUseBounds : Boolean;

Current value for field

FValue : Extended;

Maximum value for field


Constructors


constructor Create( AOwner: TComponent );

Public declarations

**************************************************************************}


Functions


function Validate: Boolean;

Protected declarations


function GetValue: Extended;


procedure SetDigits( Digits: Integer );


procedure SetFormat( Format: TFloatView );


procedure SetMaxValue( AMaxValue: Extended );


procedure SetMinValue( AMinValue: Extended );


procedure SetPrecision( Precision: Integer );


procedure SetValue( AValue: Extended );

Float format *) { Private declarations


procedure UpdateValue;


Properties


property AllowEmpty :


property AutoSelect :


property BeepOnInvalid :


property BorderStyle :


property Digits : Integer


property Format : TFloatView


property MaxValue : Extended


property MinValue : Extended

Published declarations


property Precision : Integer


property ReadOnly :


property UseBounds : Boolean


property Value : Extended


property IsEmpty :


property IsValid :


Events


event OnChange :


event OnEnter :


event OnExit :


event OnInvalid :


Variables


FDigits : Integer;

Apply Min/Max bounds


FFormat : TFloatView;

Float format for FloatToStrF


FMaxValue : Extended;

Minimum value for field


FMinValue : Extended;


FPrecision : Integer;

Max number for digits to show


FStrFormat : TFloatFormat;

Number of decimal digits to show


FUseBounds : Boolean;

Current value for field


FValue : Extended;

Maximum value for field