paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 04:17:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

TFloatSpinEdit: don't "eat" Undo keyboard shortcut (Ctrl+Z)

Browse Source 
git-svn-id: trunk@51126 -
This commit is contained in:
bart 2016-01-02 15:11:53 +00:00
parent 4b5747f9d1
commit 49b92bd91e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/spinedit.inc
View File

@ -94,7 +94,7 @@ end;
procedure TCustomFloatSpinEdit.KeyPress(var Key: char); procedure TCustomFloatSpinEdit.KeyPress(var Key: char);
{Disallow any key that is not a digit, decimalseparator, + or - {Disallow any key that is not a digit, decimalseparator, + or -
For ease of use translate any decimalpoint or comma to DecimalSeparator For ease of use translate any decimalpoint or comma to DecimalSeparator
Tab and backSpace ofcourse should be passed onto inherited KeyPress Tab, BackSpace, Cut, Paste, Copy, Undo of course should be passed onto inherited KeyPress
If FDecimals = 0 (as in TSpinEdit), disallow decimalseparator also If FDecimals = 0 (as in TSpinEdit), disallow decimalseparator also
We could make it more sophisticated and only allow +/- at front, We could make it more sophisticated and only allow +/- at front,
DecimalSeparator only if not already in text, but this way is Delphi compatible DecimalSeparator only if not already in text, but this way is Delphi compatible
@ -102,7 +102,7 @@ procedure TCustomFloatSpinEdit.KeyPress(var Key: char);
begin begin
inherited KeyPress(Key); inherited KeyPress(Key);
if (Key in ['.',',']) then Key := DefaultFormatSettings.Decimalseparator; if (Key in ['.',',']) then Key := DefaultFormatSettings.Decimalseparator;
if not (Key in ['0'..'9', DefaultFormatSettings.DecimalSeparator,'+','-',#8,#9,^C,^X,^V]) then Key := #0; if not (Key in ['0'..'9', DefaultFormatSettings.DecimalSeparator,'+','-',#8,#9,^C,^X,^V,^Z]) then Key := #0;
if (Key = DefaultFormatSettings.DecimalSeparator) and (FDecimals = 0) then Key := #0; if (Key = DefaultFormatSettings.DecimalSeparator) and (FDecimals = 0) then Key := #0;
end; end;