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

IDE, UnitDependencies: Set overlays for LvLGraph

Browse Source
This commit is contained in:
Martin 2021-12-19 13:07:23 +01:00
parent b85a49c626
commit 4975a57869
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/unitdependencies.pas
View File

@ -2137,6 +2137,12 @@ begin
SourceGraphNode:=Graph.GetNode(c,true);
SourceGraphNode.Data:=GroupUnit;
SourceGraphNode.ImageIndex := fImgIndexUnit;
if GroupUnit.GetSCCNode.InIntfCycle then
SourceGraphNode.OverlayIndex:=fImgIndexOverlayIntfCycle
else if GroupUnit.GetSCCNode.InImplCycle then
SourceGraphNode.OverlayIndex:=fImgIndexOverlayImplCycle
else if GroupUnit.HasImplementationUses then
SourceGraphNode.OverlayIndex:=fImgIndexOverlayImplUses;
if GroupUnit.UsesUnits<>nil then begin
for i:=0 to GroupUnit.UsesUnits.Count-1 do begin
CurUses:=TUDUses(GroupUnit.UsesUnits[i]);
@ -2159,6 +2165,12 @@ begin
TargetGraphNode:=Graph.GetNode(c,true);
TargetGraphNode.Data:=UsedUnit;
TargetGraphNode.ImageIndex := fImgIndexUnit;
if UsedUnit.GetSCCNode.InIntfCycle then
TargetGraphNode.OverlayIndex:=fImgIndexOverlayIntfCycle
else if UsedUnit.GetSCCNode.InImplCycle then
TargetGraphNode.OverlayIndex:=fImgIndexOverlayImplCycle
else if UsedUnit.HasImplementationUses then
TargetGraphNode.OverlayIndex:=fImgIndexOverlayImplUses;
Graph.GetEdge(SourceGraphNode,TargetGraphNode,true);
end;
end;