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

LCL, dbgrid, fix locked editor in case of exception, from Petr-K, issue #26461

Browse Source 
git-svn-id: trunk@45816 -
This commit is contained in:
jesus 2014-07-08 19:12:47 +00:00
parent 06c9143ef4
commit a3a3e0ba9a
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/dbgrids.pas
View File

@ -1145,27 +1145,30 @@ begin
{$endif}
StartUpdating;
edField.Text := FTempText;
if edField.Lookup then
begin
LookupKeyValues := Null;
if edField.LookupCache then
LookupKeyValues := edField.LookupList.FirstKeyByValue(FTempText)
else
try
edField.Text := FTempText;
if edField.Lookup then
begin
LookupGetBookMark(edField);
try
if edField.LookupDataSet.Locate(edField.LookupResultField,
VarArrayOf([FTempText]), []) then
LookupKeyValues :=
edField.LookupDataSet.FieldValues[edField.LookupKeyFields];
finally
LookupGotoBookMark(edField);
LookupKeyValues := Null;
if edField.LookupCache then
LookupKeyValues := edField.LookupList.FirstKeyByValue(FTempText)
else
begin
LookupGetBookMark(edField);
try
if edField.LookupDataSet.Locate(edField.LookupResultField,
VarArrayOf([FTempText]), []) then
LookupKeyValues :=
edField.LookupDataSet.FieldValues[edField.LookupKeyFields];
finally
LookupGotoBookMark(edField);
end;
end;
edField.DataSet.FieldValues[edField.KeyFields] := LookupKeyValues;
end;
edField.DataSet.FieldValues[edField.KeyFields] := LookupKeyValues;
finally
EndUpdating;
end;
EndUpdating;
EditingColumn(FEditingColumn, False);
{$ifdef dbgDBGrid}