anchor.diff:        Exit; //==>
       // searching for the appropriate character position
       hh := FHeaderHeight;
  -    borders := fpgStyle.GetControlFrameBorders;
  +    borders := GetAdjustedBorderSizes;
   
       if (y < (borders.Top+hh)) then  // inside Header row
       begin
  
positive.code:     Result := Result + ColumnWidth[i];
  end;
  
  procedure TfpgBaseGrid.SetFontDesc(const AValue: string);
  begin
    FFont.Free;
  
negative.code: 
    pcol := FFocusCol;
    prow := FFocusRow;
    borders := GetAdjustedBorderSizes;
  
    // searching for the appropriate character position
    if ShowHeader then
  