paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 19:47:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package graph: ShowPath: compare case insensitive

Browse Source 
git-svn-id: trunk@34543 -
This commit is contained in:
mattias 2012-01-02 18:05:31 +00:00
parent 9e21a00a70
commit 5cc3fd42cb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packager/pkggraphexplorer.pas
View File

@ -599,8 +599,10 @@ var
Node:=FindMainNodeWithText(NodeText)
else begin
Node.Expanded:=true;
i:=Node.IndexOfText(NodeText);
if i>=0 then
i:=0;
while (i<=Node.Count) and (SysUtils.CompareText(Node[i].Text,NodeText)<>0)
do inc(i);
if i<Node.Count then
Node:=Node.Items[i]
else
Node:=nil;