Delphi DX Seattle FMX TListView HeaderItem-在非白色背景上隐藏白色阴影文本

丹加斯56

我注意到，当您更改ListView标头的背景色时，会有一个奇怪的白色文本，例如阴影

有谁知道如何摆脱白色阴影？

重现步骤

创建一个FMX项目，在其上放置一个列表视图，并将其与客户端对齐，在列表视图上
单击鼠标右键，然后选择“编辑自定义样式”
。在lv1style1中：TFmxObject找到标题结构

选择源链接属性，然后将默认的选定区域移动到其他颜色

用这样的代码填充表单创建中的列表视图

var lvitem : TListViewItem;
begin
  lvitem := lv1.Items.Add;
  lvitem.Text := 'Header';
  lvitem.Purpose := TListItemPurpose.Header;
  lvitem.Detail := '';


  lvitem := lv1.Items.Add;
  lvitem.Text := 'none';
  lvitem.Purpose := TListItemPurpose.None;

  lvitem := lv1.Items.Add;
  lvitem.Text := 'footer';
  lvitem.Purpose := TListItemPurpose.Footer;

如果您有任何疑问，请在下面评论。
如有任何帮助，我们将不胜感激。

丹加斯56

在列表视图上有一个TextLabel.TextShadowColor设置OnUpdateObjects
添加了以下代码

procedure TForm1.lv1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
var
  TextLabel: TListItemText;
begin
  if AItem.Purpose in [TListItemPurpose.Header, TListItemPurpose.Footer] then begin
    TextLabel := AItem.Objects.TextObject;
    TextLabel.TextShadowColor := TalphaColorRec.Null;
  end;
end;