anchor.diff:            Include(drawstate, gdFocused);
           if (row = FFocusRow) and (col = FFocusCol) then
             Include(drawstate, gdSelected);
  -
  +writeln (row, 'x', col, ' l:', r.Left, ' w:', r.Width, ' t:', r.Top, ' h:', r.Height);
           if DoDrawCellEvent(row, col, r, drawstate) then
             DrawCell(row, col, r, drawstate);
   
  
positive.code: 
    // Column 2 is special just for testing purposes. Descendant classes will
    // override that special behavior anyway.
    TfpgBaseGrid = class(TfpgWidget)
    private
      FColResizing: boolean;
  
negative.code:     r.Left := cLeft;
      for col := firstcol to ColumnCount-1 do
      begin
        cWidths[col] := ColumnWidth[col];
        r.Width := cWidths[firstcol];
        lastcol := col;
        if (go_SmoothScroll in FOptions) and (r.Left <= clipr.Left) then
        begin
          firstcol := col;
          if col>0 then inc (cLeft, cWidths[col-1]);
        end;
        if r.Left >= clipr.Right then
          break;
        inc (r.Left, r.Width);
      end;
  