Изменение цвета в listbox если в listbox'e обнаружена запись "Возврат"

[CrystalDF]

Добрый День,

Не пойму как это реализовать,
если в listbox'e есть запись с текстом "Возврат",
то вся строка преобразуется в красный цвет.
Помогите пожалуйста.
Спасибо за внимание!

С надеждой о помощи,
Пользователь!

[northener]

OnDrawItem

[CrystalDF]

Сообщение от northener

OnDrawItem

Можно подробнее? Я в этом деле новичек

[саша40]

http://yandex.ru/yandsearch?clid=958...wItem%20Delphi
Поиск - это наше всё!

[Stilet]

Пример тут:http://www.programmersforum.ru/showthread.php?t=230373

[CrystalDF]

Да я то понял что это OnDrawItem,
но как вот сделать такое условие я имею ввиду.
Если в строке listbox'a нашли слово "Возврат" то красим текст в красный.
Я не имел ввиду само событие где это все будет выполняться...

[northener]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TListBox(Control).Canvas do begin
    if Pos('Возврат',TListBox(Control).Items[index]) <> 0  then Font.Color:=clRed
    else Font.Color:=clBlack;
    TextOut(Rect.Left+2,Rect.Top+2,TListBox(Control).Items[index]);
  end;
end;

[CrystalDF]

Спасибо огромное

Сообщение от northener

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TListBox(Control).Canvas do begin
    if Pos('Возврат',TListBox(Control).Items[index]) <> 0  then Font.Color:=clRed
    else Font.Color:=clBlack;
    TextOut(Rect.Left+2,Rect.Top+2,TListBox(Control).Items[index]);
  end;
end;

Только вот, у меня стиль сбился.
Как-то теперь не красиво выглядит listbox.
Теперь вот так: http://imgur.com/oEFJ09b
Было вот так: http://imgur.com/9v2sbA8

[lomastr_]

ищите как устанавливать шрифт при выводе текста

[CrystalDF]

Сообщение от lomastr_

ищите как устанавливать шрифт при выводе текста

Там и не только шрифт, еще ItemHeight, но я задаю не получается...