Come si disegna l'elemento della casella di riepilogo selezionato con un colore diverso?

Question

È possibile modificare il colore di messa a fuoco e il colore del testo di selezione dell'elemento in un TListBox?

Quando i temi non sono abilitati nel progetto o lo stile della casella di riepilogo è impostato su proprietario-disegno, la selezione intorno all'elemento è dipinta di blu, che a mio avviso è definita globalmente dalle impostazioni di aspetto del sistema.

Vorrei cambiare il colore degli elementi selezionati con un colore personalizzato.

Così, ad esempio, il risultato sarebbe qualcosa di simile a questo:

Nota l'ultima casella di riepilogo è stato modificato in Paint per illustrare l'esempio.

Answer 1

provare questo:

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; 

Answer 2

ho visto, proprietà Style deve essere lbOwnerDrawFixed