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

цвет элементов в списке


gonzales

Вопрос

Доброго времени суток!

Вроде элементарный вопрос, но не могу сообразить что не так. Хочу раскрасить текст элементов combobox в разные цвета или добавить к ним кружки с цветом.

Ни то, ни то не получается.

Вот процедура

procedure TForm28.CreateSystemColor(Name:string; itemcolor:int64; ID:integer);
var
  item: tlistboxitem;
  circle:TCircle;
begin
  item := tlistboxitem.Create(nil);
  item.Parent := Combobox2;
  item.text := Name;
  item.Tag := ID;
  item.StyledSettings := item.StyledSettings - [TStyledSetting.FontColor];
  item.TextSettings.FontColor:=itemcolor;
  item.FontColor := itemcolor;

  circle:=TCircle.Create(item);
  circle.Parent:=item;
  circle.Align:=talignlayout.Right;
  circle.Fill.Color:=itemcolor;
  circle.Stroke.Color:=talphacolorrec.White;
  circle.Visible:=true;
end;

Подскажите, где я накосорезил 

Ссылка на комментарий

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

Ответов пока нет

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

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