paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 05:52:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

cody: unit dependencies: space below nodes

Browse Source 
git-svn-id: trunk@40388 -
This commit is contained in:
mattias 2013-02-24 14:40:40 +00:00
parent b0b8409a1c
commit 77e410ec98
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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.