How do I draw the selected list-box item in a different color?

Question

Is is possible to change the item selection focus color and text color in a TListBox? When themes are not enabled in the project, or the list box style is set to owner-draw, the selection around the item is painted blue, which I believe is globally defined by the system's appearance settings. I would like to change the color of selected items to a custom color. So an example, the result would be something like this: Note the last listbox has been modified in Paint to illustrate the example. JavaScript questions and answers, JavaScript questions pdf, JavaScript question bank, JavaScript questions and answers pdf, mcq on JavaScript pdf, JavaScript questions and solutions, JavaScript mcq Test , Interview JavaScript questions, JavaScript Questions for Interview, JavaScript MCQ (Multiple Choice Questions)

Answer 1

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;