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

lcl: fix deleting numbers in TDBEdit. Issue #21541

Browse Source 
git-svn-id: trunk@36295 -
This commit is contained in:
blikblum 2012-03-24 20:31:31 +00:00
parent 961dea0c00
commit 85b8beb59c
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/dbedit.inc
View File

@ -142,15 +142,12 @@ begin
else
CharKey := #255;
case CharKey of
//#8: // special keys
// if not FDatalink.Edit then
// UTF8Key:='';
#8, #32..#255: //standard keys
if not FieldCanAcceptKey(FDataLink.Field, CharKey) or not FDatalink.Edit then
UTF8Key:='';
end;//case
//handle standard keys
if CharKey in [#32..#255] then
begin
if not FieldCanAcceptKey(FDataLink.Field, CharKey) or not FDatalink.Edit then
UTF8Key := '';
end;
end;
procedure TDBEdit.Notification(AComponent: TComponent; Operation: TOperation);