How do I draw the selected list-box item in a different color?
try this: procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with (Control as TListBox).Canvas do begin if odSelected in State then Brush.Color := $00FFD2A6; FillRect(Rect); TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]); if odFocused In State then begin Brush.Color := ListBox1.Color; DrawFocusRect(Rect); end; end; end;