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

cody: dictionary: update list after loading

Browse Source 
git-svn-id: trunk@34228 -
This commit is contained in:
mattias 2011-12-16 19:43:35 +00:00
parent 5ab530a8e7
commit 200a73c1cd
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -711,6 +711,7 @@ begin
if not CodyUnitDictionary.Loaded then begin
CodyUnitDictionary.Load;
UpdateGeneralInfo;
UpdateItemsList;
end;
if (FLastFilter<>GetFilterEditText)
or (FLastHideOtherProjects<>HideOtherProjectsCheckBox.Checked)
@ -772,18 +773,16 @@ var
Node: TAVLTreeNode;
begin
Node:=CodyUnitDictionary.Identifiers.FindLowest;
debugln(['TCodyIdentifiersDlg.UpdateItemsList Filter="',FLastFilter,'" Count=',CodyUnitDictionary.Identifiers.Count]);
//debugln(['TCodyIdentifiersDlg.UpdateItemsList Filter="',FLastFilter,'" Count=',CodyUnitDictionary.Identifiers.Count]);
while Node<>nil do begin
Item:=TUDIdentifier(Node.Data);
Node:=CodyUnitDictionary.Identifiers.FindSuccessor(Node);
debugln(['AddItems checking ',Item.Name]);
if CompareIdentifiers(FilterP,PChar(Pointer(Item.Name)))=0 then begin
// exact match
if not AddExactMatches then continue;
end else begin
// not exact
if AddExactMatches then continue;
debugln(['AddItems ',ord(FLastFilterType),' ',Item.Name]);
case FLastFilterType of
cifStartsWith:
if not ComparePrefixIdent(FilterP,PChar(Pointer(Item.Name))) then continue;
@ -791,7 +790,6 @@ var
if System.Pos(FLastFilter,Item.Name)<1 then continue;
end;
end;
debugln(['AddItems name FITS ',ord(FLastFilterType),' ',Item.Name]);
if Found>MaxItems then begin
inc(Found); // only count, do not check
continue;
@ -843,6 +841,7 @@ var
end;
begin
if not CodyUnitDictionary.Loaded then exit;
FLastFilter:=GetFilterEditText;
FilterP:=PChar(FLastFilter);