| Description | The function below:
function TJvCustomNumEdit.GetEditFormat:String;
begin
Result := ',0'; // must put the thousands separator by default to allow direct edit of value (paste for example)
if FDecimalPlaces > 0 then
if FDecimalPlacesAlwaysShown then
Result := Result + '.' + MakeStr('0', FDecimalPlaces)
else
Result := Result + '.' + MakeStr('#', FDecimalPlaces);
end;
There could be changed to the code:
function TJvCustomNumEdit.GetEditFormat:String;
begin
if FDecimalPlaces = 0 then
Result := '0'
else
begin
Result := ',0';
if FDecimalPlacesAlwaysShown then
Result := Result + '.' + MakeStr('0', FDecimalPlaces)
else
Result := Result + '.' + MakeStr('#', FDecimalPlaces);
end;
end;
Thus if FDecimalPlaces is greater than zero, the separator shown, otherwise, it remains as an integer number. And when using the jvcalcedit1.text as integer, returns only numbers.
|
|---|
