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

Question

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

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

因此我想知道：是否有任何解决方法允许我选择自己的当前活动记录的字体颜色 - 以及背景颜色？

提前谢谢

Answer 1

我们使用OnCalcCellColors事件处理它。

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