pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls/TcustomFloatSISpinEditEx: Fix incorrect version check. Fix incorrect handling of negative values.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7611 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-08-17 16:39:40 +00:00
parent 7a7c8dcf82
commit c9f05e0289
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/exctrls/source/exeditctrls.pas
View File

@ -560,17 +560,15 @@ function TCustomFloatSISpinEditEx.ValueToStr(const AValue: Double): String;
var
Prefix: TSIPrefix;
LValue, Factor: Double;
{$IF LCL_FullVersion >= 2010000}
fs: TFormatSettings;
{$IFEND}
begin
LValue := GetLimitedValue(AValue);
for Prefix := Low(SIFactors) to High(SIFactors) do
begin
Factor := SIFactors[Prefix];
if (AValue >= Factor) then
if (abs(AValue) >= Factor) then
begin
{$IF LCL_FullVersion >= 2010000}
{$IF LCL_FullVersion < 2010000}
fs := DefaultFormatSettings;
fs.DecimalSeparator := DecimalSeparator;
//fs.ThousandSeparator := ThousandSeparator;