anchor.diff:    FSelectionFollowsFocus := True;
     FItemIndex := -1;
     FScrollBarNeedsUpdate := True;
  +  FScrollBarWidth := FVScrollBar.Width;
   end;
   
   destructor TfpgListView.Destroy;
  
positive.code:     property    Hint;
      property    MultiSelect: Boolean read FMultiSelect write SetMultiSelect;
      property    ParentShowHint;
      property    SelectionFollowsFocus: Boolean read FSelectionFollowsFocus write FSelectionFollowsFocus;
      property    SubItemImages: TfpgImageList index Ord(lisNoState) read SubItemGetImages write SubItemSetImages;
      property    SubItemImagesSelected: TfpgImageList index Ord(lisSelected) read SubItemGetImages write SubItemSetImages;
  
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);
  