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

IDE: fixed selected image in the component treeview from Martin Smat (#8829)

Browse Source 
git-svn-id: trunk@11097 -
This commit is contained in:
vincents 2007-05-08 02:02:13 +00:00
parent 78584a938d
commit 9ea067bcdb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ideintf/componenttreeview.pas
View File

@ -286,6 +286,7 @@ var
NewNode:=Items.AddChild(ANode,CreateNodeCaption(CurControl));
NewNode.Data:=CurControl;
NewNode.ImageIndex:=GetImageFor(CurControl);
NewNode.SelectedIndex:=NewNode.ImageIndex;
NewNode.MultiSelected:=Selection.IndexOf(CurControl)>=0;
if CurControl is TWinControl then
AddChildControls(TWinControl(CurControl),NewNode);
@ -313,6 +314,7 @@ var
NewNode:=Items.AddChild(ANode,CreateNodeCaption(CurMenuItem));
NewNode.Data:=CurMenuItem;
NewNode.ImageIndex:=1;
NewNode.SelectedIndex:=NewNode.ImageIndex;
NewNode.MultiSelected:=Selection.IndexOf(CurMenuItem)>=0;
AddMenuItemChilds(CurMenuItem,NewNode);
end;
@ -344,6 +346,7 @@ begin
RootNode:=Items.Add(nil,CreateNodeCaption(RootObject));
RootNode.Data:=RootObject;
RootNode.ImageIndex:=0;
RootNode.SelectedIndex:=RootNode.ImageIndex;
RootNode.MultiSelected:=Selection.IndexOf(RootObject)>=0;
// create candidate nodes for every child
@ -392,6 +395,7 @@ begin
NewNode:=Items.AddChild(RootNode,CreateNodeCaption(AComponent));
NewNode.Data:=AComponent;
NewNode.ImageIndex:=GetImageFor(AComponent);
NewNode.SelectedIndex:=NewNode.ImageIndex;
NewNode.MultiSelected:=Selection.IndexOf(AComponent)>=0;
if AComponent is TWinControl then
AddChildControls(TWinControl(AComponent),NewNode)