android - Delphi XE6 如何使用样式更改 TMetropolisUIListBoxItem 的突出显示颜色

Question

我需要在选中时更改 ListBoxItem 的突出显示颜色。

为 Android 使用深色样式，当我选择一个项目时，结果很糟糕(文本颜色为白色，项目框为浅蓝色)。

有没有办法改变高亮颜色？

Answer 1

可以通过Style文件来定义颜色。您可以按样式 ListBoxItemStyle 进行搜索，在其中您会找到具有 Trigger = IsSelected 的 TColorAnimation，您可以在其中更改颜色。我正在树立我的风格的榜样:

object TLayout
  StyleName = 'ListBoxItemStyle'
  DesignVisible = False
  Height = 20.000000000000000000
  Width = 50.000000000000000000
  object TText
    StyleName = 'text'
    Align = alClient
    Color = claBlack
    Height = 18.000000000000000000
    HitTest = False
    HorzTextAlign = taLeading
    Margins.Left = 3.000000000000000000
    Margins.Top = 1.000000000000000000
    Margins.Right = 3.000000000000000000
    Margins.Bottom = 1.000000000000000000
    Width = 44.000000000000000000
    WordWrap = False
    object TColorAnimation
      Duration = 0.001000000047497451
      PropertyName = 'Color'
      StartValue = claBlack
      StopValue = claAzure
      Trigger = 'IsSelected=true'
      TriggerInverse = 'IsSelected=false'
    end
  end
  object TCheckBox
    StyleName = 'check'
    Align = alLeft
    CanFocus = False
    DisableFocusEffect = True
    Height = 20.000000000000000000
    StyleLookup = 'ListBoxItemcheck'
    TabOrder = 1
    Visible = False
    Width = 20.000000000000000000
  end
end