大伙快进来看看！！！！！！

Question

//from delphi vcl source
  if FRows <> nil then
  begin
    TSparseList(FRows).ForAll(@FreeItem);
    TSparseList(FRows).Free;
  end;
  if FCols <> nil then
  begin
    TSparseList(FCols).ForAll(@FreeItem);
    TSparseList(FCols).Free;
  end;
  if FData <> nil then
  begin
    TSparseList(FData).ForAll(@FreeItem);
    TSparseList(FData).Free;
  end;先释放自己上面的TSparseListprocedure TCustomGrid.Paint;
    DrawCells(LeftCol, TopRow, Horz.FixedBoundary - FColOffset,                   //!! clip
      Vert.FixedBoundary, Horz.GridBoundary, Vert.GridBoundary, Color, []);自己的颜色没有改变所以你看到了//但执行这么快，我就没有看到

Answer 1

二楼的老兄，有没有具体解决方案，我看了vcl的原码，很茫然，我该具体怎么办才好呢？

Answer 2

我用的是下面的方法
canvas:= StringGrid1.Canvas;
rec:=StringGrid1.CellRect(j+1,i+1);
canvas.Brush.Color := RGB(10,150,120);
canvas.FillRect(rec);