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

lcl: properly initialize keys for sorted lookup controls. Issue #23619

Browse Source 
git-svn-id: trunk@41414 -
This commit is contained in:
blikblum 2013-05-26 12:25:04 +00:00
parent 35ac6f51b9
commit dfdab62ac2
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/include/dblookup.inc
View File

@ -208,9 +208,17 @@ begin
end;
end;
procedure TDBLookup.FetchLookupData;
procedure SlideKeyList(var KeyList: array of Variant; Index, ListCount: Integer);
var
i: Integer;
begin
for i := ListCount - 1 downto Index do
KeyList[i + 1] := KeyList[i];
end;
procedure TDBLookup.FetchLookupData;
var
KeyIndex, KeyListCount: Integer;
ListLinkDataSet: TDataSet;
begin
if not Assigned(FControlItems) then
@ -228,14 +236,21 @@ begin
ListLinkDataSet.Last;
ListLinkDataSet.First;
SetLength(FListKeys, ListLinkDataSet.RecordCount);
i := 0;
KeyListCount := 0;
while not ListLinkDataSet.EOF do
begin
FListKeys[i] := ListLinkDataSet.FieldValues[FKeyFieldNames];
Inc(i);
FControlItems.Add(FListField.DisplayText);
KeyIndex := FControlItems.Add(FListField.DisplayText);
//check if item was really added (in sorted list duplicate values are not added)
if FControlItems.Count > KeyListCount then
begin
if KeyIndex < KeyListCount then
SlideKeyList(FListKeys, KeyIndex, KeyListCount);
FListKeys[KeyIndex] := ListLinkDataSet.FieldValues[FKeyFieldNames];
Inc(KeyListCount);
end;
ListLinkDataSet.Next;
end;
SetLength(FListKeys, KeyListCount);
finally
LinkGotoBookMark;
end;