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

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

Browse Source
This commit is contained in:
wp_xyz 2022-06-10 17:21:27 +02:00
parent 7d66280e62
commit e10b896d7e
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 begin
inherited KeyPress(Key); inherited KeyPress(Key);
if (Key in ['.',',']) then Key := DefaultFormatSettings.Decimalseparator; 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; if (Key = DefaultFormatSettings.DecimalSeparator) and (FDecimals = 0) then Key := #0;
end; end;