| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать в Listbox первую строку определенным цветом?

Феликс ©   (2002-04-28 16:59:00) 

Я уже спрашивал, и уважаемый Алмаз мне сказали, что надо использовать ListBox1DrawItem. Но чего то у меня не получилось, поэтому может кто подскажет как решить мою проблему указав при этом исходник.

Заранее благодарен.

---

Феликс   (2002-04-29 18:32:00) [1]

Спасибо!

---

Atrem   (2002-04-28 18:54:00) [2]

Все очень просто.
На событии OnDrawItem рисуем на канве литбокса
Вот небольшой примерчик :

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if index=0 then with ListBox1.Canvas do
begin
Brush.Color:=clRed;
FillRect(Rect);
Font.Color:=clYellow;
TextOut(rect.Left,rect.Top,ListBox1.Items[index]);
end
else with ListBox1.Canvas do
begin
Brush.Color:=clWhite;
FillRect(Rect);
Font.Color:=clBlack;
TextOut(rect.Left,rect.Top,ListBox1.Items[index]);
end ;

З.Ы. Не забудте стиль листбокса поставить LbOwenerDrawFixed

Удачи!

---

Наверх