anchor.diff:  {
       fpGUI  -  Free Pascal GUI Toolkit
   
  -    Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
  +    Copyright (C) 2006 - 2009 See the file AUTHORS.txt, included in this
       distribution, for details of the copyright.
   
       See the file COPYING.modifiedLGPL, included in this distribution,
  
positive.code:   {$IFDEF DEBUG}
    writeln(Classname, '.UpdateScrollbars');
    {$ENDIF}
    FVScrollbar.Visible := VisibleHeight < GetNodeHeightSum * GetNodeHeight;
    FVScrollbar.Min := 0;
    FVScrollbar.Max := (GetNodeHeightSum - 1) * GetNodeHeight;
    FHScrollbar.Min := 0;
    FHScrollbar.Max := MaxNodeWidth - VisibleWidth + FVScrollbar.Width;
    FHScrollbar.Visible := MaxNodeWidth > Width - 2;
  
negative.code:     FVScrollbar.Position := 0;
      FVScrollBar.RepaintSlider;
      FYOffset := 0;
    end
    else
      FVScrollBar.RepaintSlider;
  
    if not FHScrollbar.Visible then
    begin
      FHScrollbar.Position := 0;
      FHScrollBar.RepaintSlider;
      FXOffset := 0;
    end
    else
      FHScrollBar.RepaintSlider;
  end;
  
  procedure TfpgTreeview.ResetScrollbar;
  