如何在运行时更改Delphi 10.3中的列表框Itemdata.detail字体大小

Question

我正在使用列表框，正在尝试在运行时更改列表框“ Itemdata.detail”的字体大小。我可以更改“ ItemData.Text”的字体大小，但还需要更改“ ItemData.Detail”的字体大小]

{用ListBoxItem做开始StyledSettings：= [TStyledSetting.Family，TStyledSetting.Style，TStyledSetting.FontColor，TStyledSetting.Other]；尺寸高度：= 50;Font.Size：= 12;

          Size.PlatformDefault := False;
          Text :=FormPrincipal.UniqueryGeral.Fields[1].AsString;
          ItemData.Detail:= FormPrincipal.UniqueryGeral.Fields[0].AsString+' vezes '+'/'+' ACERTOS = '+FormatFloat('###.##',FormPrincipal.UniqueryGeral.Fields[2].asFloat)+'%'+' - ERROS= '+FormatFloat('###.##',(FormPrincipal.UniqueryGeral.Fields[3].AsFloat))+'%';
          StyleLookup := 'listboxitembottomdetail';
          Visible := True;
          Parent := FormPrincipal.ListBox_EstatisticasPROF_2_Resultado;
          Inc(conta_linha);
        End;

}

Answer 1

TListBoxItem的样式自定义在设计时非常有限。试试这个：

ListBoxItem.StylesData['detail.TextSettings.Font.Size']:=20;

它利用StylesData属性在运行时存储样式内所有对象的属性值。样式listboxitembottomdetail is composed of a few objects，包括一个命名为detail的对象，其为TText对象，并映射到ItemData.Detail的TListBoxItem属性。将对象的名称和所需的属性组合在一起可以访问它。

如果要更改详细文本字体颜色，请执行以下操作：

ListBoxItem.StylesData['detail.TextSettings.FontColor']:=TAlphaColors.Blue;