IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Listbox
Артемий
сообщение 27.01.2007 18:04
Сообщение #1


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Тут такой вопрос - как в ListBox изменить цвет выделения текста...никак не найду! blink.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Алена
сообщение 27.01.2007 18:14
Сообщение #2


Гость






Изменить событие OnDrawItem:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
With ListBox1 do begin

if odSelected in State then
Canvas.Brush.Color := clRed { <--- Теперь цвет highlighting-а будет красным }
else
Canvas.Brush.Color:=clWindow;

Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
end;
end;


+ свойство Style для TListBox установить в LBOwnerDraw<...>

Кстати, это было в DRKB, по-моему...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.07.2025 19:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"