Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 05.07.2010, 07:59   #1
Lokos
Форумчанин
 
Регистрация: 29.09.2009
Сообщений: 587
По умолчанию Изменение цвета шрифта надписи в ListBox

возможно ли поменять цвет шрифта выделенного элемента в listbox
Lokos вне форума Ответить с цитированием
Старый 05.07.2010, 08:22   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Вполне.
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:
Код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with TListBox(Control) do begin
  if index=ItemIndex then
   Canvas.font.Color:=clred
  else
   Canvas.font.Color:=clblack;
  Canvas.FillRect(rect);
  Canvas.TextOut(rect.Left,rect.Top,items[index]);
 end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 ListBox1.Repaint;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.02.2013, 22:58   #3
paxan86
Пользователь
 
Регистрация: 18.05.2011
Сообщений: 49
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Вполне.
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:
Код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with TListBox(Control) do begin
  if index=ItemIndex then
   Canvas.font.Color:=clred
  else
   Canvas.font.Color:=clblack;
  Canvas.FillRect(rect);
  Canvas.TextOut(rect.Left,rect.Top,items[index]);
 end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 ListBox1.Repaint;
end;
Спасибо вам!)
paxan86 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение цвета шрифта в терминале tools Qt и кроссплатформенное программирование С/С++ 3 28.05.2010 10:51
Изменение шрифта в списке Vill Общие вопросы Delphi 1 05.12.2009 02:08
Распознование цвета шрифта Maxx Microsoft Office Excel 1 03.12.2009 14:12
Нужно сделать изменение цвета надписи каждые 15 сек Wildice Microsoft Office Excel 3 03.11.2009 13:20
Изменение размера шрифта Nando Microsoft Office Excel 4 07.03.2009 17:45