Текущий архив: 2003.09.04;
Скачать: CL | DM;

Вниз

Украшение ListBox a   Найти похожие ветки 

← →
Молодой Человек ©   (2003-08-23 20:26) [0]

Хочется немного приукрасить ListBox.. Цвет фона менять можно, а как поменять цвет выделения пункта с темно синего на какой нибудь другой?

---

← →
Calm ©   (2003-08-23 21:43) [1]

ListBox1.Style:=lbOwnerDrawFixed;
или даже
ListBox1.Style:=lbOwnerDrawVariable;
+
событие OnDrawItem.

Можешь украшать, пока не надоест :)

---

← →
Yanis ©   (2003-08-24 08:58) [2]

To [1]
Так каждый написать может

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
With ListBox1 do
begin
If odSelected in State then
Canvas.Brush.Color:=clTeal { твой цвет }
else
Canvas.Brush.Color:=clWindow;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
end;
end;
Hе забудь установить свойство Style у твоего ListBox в lbOwnerDrawFixed или в
lbOwnerDrawVariable.


---

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

Текущий архив: 2003.09.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c