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

ide: set correct imageindex for uses section and used unit nodes

Browse Source 
git-svn-id: trunk@19594 -
This commit is contained in:
paul 2009-04-24 03:07:44 +00:00
parent 841d9ef2fb
commit 2da1e36c1c
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ide/codeexplorer.pas
View File

@ -577,13 +577,13 @@ function TCodeExplorerView.GetCodeNodeImage(Tool: TFindDeclarationTool;
CodeNode: TCodeTreeNode): integer; CodeNode: TCodeTreeNode): integer;
begin begin
case CodeNode.Desc of case CodeNode.Desc of
ctnProgram,ctnLibrary,ctnPackage: Result:=ImgIDProgram; ctnProgram,ctnLibrary,ctnPackage: Result:=ImgIDProgram;
ctnUnit: Result:=ImgIDUnit; ctnUnit: Result:=ImgIDUnit;
ctnInterface: Result:=ImgIDInterface; ctnInterface: Result:=ImgIDInterface;
ctnImplementation: Result:=ImgIDImplementation; ctnImplementation: Result:=ImgIDImplementation;
ctnInitialization: Result:=ImgIDInitialization; ctnInitialization: Result:=ImgIDInitialization;
ctnFinalization: Result:=ImgIDFinalization; ctnFinalization: Result:=ImgIDFinalization;
ctnTypeSection: Result:=ImgIDSection; ctnTypeSection: Result:=ImgIDSection;
ctnTypeDefinition: ctnTypeDefinition:
begin begin
if (CodeNode.FirstChild <> nil) and (CodeNode.FirstChild.Desc = ctnClass) then if (CodeNode.FirstChild <> nil) and (CodeNode.FirstChild.Desc = ctnClass) then
@ -591,16 +591,18 @@ begin
else else
Result := ImgIDType; Result := ImgIDType;
end; end;
ctnVarSection: Result:=ImgIDSection; ctnVarSection: Result:=ImgIDSection;
ctnVarDefinition: Result:=ImgIDVariable; ctnVarDefinition: Result:=ImgIDVariable;
ctnConstSection,ctnResStrSection: Result:=ImgIDSection; ctnConstSection,ctnResStrSection: Result:=ImgIDSection;
ctnConstDefinition: Result:=ImgIDConst; ctnConstDefinition: Result:=ImgIDConst;
ctnClass: Result:=ImgIDClass; ctnClass: Result:=ImgIDClass;
ctnProcedure: if Tool.NodeIsFunction(CodeNode) then ctnProcedure: if Tool.NodeIsFunction(CodeNode) then
Result:=ImgIDFunction Result:=ImgIDFunction
else else
Result:=ImgIDProcedure; Result:=ImgIDProcedure;
ctnProperty: Result:=ImgIDProperty; ctnProperty: Result:=ImgIDProperty;
ctnUsesSection: Result:= ImgIDSection;
ctnUseUnit: Result:=ImgIDUnit;
else else
Result:=ImgIDDefault; Result:=ImgIDDefault;
end; end;