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

Вниз

listbox   Найти похожие ветки 

← →
denis24   (2004-01-24 12:27) [0]

Можно ли выводить в сабже строчки разными цветами?

---

← →
denis24   (2004-01-25 14:53) [1]

Неужели нет советов?

---

← →
Александр из Минска ©   (2004-01-25 16:08) [2]

этот код тебе поможет
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
begin
case (Index mod 3) of
0: begin
Font.Color := clBlue;
Brush.Color := clYellow;
end;
1: begin
Font.Color := clRed;
Brush.Color := clLime;
end;
2: begin
Font.Color := clGreen;
Brush.Color := clFuchsia;
end;
end;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;
Этот код можно усовершенствовать до нужного типа. Главное, что тут показан алгоритм закраски строк!
Желаю УДАЧИ!

---

← →
denis24   (2004-01-26 11:23) [3]

добавляю сткоки в листбокс методом items.ADD
но событие TForm1.ListBox1DrawItem не происходит.И соответственно не раскрашиваются сткроки.Кто знает ?
Правда у меня checklistbox ,хотя идея таже.

---

← →
clickmaker ©   (2004-01-26 12:16) [4]

Style := lbOwnerDrawFixed

---

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

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

Наверх

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