From e10b896d7e1a119dd453c179287d402ce036cb3f Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Fri, 10 Jun 2022 17:21:27 +0200
Subject: [PATCH] LCL/FloatSpinEdit: Fix KeyPress swallowing the 'e' of
 exponential notation.

---
 lcl/include/spinedit.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/spinedit.inc b/lcl/include/spinedit.inc
index 5e5e67d3e0..a4080abddc 100644
--- a/lcl/include/spinedit.inc
+++ b/lcl/include/spinedit.inc
@@ -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;