Работа с TCheckListBox

[Rusl92]

Здравствуйте, помогите мне пожалуйста!
Мне нужно, чтобы при выборе итема в TCheckListBox
цвет итема стал красным, а при следующем клике становился обратно белым. Помогите пожалуйста! Заранее спасибО!

[TaTT DoGG]

в свойствах компонента посмотри, там должен быть цвет

[mihali4]

При чем тут цвет компонента? Сие тайна великая есть...
Обрабатывать нужно событие OnDrawItem, там присутствует ссылка на индекс итема. А обработка такого события рассматривалась уже ну, очень много раз...
Да, а стиль нужно сначала установить в lbOwnerDrawFixed.

[Terran]

Попробуйте так:

Procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
Begin
With TCheckListBox(Control) Do
Begin
If CbChecked = State[Index] Then
Canvas.Font.Color:=ClRed
Else
Canvas.Font.Assign(Font);
Canvas.TextRect(Rect, 20, Rect.Top, Items[Index]);
End;
End;

Procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
Begin
TCheckListBox(Sender).Repaint;
End;

Не забудьте поставить свойство Style в lbOwnerDrawFixed.