Перейти к содержанию
  • 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 пользователей онлайн

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

×
×
  • Создать...