anchor.diff:      hh := 0;
     if ShowHeader then
       hh := hh + FHeaderHeight+1;
  -  Result := (Height - (2*FMargin) - hh) div FDefaultRowHeight;
  +  Result := (GetClientRect.Height - hh) div FDefaultRowHeight;
   end;
   
   function TfpgBaseGrid.VisibleWidth: integer;
  
positive.code:     hh : integer; // header height
    begin
      hh := 0;
      if ShowHeader then inc (hh, FHeaderHeight+1);
      if showH then inc (hh, FHScrollBar.Height);
      vl := (VHeight - hh) div FDefaultRowHeight;
      Vfits := vl >= RowCount;
    end;
  
negative.code:   end;
    
    // preliminary width/height calculations
    borders := fpgStyle.GetControlFrameBorders;
    crect := GetClientRect;
    VHeight := crect.Height;
    HWidth  := crect.Width;
    cw := 0;
    for i := 0 to ColumnCount-1 do
      cw := cw + ColumnWidth[i];
  