Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
ВнизКак в листбоксе каждую страку зделать своим цветом Найти похожие ветки
← →
kronprince (2002-01-31 20:06) [1]См. OnDrawItem
ListBox1.Style:=lbOwnerDrawFixed;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
case Index of
1:ListBox1.Canvas.Brush.Color:=clRed;
2:ListBox1.Canvas.Brush.Color:=clGreen;
3:ListBox1.Canvas.Brush.Color:=clBlue;
end;
ListBox1.Canvas.FillRect(Rect);
end;
Посмотри также как сделан TColorComboBox из RXControls.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c