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

Cody/Dictionary: Corrected the exact number of items displayed

Browse Source
This commit is contained in:
n7800 2025-06-23 15:09:09 +05:00 committed by Maxim Ganetsky
parent 5e16f81833
commit 58dece93f7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -1139,7 +1139,7 @@ var
if IdentifierPos(FilterP,PChar(Pointer(Item.Name)))<0 then continue; if IdentifierPos(FilterP,PChar(Pointer(Item.Name)))<0 then continue;
end; end;
end; end;
if Found>MaxItems then begin if Found>MaxItems+1 then begin
inc(Found); // only count, do not check inc(Found); // only count, do not check
continue; continue;
end; end;
@ -1194,7 +1194,7 @@ var
end; end;
if FileExistsCached(Item.DUnit.Filename) then begin if FileExistsCached(Item.DUnit.Filename) then begin
inc(Found); inc(Found);
if Found<MaxItems then begin if Found<=MaxItems then begin
FItems.Add(TCodyIdentifier.Create(Item.Name, FItems.Add(TCodyIdentifier.Create(Item.Name,
Item.DUnit.Name,Item.DUnit.Filename, Item.DUnit.Name,Item.DUnit.Filename,
Group.Name,Group.Filename,AddExactMatches)); Group.Name,Group.Filename,AddExactMatches));