From 77e410ec98dc348a3bd56a02f389d4860e18e920 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 24 Feb 2013 14:40:40 +0000
Subject: [PATCH] cody: unit dependencies: space below nodes

git-svn-id: trunk@40388 -
---
 components/codetools/ide/codyunitdepwnd.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/components/codetools/ide/codyunitdepwnd.pas b/components/codetools/ide/codyunitdepwnd.pas
index f966cc5393..36979b3b66 100644
--- a/components/codetools/ide/codyunitdepwnd.pas
+++ b/components/codetools/ide/codyunitdepwnd.pas
@@ -98,6 +98,7 @@ type
     function UGUnitToNodeText(UGUnit: TUGUnit): string;
     function GetFPCSrcDir: string;
     function IsFPCSrcGroup(Group: TUGGroup): boolean;
+    function IsProjectGroup(Group: TUGGroup): boolean;
   public
     CurUnitDiagram: TCircleDiagramControl;
     GroupsLvlGraph: TLvlGraphControl; // Nodes.Data are TUGGroup of Groups
@@ -197,6 +198,7 @@ begin
     Caption:='';
     Align:=alTop;
     Height:=200;
+    NodeStyle.GapBottom:=5;
     Parent:=GroupsTabSheet;
     OnSelectionChanged:=@GroupsLvlGraphSelectionChanged;
   end;
@@ -209,6 +211,7 @@ begin
     Name:='UnitsLvlGraph';
     Caption:='';
     Align:=alClient;
+    NodeStyle.GapBottom:=5;
     Parent:=GroupsTabSheet;
   end;
 
@@ -559,7 +562,7 @@ begin
     GraphGroup:=Graph.GetNode(Group.Name,true);
     GraphGroup.Data:=Group;
     GroupObj:=nil;
-    if Group.Name=GroupPrefixProject then begin
+    if IsProjectGroup(Group) then begin
       // project
       GroupObj:=LazarusIDE.ActiveProject;
       GraphGroup.Selected:=true;
@@ -717,6 +720,11 @@ begin
   Result:=(Group<>nil) and (LeftStr(Group.Name,length(GroupPrefixFPCSrc))=GroupPrefixFPCSrc);
 end;
 
+function TUnitDependenciesDialog.IsProjectGroup(Group: TUGGroup): boolean;
+begin
+  Result:=(Group<>nil) and (Group.Name=GroupPrefixProject);
+end;
+
 {$R *.lfm}
 
 end.