ListBox

[W0LF]

Как зделать из ListBox'a стандартного такое:



А именно: что бы строка (которую выделили) не была зарисована (серым, чорным или другим системным цветом), а оставался прозрачным или цвета самой ячейки. И что бы ячейки через одну были другим цветом окрашены.

Подскажите как такое можно проделать..

[lexaltd]

Извеняюсь тот код к ListBox не подходит


Исправил:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do begin
    if Index mod 2 = 0 then
      Brush.Color := clSkyBlue
    else
      Brush.Color := clWhite;
    FillRect(Rect);
    TextOut(Rect.Left + 2, Rect.Top, (Control as TListBox).Items[Index])
  end;
end;

Предварительно свойство ListBox'а Style устанавливается в значение lbOwnerDrawFixed.

[W0LF]

можно пример, так как незнаю как им пользоваться