anchor.diff:    else
       hh := 0;
   
  -  ARow := FFirstRow + ((y - FMargin - hh) div FDefaultRowHeight);
  +  ARow := FFirstRow + ((y - fpgStyle.GetControlFrameBorders.Top - hh) div FDefaultRowHeight);
     if ARow > RowCount-1 then
       ARow := RowCount-1;
   
  -  cLeft := FMargin; // column starting point
  +  cLeft := fpgStyle.GetControlFrameBorders.Left; // column starting point
     if go_SmoothScroll in FOptions then
     begin
       if FHScrollBar.Visible then
  
positive.code:     begin
        FHScrollBar.Max := ColumnCount-1;
        FHScrollBar.Position := FFirstCol;
        FHScrollBar.SliderSize  := 1 / ColumnCount;
        FHScrollBar.PageSize := 1;
      end;
      FHScrollBar.RepaintSlider;
      FHScrollBar.Top     := Height -FHScrollBar.Height - 2;
      FHScrollBar.Left    := 2;
      FHScrollBar.Width   := HWidth;
    end
    else
    begin
      FHScrollBar.Visible := false;
      if Hfits then
      begin
        FFirstCol := 0;
  
negative.code:     else
        hh := 0;
  
      if ShowHeader and (y > (fpgStyle.GetControlFrameBorders.Top + hh)) then  // not in Header row
      begin
        PopupMenu.ShowAt(self, x, y);
      end;
  