set the OnDestroy event

lgj1107 · Jun 21, 2019 · 33e2771 · 33e2771
1 parent ee6f9b4
commit 33e2771
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/Cheat Engine/diagram.pas b/Cheat Engine/diagram.pas
@@ -1288,6 +1288,8 @@ procedure TDiagram.loadFromStream(s: TStream);
 var
   i: integer;
   c: integer;
+  b: TDiagramBlock;
+  l: TDiagramLink;
 begin
   if s.ReadAnsiString<>'CEDIAG' then raise exception.create('Invalid diagram file');
   if s.ReadWord>diagramversion then
@@ -1305,11 +1307,19 @@ procedure TDiagram.loadFromStream(s: TStream);
 
   c:=s.ReadDWord;
   for i:=0 to c-1 do
-    blocks.add(TDiagramBlock.createFromStream(diagramConfig, s));
+  begin
+    b:=TDiagramBlock.createFromStream(diagramConfig, s);
+    blocks.add(b);
+    b.OnDestroy:=@NotifyBlockDestroy;
+  end;
 
   c:=s.ReadDWord;
   for i:=0 to c-1 do
-    links.add(TDiagramLink.createFromStream(diagramconfig, s, blocks));
+  begin
+    l:=TDiagramLink.createFromStream(diagramconfig, s, blocks);
+    links.add(l);
+    l.OnDestroy:=@NotifyLinkDestroy;
+  end;
 
   RepaintOrRender;
 end;