paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 15:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix filtering of unicode char in dbedit issue #14679

Browse Source 
git-svn-id: trunk@35536 -
This commit is contained in:
blikblum 2012-02-21 13:09:47 +00:00
parent 464767f88f
commit 46ef55241c
2 changed files with 19 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/dbctrls.pp
View File

@ -184,7 +184,7 @@ Type
function GetReadOnly: Boolean; override;
procedure SetReadOnly(Value: Boolean); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;

45
lcl/include/dbedit.inc
View File

@ -126,36 +126,27 @@ begin
end;
end;
procedure TDBEdit.KeyPress(var Key: char);
procedure TDBEdit.UTF8KeyPress(var UTF8Key: TUTF8Char);
var
SavedKey: Char;
CharKey: Char;
begin
SavedKey := Key;
inherited KeyPress(Key);
//TCustomMaskEdit sets all normal Keys (and BackSpace) to #0 if IsMasked
//but not if control is ReadOnly
if (not IsMasked) or (inherited ReadOnly) then
begin
case Key of
#8: // special keys
if not FDatalink.Edit then
Key:=#0;
#32..#255: //standard keys
if not FieldCanAcceptKey(FDataLink.Field, Key) or not FDatalink.Edit then
Key:=#0;
end;//case
end
inherited UTF8KeyPress(UTF8Key);
//If the pressed key is unicode then map the char to #255
//Necessary to keep the TField.IsValidChar check
if Length(UTF8Key) = 1 then
CharKey := UTF8Key[1]
else
begin
case SavedKey of
#8: // special keys
FDatalink.Edit;
#32..#255: //standard keys
if FieldCanAcceptKey(FDataLink.Field, SavedKey) then
FDatalink.Edit;
end;//case
end;
CharKey := #255;
case CharKey of
#8: // special keys
if not FDatalink.Edit then
UTF8Key:='';
#32..#255: //standard keys
if not FieldCanAcceptKey(FDataLink.Field, CharKey) or not FDatalink.Edit then
UTF8Key:='';
end;//case
end;
procedure TDBEdit.Notification(AComponent: TComponent; Operation: TOperation);