Delphi TAdvStringGrid过滤器 - 突出显示已过滤的标题单元格/列

Question

我有一个带过滤器的TAdvStringGrid

FilterDropDownAuto:= true;
FilterDropDownCheck:= true;

看起来像这样：

如果过滤器处于活动状态，我需要以某种方式通知用户。例如列标题，或不同颜色的整个列等。

如何判断过滤器是否有效？我尝试使用GetColumnFilter事件：

procedure TfrmDeliveries.grdDeliveriesGetColumnFilter(Sender: TObject;
  Column: Integer; Filter: TStrings);
begin
  ///
end;

但无论过滤器的状态如何，我都没有在“过滤器”变量中看到任何内容，可以用来判断过滤器是否已设置。如果我追踪发生的事情，它总是如下：

“FDefined”属性看起来很容易，但它总是空的。根本没有任何局部变量发生变化......

我需要找到一些方法来突出显示列，或者如果定义了过滤器，则需要标题。任何帮助将不胜感激。

谢谢