pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Fix CurrSpinEditEx swalling typing of decimalseparator.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8479 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-13 18:01:02 +00:00
parent da1df02e83
commit 865c17f414
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/exctrls/source/exeditctrls.pas
View File

@ -320,7 +320,7 @@ 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
} }
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; if (Key = '-') and IsLimited and (MinValue >= 0) then Key := #0;
end; end;