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 var
Prefix: TSIPrefix; Prefix: TSIPrefix;
LValue, Factor: Double; LValue, Factor: Double;
{$IF LCL_FullVersion >= 2010000}
fs: TFormatSettings; fs: TFormatSettings;
{$IFEND}
begin begin
LValue := GetLimitedValue(AValue); LValue := GetLimitedValue(AValue);
for Prefix := Low(SIFactors) to High(SIFactors) do for Prefix := Low(SIFactors) to High(SIFactors) do
begin begin
Factor := SIFactors[Prefix]; Factor := SIFactors[Prefix];
if (AValue >= Factor) then if (abs(AValue) >= Factor) then
begin begin
{$IF LCL_FullVersion >= 2010000} {$IF LCL_FullVersion < 2010000}
fs := DefaultFormatSettings; fs := DefaultFormatSettings;
fs.DecimalSeparator := DecimalSeparator; fs.DecimalSeparator := DecimalSeparator;
//fs.ThousandSeparator := ThousandSeparator; //fs.ThousandSeparator := ThousandSeparator;