anchor.diff:  begin
     Updating;
     inherited Create(AOwner);
  -
  -  borders := fpgStyle.GetControlFrameBorders;
  -
     Focusable   := True;
     Width       := 120;
     Height      := 80;
  
positive.code:     Result := Result + ColumnWidth[i];
  end;
  
  procedure TfpgBaseGrid.SetFontDesc(const AValue: string);
  begin
    FFont.Free;
  
negative.code:       Exit; //==>
      // searching for the appropriate character position
      hh := FHeaderHeight;
      borders := GetAdjustedBorderSizes;
  
      if (y < (borders.Top+hh)) then  // inside Header row
      begin
  