paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:40:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

SpinEx: don't call inherited KeyPress twice in TCustomSpinEditEx.EditKeyPress.

Browse Source 
git-svn-id: trunk@63795 -
This commit is contained in:
bart 2020-08-19 19:45:47 +00:00
parent c4d125495e
commit e73e881289
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazcontrols/spinex.inc
View File

@ -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;