From 865c17f41484650858a36918adef7d5137b31c86 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 13 Sep 2022 18:01:02 +0000
Subject: [PATCH] ExCtrls: Fix CurrSpinEditEx swalling typing of
 decimalseparator.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8479 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/exctrls/source/exeditctrls.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/exctrls/source/exeditctrls.pas b/components/exctrls/source/exeditctrls.pas
index 0028fc0d9..f259e0b9a 100644
--- a/components/exctrls/source/exeditctrls.pas
+++ b/components/exctrls/source/exeditctrls.pas
@@ -320,7 +320,7 @@ begin
   {Disallow any key that is not a digit or -
    Tab, BackSpace, Cut, Paste, Copy, Undo of course should be passed onto inherited KeyPress
   }
-  if not (Key in (Digits + AllowedControlChars + ['-'])) then Key := #0;
+  if not (Key in (Digits + AllowedControlChars + ['-', FDecimalSeparator])) then Key := #0;
   if (Key = '-') and IsLimited and (MinValue >= 0) then Key := #0;
 end;