anchor.diff:    begin
       UpdateNode;
       UpdateRanges;
  +    UpdateCaption;
     end;
   end;
   
  
positive.code:   if OpenDialog.Execute then
    begin
      SynEdit1.Lines.LoadFromFile(OpenDialog.FileName);
      UpdateNode;
      UpdateRanges;
    end;
  end;
  
  
negative.code: begin
    DrawLegend(PaintBox1.Canvas, Rect(0, 0, PaintBox1.Width, PaintBox1.Height));
    PaintBox1.Height := FLegendBottomY;
  end;
  
  procedure TForm9.UpdateCaption;
  begin
    Caption := Format('DelphiAST SynEdit Test [FileName: %s Node Count: %d Max Level: %d]',
      [FNodeFileName, FNodeCount, FNodeMaxLevel]);
  end;
  
  procedure TForm9.UpdateNode;
  