paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 20:38:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix datalink not being notified by changes in dbedit with mask. Inherited KeyPress always set Key to #0

Browse Source 
git-svn-id: trunk@25252 -
This commit is contained in:
blikblum 2010-05-08 14:54:37 +00:00
parent 59f8b84790
commit c58144c6b8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbedit.inc
View File

@ -161,9 +161,9 @@ begin
end;
procedure TDBEdit.KeyPress(var Key: char);
function CanAcceptKey: boolean;
function CanAcceptKey(AKey: char): boolean;
begin
Result := (Field<>nil) and Field.IsValidChar(Key) and
Result := (Field<>nil) and Field.IsValidChar(AKey) and
(Field.DataType<>ftAutoInc);
end;
var
@ -183,7 +183,7 @@ begin
Key:=#0;
#32..#255: //standard keys
if not IsReadOnly and CanAcceptKey then
if not IsReadOnly and CanAcceptKey(Key) then
FDatalink.Edit
else
Key:=#0;
@ -196,7 +196,7 @@ begin
if not IsReadOnly then
FDatalink.Edit;
#32..#255: //standard keys
if not IsReadOnly and CanAcceptKey then
if not IsReadOnly and CanAcceptKey(SavedKey) then
FDatalink.Edit;
end;//case
end;