[TListView] Как поменять цвет шрифта у SearchBox у TListView?

[xenon54]

В стилях ничего не нашел, 

function TCustomListView_helper.SearchBox: TSearchBox;
begin
    Result := FSearchEdit;
end;

ListView1.SearchBox.FontColor := TAlphacolors.White;

Так не реагирует, все равно остается черным.

[xenon54]

Mission impossible? Есть подозрение что проблема возникла из-за перехода к новой моделе компонентов.

[Brovin Yaroslav]

Добрый день,

 

Забыли про StyledSettings. 

 

Итого весь код по поиску SearchBox и изменении цвета текста:

function FindSearchBox(const ARootControl: TControl): TSearchBox;
var
  Child: TControl;
begin
  Result := nil;
  for Child in ARootControl.Controls do
    if Child is TSearchBox then
      Exit(TSearchBox(Child));
end;

procedure TForm15.Button1Click(Sender: TObject);
var
  SearchBox: TSearchBox;
begin
  SearchBox := FindSearchBox(ListView1);
  if SearchBox <> nil then
  begin
    SearchBox.TextSettings.FontColor := TAlphaColorRec.Red;
    SearchBox.StyledSettings := SearchBox.StyledSettings - [TStyledSetting.FontColor];
  end;
end;

[xenon54]

Эх, точно, а ведь подобный вопрос уже был, невнимателен. Спасибо большое.