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:   begin
      Dec(VHeight, FHScrollBar.Height);
      FHScrollBar.Min         := 0;
      if go_SmoothScroll in FOptions then
      begin
        FHScrollBar.Max := cw - vw;
        FHScrollBar.Position := FXOffset;
        FHScrollBar.SliderSize := TotalColumnWidth / Width;
      end
      else
      begin
        FHScrollBar.Max := ColumnCount-1;
        FHScrollBar.Position := FFirstCol;
        FHScrollBar.SliderSize  := 1 / ColumnCount;
      end;
      FHScrollBar.RepaintSlider;
    end;
  