Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.068 c