Listbox Опции

[Артемий]

Тут такой вопрос - как в ListBox изменить цвет выделения текста...никак не найду!

[Алена]

Изменить событие OnDrawItem:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  With ListBox1 do begin

    if odSelected in State then
      Canvas.Brush.Color := clRed { <--- Теперь цвет highlighting-а будет красным }
    else
      Canvas.Brush.Color:=clWindow;

    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
  end;
end;

+ свойство Style для TListBox установить в LBOwnerDraw<...>

Кстати, это было в DRKB, по-моему...

[Артемий]

Жестко....
До:

После:

Желательно бы чтобы было как ДО но выделялась красным...

Сообщение отредактировано: Артемий2 - 27.01.2007 18:24

[Артемий]

Вопрос решен!

  With ListBox1 do begin
    if odSelected in State then  begin
 Canvas.Brush.Color := clRed { <--- Òåïåðü öâåò highlighting-à áóäåò êðàñíûì }
end;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
  end;

Сообщение отредактировано: Артемий2 - 27.01.2007 18:34

[Алена]

Тогда показывай, КАК ты делал такое представление ListBox-а...

[Артемий]

Все ок, спасиба