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

cody: unit deps: all units: icons

Browse Source 
git-svn-id: trunk@41747 -
This commit is contained in:
mattias 2013-06-17 14:52:44 +00:00
parent 27ca29b64a
commit a7678fdc2f
1 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/codetools/ide/codyunitdepwnd.pas
View File

@ -54,8 +54,8 @@ uses
Classes, SysUtils, AVL_Tree, LazLogger, LazFileUtils, LazUTF8, Forms,
Controls, ExtCtrls, ComCtrls, StdCtrls, Buttons, Dialogs, LvlGraphCtrl,
LazIDEIntf, ProjectIntf, IDEWindowIntf, PackageIntf, SrcEditorIntf,
IDEDialogs, CodeToolManager, DefineTemplates, CodeToolsStructs, CTUnitGraph,
CTUnitGroupGraph, FileProcs;
IDEDialogs, IDEImagesIntf, CodeToolManager, DefineTemplates, CodeToolsStructs,
CTUnitGraph, CTUnitGroupGraph, FileProcs;
const
GroupPrefixProject = '-Project-';
@ -160,6 +160,10 @@ type
FGroups: TUGGroups; // referenced by Nodes.Data of GroupsLvlGraph
FAllUnitsRootUDNode: TUDNode;
FFlags: TUDWFlags;
fImgIndexProject: integer;
fImgIndexUnit: integer;
fImgIndexPackage: integer;
fImgIndexDirectory: integer;
function CreateAllUnitsTree: TUDNode;
procedure SetAllUnitsMultiSelect(AValue: boolean);
procedure SetCurrentUnit(AValue: TUGUnit);
@ -178,6 +182,7 @@ type
procedure UpdateGroupsLvlGraph;
procedure UpdateUnitsLvlGraph;
procedure UpdateAllUnitsTreeView;
function GetImgIndex(Node: TUDNode): integer;
function NodeTextToUnit(NodeText: string): TUGUnit;
function UGUnitToNodeText(UGUnit: TUGUnit): string;
function GetFPCSrcDir: string;
@ -288,6 +293,12 @@ begin
ProgressBar1.Style:=pbstMarquee;
AddStartAndTargetUnits;
fImgIndexProject := IDEImages.LoadImage(16, 'item_project');
fImgIndexUnit := IDEImages.LoadImage(16, 'item_unit');
fImgIndexPackage := IDEImages.LoadImage(16, 'pkg_required');
fImgIndexDirectory := IDEImages.LoadImage(16, 'pkg_files');
AllUnitsTreeView.Images:=IDEImages.Images_16;
Caption:='Unit Dependencies';
MainPageControl.ActivePage:=UnitsTabSheet;
@ -1025,6 +1036,8 @@ procedure TUnitDependenciesWindow.UpdateAllUnitsTreeView;
UDNode:=TUDNode(AVLNode.Data);
TVNode:=TV.Items.AddChild(ParentTVNode,UDNode.NodeText);
TVNode.Data:=UDNode;
TVNode.ImageIndex:=GetImgIndex(UDNode);
TVNode.StateIndex:=TVNode.ImageIndex;
CreateTVNodes(TV,TVNode,UDNode);
TVNode.Expanded:=true;
AVLNode:=ParentUDNode.ChildNodes.FindSuccessor(AVLNode);
@ -1057,6 +1070,26 @@ begin
TV.EndUpdate;
end;
function TUnitDependenciesWindow.GetImgIndex(Node: TUDNode): integer;
begin
case Node.Typ of
//udnNone: ;
udnGroup:
if Node.Group=GroupPrefixProject then
Result:=fImgIndexProject
else
Result:=fImgIndexPackage;
udnDirectory: Result:=fImgIndexDirectory;
//udnInterface: ;
//udnImplementation: ;
//udnUsedByInterface: ;
//udnUsedByImplementation: ;
udnUnit: Result:=fImgIndexUnit;
else
Result:=fImgIndexDirectory;
end;
end;
function TUnitDependenciesWindow.NodeTextToUnit(NodeText: string): TUGUnit;
var
AVLNode: TAVLTreeNode;