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

IDEIntf: listview items editor: fixed av when creating subitem without selected

Browse Source 
git-svn-id: trunk@23938 -
This commit is contained in:
mattias 2010-03-11 13:37:15 +00:00
parent 12e669587d
commit 4b231aca99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/listviewpropedit.pp
View File

@ -123,7 +123,7 @@ begin
TreeView1.Selected := TreeView1.Items.Add(nil, S)
else
begin
if TreeView1.Selected.Level = 0 then
if (TreeView1.Selected=nil) or (TreeView1.Selected.Level = 0) then
TreeView1.Selected := TreeView1.Items.AddChild(TreeView1.Selected, S)
else
TreeView1.Selected := TreeView1.Items.Add(TreeView1.Selected, S);