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

LCL: TTreeView: fixed GetIndex, bug #13249, from Petrov

Browse Source 
git-svn-id: trunk@18843 -
This commit is contained in:
mattias 2009-02-28 10:14:31 +00:00
parent 0feb94742e
commit d5cc8b6e8b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/treeview.inc
View File

@ -999,6 +999,7 @@ var
begin
if FIndex>=0 then begin
Result:=FIndex;
exit;
end;
// many algorithms uses the last sibling, so we check that first for speed
if (Parent<>nil) and (Parent[Parent.Count-1]=Self) then begin