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

lcl: TDBLookup - scroll dataset even if ControlLink not active

Browse Source 
git-svn-id: trunk@34763 -
This commit is contained in:
blikblum 2012-01-16 20:18:13 +00:00
parent 436bf0df59
commit 77a190e12c
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/dblookup.inc
View File

@ -334,9 +334,11 @@ var
Key: Variant; Key: Variant;
SavedEvent: TNotifyEvent; SavedEvent: TNotifyEvent;
begin begin
if not FControlLink.Active or (ValueIndex < 0) or (ValueIndex >= Length(FListKeys)) then if (ValueIndex < 0) or (ValueIndex >= Length(FListKeys)) then
Exit; Exit;
Key := FListKeys[ValueIndex]; Key := FListKeys[ValueIndex];
if FControlLink.Active then
begin
if VarSameValue(Key, FControlLink.DataSet.FieldValues[FDataFieldNames]) then if VarSameValue(Key, FControlLink.DataSet.FieldValues[FDataFieldNames]) then
Exit; Exit;
SavedEvent := FControlLink.OnDataChange; SavedEvent := FControlLink.OnDataChange;
@ -351,6 +353,7 @@ begin
for I := 0 to FDataFields.Count -1 do for I := 0 to FDataFields.Count -1 do
TField(FDataFields[I]).Value := Key[I]; TField(FDataFields[I]).Value := Key[I];
end; end;
end;
if ScrollDataset then if ScrollDataset then
FListLink.DataSet.Locate(FKeyFieldNames, Key, []); FListLink.DataSet.Locate(FKeyFieldNames, Key, []);
end; end;