procedure TBoschOpenDialogDriveSelection.lbxDrivesDrawItem(
  Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
  with (Control as TTntListBox) do
    begin
      if odSelected in State then
        Canvas.Brush.Color := clGray
      else
        Canvas.Brush.Color := clWhite;
    end;

  TntListBox_DrawItem_Text(
    (Control as TTntListBox),
    (Control as TTntListBox).Items,
    Index,
    Rect
  );
end;