anchor.diff:    Result := FHeaderFont.FontDesc;
   end;
   
  +function TfpgBaseGrid.GetTotalColumnWidth: integer;
  +var
  +  i: integer;
  +begin
  +  Result := 0;
  +  for i := 0 to ColumnCount-1 do
  +    Result := Result + ColumnWidth[i];
  +end;
  +
   procedure TfpgBaseGrid.SetFontDesc(const AValue: string);
   begin
     FFont.Free;
  
positive.code:     FAlternativeBGColor: TfpgColor;
      function    GetFontDesc: string;
      function    GetHeaderFontDesc: string;
      procedure   HScrollBarMove(Sender: TObject; position: integer);
      procedure   SetFontDesc(const AValue: string);
      procedure   SetHeaderFontDesc(const AValue: string);
  
negative.code:     property    ShowGrid: boolean read FShowGrid write SetShowGrid default True;
      property    ScrollBarStyle: TfpgScrollStyle read FScrollBarStyle write SetScrollBarStyle default ssAutoBoth;
      property    HeaderHeight: integer read FHeaderHeight;
      property    TotalColumnWidth: integer read GetTotalColumnWidth;
  //    property    ColResizing: boolean read FColResizing write FColResizing;
      property    ColumnWidth[ACol: Integer]: integer read GetColumnWidth write SetColumnWidth;
      property    ColumnBackgroundColor[ACol: Integer]: TfpgColor read GetColumnBackgroundColor write SetColumnBackgroundColor;
  