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

lcl: apply patch for issue "DBEdit does not update the dataset" by Bart Broersma (mantis #0012938)

Browse Source 
git-svn-id: trunk@18225 -
This commit is contained in:
paul 2009-01-09 17:21:16 +00:00
parent 530feb4ea2
commit 84b988a827
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/maskedit.pp
View File

@ -1054,8 +1054,8 @@ procedure TCustomMaskEdit.TextChanged;
begin
if not IsMasked then
begin
Exit;
Inherited TextChanged;
Exit;
end;
if FChangeAllowed then Inherited TextChanged;
if not FChangeAllowed then
@ -1392,7 +1392,8 @@ begin
begin
DeleteSelected;
InsertChar(Key);
Key:= #0;
//TDBEdit needs the value of Key to decide if Datasource is in Edit state
//Key:= #0;
end;
end;
@ -1496,6 +1497,8 @@ begin
and TextIsValid might wrongly return False
We need the text with literals and FSpaceChar translated to #32
}
//Somehow TDBEdit calls ValidateEdit even no mask is set!!
if not IsMasked then Exit;
_MaskSave := FMaskSave;
FMaskSave := True;
S := Text;