Скачать: CL | DM;

Как в ListBox программно поменять цвет выделенной строчки?   Найти похожие ветки 

← →
Zilog ©   (2006-08-15 15:33) [0]

Как в ListBox программно поменять цвет выделенной строчки?

---

← →
Джо ©   (2006-08-15 15:34) [1]

> Zilog ©   (15.08.06 15:33)
> Как в ListBox программно поменять цвет выделенной строчки?

Использовать OwnerDraw := True и в событии OnDraw самому отрисовывать на канве.

---

← →
Джо ©   (2006-08-15 15:36) [2]

> OnDraw

OnDrawItem, пардон.

---

← →
Джо ©   (2006-08-15 15:37) [3]

В таком роде:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with TListBox(Control).Canvas do
 begin
   if odSelected in State then
   begin
     Brush.Color := clActiveCaption;
     Font.Color := clHighlightText;
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText;
   end;
   ListBox1.Canvas. FillRect (Rect);

   TextOut(Rect.Left,Rect.Top,TListBox(Control).Items[Index]);
 end;
end;


---

← →
Zilog ©   (2006-08-15 15:56) [4]

пробовал и так - дело в том, что у меня ListBox1DrawItem не вызывается... ?

---

← →
Джо ©   (2006-08-15 15:59) [5]

> [4] Zilog ©   (15.08.06 15:56)
> пробовал и так - дело в том, что у меня ListBox1DrawItem
> не вызывается... ?

Читать [1] внимательно.

---

← →
Zilog ©   (2006-08-15 16:16) [6]

OwnerDraw - нет там такого

---

← →
Джо ©   (2006-08-15 16:18) [7]

> [6] Zilog ©   (15.08.06 16:16)
> OwnerDraw - нет там такого

Зато есть Style := lbOwnerDrawFixed :) Сорри, это я по-памяти с TListView перепутал.

---

← →
clickmaker ©   (2006-08-15 17:25) [8]

> Zilog ©   (15.08.06 16:16) [6]

а самому по списку свойств пошариться? Это ж даже со стула вставать не надо...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c