anchor.diff:  begin
     if FAlternativeBGColor = AValue then exit;
     FAlternativeBGColor := AValue;
  +end;
  +
  +procedure TfpgBaseGrid.SetBorderStyle(AValue: TfpgEditBorderStyle);
  +begin
  +  if FBorderStyle = AValue then
  +    Exit;
  +  FBorderStyle := AValue;
  +  Repaint;
   end;
   
   procedure TfpgBaseGrid.UpdateScrollBars;
  
positive.code:     FOptions: TfpgGridOptions;
      FPopupMenu: TfpgPopupMenu;
      FAlternativeBGColor: TfpgColor;
      function    GetFontDesc: string;
      function    GetHeaderFontDesc: string;
      function    GetTotalColumnWidth: integer;
  
negative.code:     procedure   HandleRMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   FollowFocus; virtual;
      property    AlternateBGColor: TfpgColor read FAlternativeBGColor write SetAlternativeBGColor default clHilite1;
      property    BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default ebsDefault;
      property    DefaultColWidth: integer read FDefaultColWidth write SetDefaultColWidth default 64;
      property    DefaultRowHeight: integer read FDefaultRowHeight write SetDefaultRowHeight;
      property    Font: TfpgFont read FFont;
  