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

Question

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

我发现，可以通过在TwwDBGrid实例的“ OnEnter”事件以及“ OnExit”事件中编写代码来处理ActiveRecordColor属性。 但是，由于该事件没有提供任何可以更改的属性-分别是-字体和背景色，我坚持。

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

先感谢您

Answer 1

我们通过使用OnCalcCellColors事件来处理它。

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