TListBox

[Dr.Badnezz]

Люди, кто нибудь знает как перекрасить полосу прокрутки в черный цвет в TListBox?

[KORN]

используй сторонние компоненты типа альфа скинс

[ZeitGeist7]

как сделать так чтобы при событии(любом) красилась в нужный мне цвет только нужная строка.

[mihali4]

Сообщение от Dr.Badnezz

Люди, кто нибудь знает как перекрасить полосу прокрутки в черный цвет в TListBox?

Стандартными средствами - никак. Один из вариантов вам подсказали.

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

как сделать так чтобы при событии(любом) красилась в нужный мне цвет только нужная строка.

Отвечаю:

Создание цветных строк в ListBox

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
j:integer;
begin

with (Control as TListBox).Canvas do
begin

//далее можно задать наше условие для цвета отдельных строк
for j:=0 to st.Count-1 do 
if massiv[Index]=st[j] 
then

Font.Color := clRed; //здесь любой ваш цвет

FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;


end;

И закрываю - ответ дан.
Специально для ZeitGeist7 - есть вопрос - создаем свою тему, в чужой теме это делать неприлично.