Twwdbgrid.PaintOptions.ActiveRecordColor - 改变背景颜色和字体颜色

Question

我使用带有 Infopower 和 1stClass 组件的 Delphi 7 构建了一个项目。 我的一种形式是使用 TwwDBGrid 组件。 我的任务是当用户选择一个特定的记录时，这个记录用特定的颜色突出显示。 尽管 TwwDBGrid 的属性之一是 ActiveRecordColor，但这只提供了有限的选择。此外，它不允许您选择哪种颜色用于背景和哪种字体颜色。 （例如，如果选择 clGreen 颜色作为 ActiveRecordColor，他将看到背景将是绿色的 - 正如他所选择的 - 但字体颜色是白色，而不让他为活动的字体 属性 选择不同的颜色记录 ).

我发现可以通过在 "OnEnter" 事件以及 TwwDBGrid 实例的 "OnExit" 事件中编写代码来处理 ActiveRecordColor 属性。但是，由于该事件没有提供任何可以单独更改字体和背景颜色的属性，我卡住了。

因此我想知道：是否有任何解决方法可以让我自己选择当前 Active Record 的字体颜色以及背景颜色？

提前致谢

Answer 1

我们使用 OnCalcCellColors 事件处理它。

  if Highlight then
  begin
    ABrush.Color := clBlue;
    AFont.Color := clWhite;
  end;