paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 09:16:15 +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 UGUnitToNodeText(UGUnit: TUGUnit): string;
function GetFPCSrcDir: string; function GetFPCSrcDir: string;
function IsFPCSrcGroup(Group: TUGGroup): boolean; function IsFPCSrcGroup(Group: TUGGroup): boolean;
function IsProjectGroup(Group: TUGGroup): boolean;
public public
CurUnitDiagram: TCircleDiagramControl; CurUnitDiagram: TCircleDiagramControl;
GroupsLvlGraph: TLvlGraphControl; // Nodes.Data are TUGGroup of Groups GroupsLvlGraph: TLvlGraphControl; // Nodes.Data are TUGGroup of Groups
@ -197,6 +198,7 @@ begin
Caption:=''; Caption:='';
Align:=alTop; Align:=alTop;
Height:=200; Height:=200;
NodeStyle.GapBottom:=5;
Parent:=GroupsTabSheet; Parent:=GroupsTabSheet;
OnSelectionChanged:=@GroupsLvlGraphSelectionChanged; OnSelectionChanged:=@GroupsLvlGraphSelectionChanged;
end; end;
@ -209,6 +211,7 @@ begin
Name:='UnitsLvlGraph'; Name:='UnitsLvlGraph';
Caption:=''; Caption:='';
Align:=alClient; Align:=alClient;
NodeStyle.GapBottom:=5;
Parent:=GroupsTabSheet; Parent:=GroupsTabSheet;
end; end;
@ -559,7 +562,7 @@ begin
GraphGroup:=Graph.GetNode(Group.Name,true); GraphGroup:=Graph.GetNode(Group.Name,true);
GraphGroup.Data:=Group; GraphGroup.Data:=Group;
GroupObj:=nil; GroupObj:=nil;
if Group.Name=GroupPrefixProject then begin if IsProjectGroup(Group) then begin
// project // project
GroupObj:=LazarusIDE.ActiveProject; GroupObj:=LazarusIDE.ActiveProject;
GraphGroup.Selected:=true; GraphGroup.Selected:=true;
@ -717,6 +720,11 @@ begin
Result:=(Group<>nil) and (LeftStr(Group.Name,length(GroupPrefixFPCSrc))=GroupPrefixFPCSrc); Result:=(Group<>nil) and (LeftStr(Group.Name,length(GroupPrefixFPCSrc))=GroupPrefixFPCSrc);
end; end;
function TUnitDependenciesDialog.IsProjectGroup(Group: TUGGroup): boolean;
begin
Result:=(Group<>nil) and (Group.Name=GroupPrefixProject);
end;
{$R *.lfm} {$R *.lfm}
end. end.