anchor.diff:          lastrow := firstrow;
           for row := firstrow to RowCount-1 do
           begin
  +          lastrow := row;
             inc (r.Top, DefaultRowHeight);
             if r.Top >= clipr.Bottom then
               break;
  -          lastrow := row;
           end;
         end;
       end;
     end;
  +
  +  PrepareCells (firstrow, lastrow, firstcol, lastcol);
   
     r.Left := cLeft;
     r.Top := rTop;
  
positive.code:           Include(drawstate, gdFocused);
          if (row = FFocusRow) and (col = FFocusCol) then
            Include(drawstate, gdSelected);
  
          if DoDrawCellEvent(row, col, r, drawstate) then
            DrawCell(row, col, r, drawstate);
  
  
negative.code:       //  break;
      end;
    end; // item drawing
  writeln;
    Canvas.SetClipRect(clipr);
    Canvas.SetColor(FBackgroundColor);
    
  