如何更改TStringGrid网格线的颜色？

Question

我刚刚完成从D7迁移到XE2并且我注意到默认的网格线非常微弱（我无法将显示器上的对比度设置为高），因为你可以请参见下面的屏幕截图：

这是我尝试通过设置TStringGrid的{​​{1}}事件来重新着色线条：

OnDrawCell

但是这会产生更不可取的结果，特别注意活动单元格的边界：

有没有办法让这些网格线变得更暗或更厚，看起来不像我的尝试那样难看？

Answer 1

根据this问题的答案，我只需将DrawingStyle的{​​{1}}属性设置为TStringGrid。

Answer 2

我还想在网格线上使用另一种颜色（但是，在Delphi 6中）。不幸的是，线条的颜色不能单独设置。我研究了处理TStringGrid（Grid.pas）的单元，发现Delphi使用TCustomGrid.Paint过程中的表达式将线颜色设置为clSilver：

LineColor := clSilver;

如果背景颜色已经是clSilver，则LineColor设置为clGray。

我不明白他们为什么没有为网格线颜色实现属性。