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

TLvlGraph: Adjust node in/out-weights, if edge is destroyed.

Browse Source 
git-svn-id: trunk@60878 -
This commit is contained in:
martin 2019-04-07 19:51:52 +00:00
parent 7a5bb3650c
commit 5b8832a7b0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/lvlgraphctrl.pas
View File

@ -3566,6 +3566,8 @@ begin
OldGraph:=Source.Graph;
Source.FOutEdges.Remove(Self);
Target.FInEdges.Remove(Self);
Source.FOutWeight-=FWeight;
Target.FInWeight-=FWeight;
FSource:=nil;
FTarget:=nil;
if OldGraph<>nil then