转载备忘:
其实也很简单:
Canvas.Brush.Color := $00078CAD;
Canvas.FillRect(CellRect(ACol, ARow));
CellRect(ACol, ARow)就是满格填充的关键。
那么
Canvas.Brush.Color := $003AD9FF;
Canvas.FrameRect(CellRect(ACol, ARow));
也是满格的,
这样自然漂亮多了。
该丢掉直接使用Rect它了。
原文连接:http://bbs.2ccc.com/topic.asp?topicid=568089
欢迎加入Delphi知识局QQ群:32422310