paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/FloatSpinEdit: Fix KeyPress swallowing the 'e' of exponential notation.

Browse Source 
(cherry picked from commit e10b896d7e)
This commit is contained in:
wp_xyz 2022-06-10 17:21:27 +02:00 committed by Maxim Ganetsky
parent c7f93033ac
commit 95bffdbfbb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/spinedit.inc
View File

@ -133,7 +133,7 @@ procedure TCustomFloatSpinEdit.KeyPress(var Key: char);
begin
inherited KeyPress(Key);
if (Key in ['.',',']) then Key := DefaultFormatSettings.Decimalseparator;
if not (Key in ['0'..'9', DefaultFormatSettings.DecimalSeparator,'+','-',#8,#9,^C,^X,^V,^Z]) then Key := #0;
if not (Key in ['0'..'9', DefaultFormatSettings.DecimalSeparator,'+','-','e','E',#8,#9,^C,^X,^V,^Z]) then Key := #0;
if (Key = DefaultFormatSettings.DecimalSeparator) and (FDecimals = 0) then Key := #0;
end;