anchor.diff:    if OpenDialog.Execute then
     begin
       SynEdit1.Lines.LoadFromFile(OpenDialog.FileName);
  +    FNodeFileName := OpenDialog.FileName;
       UpdateNode;
       UpdateRanges;
  +    UpdateCaption;
     end;
   end;
   
  
positive.code: begin
    DrawLegend(PaintBox1.Canvas, Rect(0, 0, PaintBox1.Width, PaintBox1.Height));
    PaintBox1.Height := FLegendBottomY;
  end;
  
  procedure TForm9.UpdateNode;
  
negative.code: 
  begin
    FHighlighter.BlockRanges.Clear;
    FNodeCount := 0;
    FNodeMaxLevel := 0;
    if Assigned(FNode) then
      WalkNodes(FNode);
  end;
  