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

cody: lvlgraph: highlight edges: fixed keeping direction

Browse Source 
git-svn-id: trunk@40449 -
This commit is contained in:
mattias 2013-02-28 20:59:25 +00:00
parent 0879234f8d
commit 68ce7a5e9a
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/codetools/ide/codyctrls.pas
View File

@ -1776,25 +1776,28 @@ end;
procedure TCustomLvlGraphControl.DrawEdges(Highlighted: boolean);
procedure HighlightNode(Node: TLvlGraphNode; HighlightedElements: TAvgLvlTree);
procedure HighlightNode(Node: TLvlGraphNode; HighlightedElements: TAvgLvlTree;
FollowIn, FollowOut: boolean);
var
i: Integer;
Edge: TLvlGraphEdge;
begin
if HighlightedElements.Find(Node)<>nil then exit;
HighlightedElements.Add(Node);
for i:=0 to Node.InEdgeCount-1 do begin
Edge:=Node.InEdges[i];
HighlightedElements.Add(Edge);
if not Edge.Source.Visible then
HighlightNode(Edge.Source,HighlightedElements);
end;
for i:=0 to Node.OutEdgeCount-1 do begin
Edge:=Node.OutEdges[i];
HighlightedElements.Add(Edge);
if not Edge.Target.Visible then
HighlightNode(Edge.Target,HighlightedElements);
end;
if FollowIn then
for i:=0 to Node.InEdgeCount-1 do begin
Edge:=Node.InEdges[i];
HighlightedElements.Add(Edge);
if not Edge.Source.Visible then
HighlightNode(Edge.Source,HighlightedElements,true,false);
end;
if FollowOut then
for i:=0 to Node.OutEdgeCount-1 do begin
Edge:=Node.OutEdges[i];
HighlightedElements.Add(Edge);
if not Edge.Target.Visible then
HighlightNode(Edge.Target,HighlightedElements,false,true);
end;
end;
var
@ -1812,7 +1815,7 @@ begin
HighlightedElements:=TAvgLvlTree.Create;
try
if NodeUnderMouse<>nil then
HighlightNode(NodeUnderMouse,HighlightedElements);
HighlightNode(NodeUnderMouse,HighlightedElements,true,true);
for i:=0 to Graph.LevelCount-1 do begin
Level:=Graph.Levels[i];
for j:=0 to Level.Count-1 do begin