anchor.diff:    AColumnLeft: PColumnLeft;
   begin
     {$IFDEF DEBUG}
  -  writeln('TfpgTreeView.PreCalcColumnWidth');
  +  SendDebug(Classname + '.PreCalcColumnLeft');
     {$ENDIf}
     if FColumnLeft = nil then
   	  FColumnLeft := TList.Create;
  
positive.code:   AVisibleHeight: integer;
  begin
    {$IFDEF DEBUG}
    writeln('TfpgTreeview.HandlePaint');
    {$ENDIF}
  //  inherited HandlePaint;
  
  
negative.code:   t: integer;
  begin
    {$IFDEF DEBUG}
    SendDebug(Classname + '.GetMaxDepth');
    {$ENDIF}
    h := FirstSubNode;
    result := 1;
  