From e73e881289124957a171d0ff77b3b5ec260d7645 Mon Sep 17 00:00:00 2001 From: bart <9132501-flyingsheep@users.noreply.gitlab.com> Date: Wed, 19 Aug 2020 19:45:47 +0000 Subject: [PATCH] SpinEx: don't call inherited KeyPress twice in TCustomSpinEditEx.EditKeyPress. git-svn-id: trunk@63795 - --- components/lazcontrols/spinex.inc | 1 - 1 file changed, 1 deletion(-) diff --git a/components/lazcontrols/spinex.inc b/components/lazcontrols/spinex.inc index 0aaf8a4a56..49b5e9a797 100644 --- a/components/lazcontrols/spinex.inc +++ b/components/lazcontrols/spinex.inc @@ -599,7 +599,6 @@ begin {Disallow any key that is not a digit or - or (part of) FThousandSeparator Tab, BackSpace, Cut, Paste, Copy, Undo of course should be passed onto inherited KeyPress } - inherited EditKeyPress(Key); if not ((Key in (Digits + AllowedControlChars + ['-'])) or (Pos(Key, FThousandSeparator) > 0)) then Key := #0; if (Key = '-') and IsLimited and (MinValue >= 0) then Key := #0; end;