Class TArgusDataEntry

Private declarations

function GetDecChar : char;

function GetText: TCaption;

procedure SetText(const Value: TCaption);

SetDataType sets the DataType property. It also changes the Style of the TArgusDataEntry depending on the Data type. dtString, dtInteger, and dtReal result in the style being set to csSimple. dtBoolean results in the Style being set to csDropDownList. If the data type is set to dtCustom, an Style is allowed. It also changes the text to make sure it is consistent with the data type and updates Output to be consistent with Text. Items[0] and Items[1] are reset to 'False' and 'True' respectively every time the data type is set to dtBoolean. If the new DataType is different from the existing DataType, an OnChangeDataType event occurs.

SetEnabled calls the inherited SetEnabled and then ChangeColor

SetStyle changes to Style of the TArgusDataEntry and checks that the style is consistent with the DataType. If the new Style is different from the existing Style, an OnChangeStyle event occurs.

SetMax changes Max and then calls CheckRange

SetMin changes Min and then calls CheckRange

SetCheckMax changes CheckMax and then if CheckMax is true calls CheckRange

SetCheckMin changes CheckMin and then if CheckMin is true calls CheckRange

DoExit implements the OnExit event; It calls the inherited method and then CheckRange

Change implements the OnChange event; It calls the inherited method and then TextChanged.

StyleChanged implements the OnStyleChanged event; It is called whenever the application changes the data type.

DataTypeChanged implements the OnDataTypeChanged event;

ExceedingBounds implements the OnExceedingBounds event;

StyleChanged implements the OnStyleChanged event;

TextChanged is called before the event handler for the OnChanged event. It checks that the data entered in the TArgusDataEntry is valid. It does not reject '-' even though that is not a valid integer or real number. However, if the text is '-' when OnExit occurs, the CheckRange procedure will catch the error.

ChangeColor changes the color of the control depending on whether the control is enabled or not and the ChangeDisabledColor property.

Public declarations

Create creates and initializes a TArgusDataEntry instance.

ChangeTextToInteger takes the string in the Text property and attempts to convert it to an integer. If it fails, it strips one character at a time from the end of Text until it does succeed. It converts '' to '0'. The end result is a string that can be converted to an integer.

ChangeTextToReal takes the string in the Text property and attempts to convert it to an extended real number. If it fails, it strips one character at a time from the end of Text until it does succeed. It converts '' to '0'. The end result is a string that can be converted to an real number.

ChangeTextToBoolean converts the string in the Text property to '0' if the Text is '', '0' or 'false'. The check that the Text is equal to 'false' is case insensitive.

CheckRange is called before the event handler for the OnExit event. It checks that the data in the TArgusDataEntry do not exceed the specified limits. However, it only checks the range if the DataType is dtInteger or dtReal. It also catches the invalid value of '-' for real and integer data typed in the text field. If the value in the data field should be checked as specified by CheckMin and CheckMax and is outside the limits set by Min and Max an OnExceedingBounds event occurs. If after the eventhandler for OnExceedingBounds, the numeric representation of Text is still outside the appropriate range, Text will be changed to Max or Min, whichever is closer and raises an OnExceededBounds event.

Published declarations

Set the DataType to an appropriate value to cause the TArgusDataEntry to check that user-entered data is the appropriate type.

If CheckMax is true and the DataType is dtInteger or dtReal, the TArgusDataEntry will check the data entered and change it to Max if the entered value is larger than Max. It will also beep and set the focus to the TArgusDataEntry. To modify this behaviour, you can use the OnExceedingBounds or OnExceededBounds events.

If CheckMin is true and the DataType is dtInteger or dtReal, the TArgusDataEntry will check the data entered and change it to Min if the entered value is smaller than Max. It will also beep and set the focus to the TArgusDataEntry. To modify this behaviour, you can use the OnExceedingBounds or OnExceededBounds events.

If CheckMax is true and the DataType is dtInteger or dtReal, the TArgusDataEntry will check the data entered and change it to Max if the entered value is larger than Max. It will also beep and set the focus to the TArgusDataEntry. To modify this behaviour, you can use the OnExceedingBounds or OnExceededBounds events.

If CheckMin is true and the DataType is dtInteger or dtReal, the TArgusDataEntry will check the data entered and change it to Min if the entered value is smaller than Min. It will also beep and set the focus to the TArgusDataEntry. To modify this behaviour, you can use the OnExceedingBounds or OnExceededBounds events.

If the DataType is anything other than dtBoolean, Output will be the same as Text. For dtBoolean, Output is '0' if Text is 'False' and '1' if Text is 'True'. Output is read-only. Output always uses '.' as the decimal separator.

Style is inherited but the default is changed to csSimple.

Whenever the Style Property is changed, an OnStyleChanged event occurs.

Whenever the DataType Property is changed, an OnDataTypeChanged event occurs.

An OnExceededBounds event occurs if 1. the DataType is dtInteger or dtReal and either 2. CheckMax is true and the numeric representation of the Text Property exceeds the Max Property or 3. CheckMin is true and the numeric representation of the Text Property is less than the Min Property. OnExceededBounds occurs after the default handling of such cases has occurred. CheckRange will be called again after your event handler. Be careful that your custom handling does not result in an infinite loop.

Property Text : TCaption read GetText Write SetText ;

Identical to original Text property except that setting the text generates an OnChange Event.

If ChangeDisabledColor is true, the color of the control will be changed to EnabledColor when the control becomes enabled and will be set to DisabledColor when the control becomes disabled.

DisabledColor is the color that the control will be changed to if ChangeDisabledColor is true and the control becomes disabled. By default, DisabledColor is clBtnFace.