Цвет выделения в ListBox е

← →
OxyGen (2003-04-06 14:50) [0]

Здравствуйте!

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

Спасибо за ответы

← →
Song (2003-04-06 18:02) [1]

Дык TListBox.Style:=lbOwnerDrawFixed и пиши обработчик onDrawItem

← →
Chlavik (2003-04-06 19:32) [2]

Помойму if DrawState = odSelected (не уверен)

← →
Alpine (2003-04-06 19:44) [3]

При создании указываешь ListBox1.Style := lbOwnerDrawFixed;

потом

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var BackColor, FontColor : tColor;
begin
if odSelected in State then begin
BackColor := clMoneyGreen;
FontColor := clBlack;
end else begin
BackColor := clWindow;
FontColor := clWindowText;
end;
With ListBox1.Canvas do begin
Brush.Color := BackColor;
FillRect(rect);
Font.Color := FontColor;
TextOut(rect.Left, rect.Top, ListBox1.Items[Index]);
end;
end;

← →
OxyGen (2003-04-06 19:58) [4]

Огромное всем шпасибо!!!!!

Цвет выделения в ListBox е Найти похожие ветки