[[cHackAll]]

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
const Colors: array [Boolean] of Cardinal = (clWhite, clSilver);
begin
 with (Control as TListBox).Canvas do
  begin
   Brush.Color := Colors[odSelected in State]; FillRect(Rect);
   TextOut(4, Rect.Top, (Control as TListBox).Items[Index]);
  end;
end;

// Style = lbOwnerDrawFixed