paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 07:13:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeexplorer: using icons for category nodes

Browse Source 
git-svn-id: trunk@13557 -
This commit is contained in:
mattias 2008-01-01 16:43:17 +00:00
parent 49f04ab86a
commit 36b392a837
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codeexplorer.pas
View File

@ -622,8 +622,12 @@ begin
if ShowNode then begin
if fCategoryNodes[Category]=nil then begin
NodeData:=TViewNodeData.Create(CodeNode.Parent);
NodeText:=CodeExplorerLocalizedString(Category);
NodeImageIndex:=GetCodeNodeImage(ACodeTool,CodeNode.Parent);
fCategoryNodes[Category]:=CodeTreeview.Items.AddChildObject(nil,
CodeExplorerLocalizedString(Category),NodeData);
NodeText,NodeData);
fCategoryNodes[Category].ImageIndex:=NodeImageIndex;
fCategoryNodes[Category].SelectedIndex:=NodeImageIndex;
end;
ParentViewNode:=fCategoryNodes[Category];
InFrontViewNode:=nil;