paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 14:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: fix TFloatSpinEditEx.ValueToStr.

Browse Source 
git-svn-id: trunk@63700 -
This commit is contained in:
bart 2020-08-08 21:12:54 +00:00
parent e6dcde11e5
commit c5e931129d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazcontrols/spinex.inc
View File

@ -468,8 +468,8 @@ begin
Result := FloatToStrF(LValue, ffFixed, 20, DecimalPlaces, FFS)
else
begin
if (Abs(LValue) > 10**FExponentialFormatLimitPos) or
(Abs(LValue) > 10**FExponentialFormatLimitNeg) then
if (Abs(LValue) > Power(10,FExponentialFormatLimitPos)) or
(Abs(LValue) < Power(10,FExponentialFormatLimitNeg)) then
Result := FloatToStrF(GetLimitedValue(AValue), ffExponent, FPrecision, DecimalPlaces, FFS)
else
Result := FloatToStrF(LValue, ffFixed, 20, DecimalPlaces, FFS)