Как изменить размер шрифта Listbox Itemdata.detail во время выполнения Delphi 10.3 - PullRequest
Новая
       76

Как изменить размер шрифта Listbox Itemdata.detail во время выполнения Delphi 10.3

0 голосов
/ 03 марта 2020

Я работаю со списком и пытаюсь изменить размер шрифта для списка «Itemdata.detail» во время выполнения. Мне удалось изменить размер шрифта «ItemData.Text», но мне также нужно изменить размер шрифта для «ItemData.Detail»

{С ListBoxItem do Begin StyledSettings: = [TStyledSetting.Family, TStyledSetting .style, TStyledSetting.FontColor, TStyledSetting.Other]; Size.Height: = 50; Размер шрифта: = 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;

}

1 Ответ

0 голосов
/ 05 марта 2020

Настройка стиля для TListBoxItem во время разработки очень ограничена. Попробуйте это: 

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

Используется свойство StylesData, которое хранит значения свойств всех объектов внутри стиля во время выполнения. Стиль listboxitembottomdetail состоит из нескольких объектов , включая один с именем detail, который является объектом TText и сопоставлен со свойством ItemData.Detail TListBoxItem. Комбинация имени объекта и требуемого свойства позволяет получить к нему доступ.

Если вы хотите изменить цвет шрифта подробного текста, сделайте это вместо: 

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