anchor.diff:    FRowSelect  := False;
     FScrollBarStyle := ssAutoBoth;
     FUpdateCount    := 0;
  -  FOptions    := [];
  +  FOptions    := [go_SmoothScroll];
   
     FFont       := fpgGetFont('#Grid');
     FHeaderFont := fpgGetFont('#GridHeader');
  
positive.code:   Canvas.SetTextColor(clText1);
    s := GetHeaderText(ACol);
    x := (ARect.Left + (ARect.Width div 2)) - (FHeaderFont.TextWidth(s) div 2);
    if x < 1 then
      x := 1;
    fpgStyle.DrawString(Canvas, x, ARect.Top+1, s, Enabled);
  end;
  
  
negative.code:   nw: integer;
    prow: Integer;
    pcol: Integer;
    c: integer;
    cLeft: integer;
  begin
    inherited HandleLMouseDown(x, y, shiftstate);
  
  