Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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,792
По умолчанию

Вполне.
Выставь свойство 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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