anchor.diff:    FSelectionFollowsFocus := True;
     FItemIndex := -1;
     FScrollBarNeedsUpdate := True;
  +  FScrollBarWidth := FVScrollBar.Width;
   end;
   
   destructor TfpgListView.Destroy;
  
positive.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  
negative.code:   if FOnColumnClick=AValue then
      Exit;
    FOnColumnClick:=AValue;
  end;
  
  procedure TfpgListView.SetScrollBarWidth(const AValue: integer);
  begin
    if AValue = FScrollBarWidth then
      Exit; //==>
    FScrollBarWidth := AValue;
    FVScrollBar.Width := FScrollBarWidth;
    FHScrollBar.Height:= FScrollBarWidth;
  end;
  
  procedure TfpgListView.SetShiftIsPressed(const AValue: Boolean);
  