anchor.diff:      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;
  
positive.code:   Result := FHeaderFont.FontDesc;
  end;
  
  procedure TfpgBaseGrid.SetFontDesc(const AValue: string);
  begin
    FFont.Free;
  
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;
  