paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 07:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

SpinEx: dont call inherited KeyPress twice in TCustomSpinEx.KeyPress.

Browse Source 
git-svn-id: branches/fixes_2_0@64012 -
This commit is contained in:
mattias 2020-10-15 11:21:08 +00:00
parent 886ab5f015
commit ebab00eb5b
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

@ -483,7 +483,6 @@ begin
{Disallow any key that is not a digit or - {Disallow any key that is not a digit or -
Tab, BackSpace, Cut, Paste, Copy, Undo of course should be passed onto inherited KeyPress Tab, BackSpace, Cut, Paste, Copy, Undo of course should be passed onto inherited KeyPress
} }
inherited EditKeyPress(Key);
if not (Key in (Digits + AllowedControlChars + ['-'])) then Key := #0; if not (Key in (Digits + AllowedControlChars + ['-'])) then Key := #0;
if (Key = '-') and IsLimited and (MinValue >= 0) then Key := #0; if (Key = '-') and IsLimited and (MinValue >= 0) then Key := #0;
end; end;