anchor.diff:    r: integer;
   begin
     {$IFDEF DEBUG}
  -  writeln('TfpgTreeView.MaxNodeWidth');
  +  SendDebug(Classname + '.MaxNodeWidth');
     {$ENDIF}
     result := 0;
     h := RootNode.FirstSubNode;
  
positive.code: procedure TfpgTreeview.UpdateScrollbars;
  begin
    {$IFDEF DEBUG}
    writeln(Classname, '.UpdateScrollbars');
    {$ENDIF}
    FVScrollbar.Visible := VisibleHeight < (GetNodeHeightSum * GetNodeHeight);
    FVScrollbar.Min := 0;
  
negative.code:   AColumnLeft: PColumnLeft;
  begin
    {$IFDEF DEBUG}
    SendDebug(Classname + '.PreCalcColumnLeft');
    {$ENDIf}
    if FColumnLeft = nil then
  	  FColumnLeft := TList.Create;
  