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

ExCtrls: Add "K" and "u" as multipliers for 1E3 and 1E-6 in TFloatSISpinEditEx. Add multiplier 1.

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

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

@ -170,7 +170,8 @@ type
{ TCustomFloatSISpinEdit (Author: Bart Broersma) }
TSIPrefix = (Yotta,Zetta,Exa,Peta,Tera,Giga,Mega,Kilo,mili,micro,microalt,nano,pico,femto,atto,zepto,yocto);
TSIPrefix = (Yotta,Zetta,Exa,Peta,Tera,Giga,Mega,kilo,kiloUC,One,
milli,micro,microU,microalt,nano,pico,femto,atto,zepto,yocto);
TCustomFloatSISpinEditEx = class(TCustomFloatSpinEditEx)
private
@ -272,9 +273,14 @@ const
Digits = ['0'..'9'];
AllowedControlChars = [#8, #9, ^C, ^X, ^V, ^Z];
SIPrefixes: array[TSIPrefix] of String = ('Y', 'Z','E','P','T','G','M','k','m','µ','mc','n','p','f','a','z','y');
SIFactors: array[TSIPrefix] of Double = (1E+24, 1E+21, 1E+18, 1E+15, 1E+12, 1E+9, 1E+6, 1E+3,
1E-3,1E-6,1E-6,1E-9,1E-12,1E-15,1E-18,1E-21,1E-24);
SIPrefixes: array[TSIPrefix] of String = (
'Y', 'Z', 'E', 'P', 'T', 'G', 'M', 'k', 'K', '',
'm', 'µ', 'mc', 'u', 'n', 'p', 'f', 'a', 'z', 'y'
);
SIFactors: array[TSIPrefix] of Double = (
1E+24, 1E+21, 1E+18, 1E+15, 1E+12, 1E+9, 1E+6, 1E+3, 1E+3, 1.0,
1E-3, 1E-6, 1E-6, 1E-6, 1E-9, 1E-12, 1E-15, 1E-18, 1E-21, 1E-24
);
function UTF8EndsStr(const ASubStr, AStr: string): Boolean;
var