Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


xenon54

Вопрос

Рекомендуемые сообщения

  • 0
  • Администраторы

Добрый день,

 

Забыли про 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;
Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...