anchor.diff:    clipr: TfpgRect;   // clip rectangle
     drawstate: TfpgGridDrawState;
     cLeft: integer;
  -  c: integer;
  +  rTop: integer;
  +  firstcol, lastcol, firstrow, lastrow : integer;
  +  cWidths: array of integer;
   begin
     Canvas.ClearClipRect;
   
  
positive.code:     r.Height := DefaultRowHeight;
      Canvas.SetFont(FFont);
  
      for row := FFirstRow to RowCount-1 do
      begin
        r.Left := cLeft;
        for col := c to ColumnCount-1 do
        begin
          drawstate := [];
          r.Width := ColumnWidth[col];
          Canvas.SetClipRect(clipr);
  
          if (row = FFocusRow) and (RowSelect or (col = FFocusCol)) and not (go_HideFocusRect in FOptions) then
  
negative.code:           DrawGrid(row, col, r, 0);
  
          inc(r.Left, r.Width);
          //if r.Left >= clipr.Right then
          //  Break;  // small optimization. Don't draw what we can't see
        end;
  //      Inc(r.Top, FDefaultRowHeight+1);
        inc(r.Top, r.Height);
        //if r.Top >= clipr.Bottom then
        //  break;
      end;
    end; // item drawing
  
  