anchor.diff:      property    ColumnTextColor[ACol: Integer]: TfpgColor read GetColumnTextColor write SetColumnTextColor;
       property    VisibleRows: Integer read VisibleLines;
       property    TopRow: Integer read FFirstRow write SetFirstRow;
  -    property    Options: TfpgGridOptions read FOptions write FOptions default [];
  +    property    Options: TfpgGridOptions read FOptions write FOptions default [go_SmoothScroll];
       property    OnDrawCell: TfpgDrawCellEvent read FOnDrawCell write FOnDrawCell;
       property    OnFocusChange: TfpgFocusChangeNotify read FOnFocusChange write FOnFocusChange;
       property    OnRowChange: TfpgRowChangeNotify read FOnRowChange write FOnRowChange;
  
positive.code:   if ShowHeader and (y <= FMargin+hh) then  // inside Header row
    begin
      {$IFDEF DEBUG} Writeln('header click...'); {$ENDIF}
      cw := 0;
      for n := FFirstCol to ColumnCount-1 do
      begin
        inc(cw, ColumnWidth[n]);
        if (x >= (FMargin+cw - 4)) and (x <= (FMargin+cw + 4)) then
        begin
          {$IFDEF DEBUG} Writeln('column resize...'); {$ENDIF}
          FColResizing  := True;
          FResizedCol   := n;
          FDragPos      := x;
          Break;
        end
        else if (cw > FMargin+VisibleWidth) and (x >= FMargin+VisibleWidth-4) then
        begin
          FColResizing  := True;
          FResizedCol   := n;
          FDragPos      := x;
          nw := ColumnWidth[FResizedCol] - (cw+FMargin-x);
          if nw > 0 then
            SetColumnWidth(FResizedCol, nw );
          Break;
        end;  { if/else }
  
        if cw > VisibleWidth then
  
negative.code:   cw: integer;
    n: integer;
    colresize: boolean;
    cLeft: integer;
    c: integer;
  begin
    inherited HandleMouseMove(x, y, btnstate, shiftstate);
    
  