anchor.diff:      inc(i);
       last := node;
     end;
  -  
  +
     if (not cancel) or (node <> nil) then
     begin
       // +/- or node-selection?
  
positive.code:           // draw a "-"
            Canvas.DrawLine(w - FXOffset - GetColumnWidth(i1) div 2 - 1, ACenterPos + 1, w - FXOffset - GetColumnWidth(i1) div 2 + 4, ACenterPos + 1);
          end;
          
          Canvas.SetLineStyle(1, FTreeLineStyle);
        end
        else
  
negative.code:   FHScrollbar.Visible     := False;
    FHScrollbar.Position    := 0;
    FHScrollbar.SliderSize  := 0.5;
  
    FVScrollbar := TfpgScrollbar.Create(self);
    FVScrollbar.Orientation := orVertical;
    FVScrollbar.OnScroll    := @VScrollbarScroll;
    FVScrollbar.Visible     := False;
    FVScrollbar.Position    := 0;
    FVScrollbar.SliderSize  := 0.2;
  
    FBackgroundColor  := clListBox;
    FTreeLineColor    := clShadow1; //clText1;
    FTreeLineStyle    := lsDot;
  