ListView и Drag&Drop

[cernd]

Уважаемые!
Знает ли кто-нибудь, как в ListView в режиме SmallIcons запретить перетаскивать ListItems?

Соответствующего свойства нет.
lvw.Drag vbCancel не работает, в какое бы событие, связанное с Drag&Drop, я его не вставлял.
Больше идей нет

[Alexanbar]

Открой контекстное меню, пункт Properties. Далее выстави

OleDragMode=ccOLEDragManual
OleDropMode=ccOLEDropManual

[Ennor]

Да вот фигу, не отключается оно, это перетаскивание. И не перехватывается, по ходу, тоже никак.

Слушай, а ты уверен, что тебе именно SmallIcon нужен? Лично я, например, не припомню ни одной программы, где я бы видел листвью именно в этом режиме. Обычно используется lvwList или, чаще всего, lvwReport. Вот в них - да, уже начинают работать указанные Alexanbar'ом свойства по контролю над пользовательским перетаскиванием.

[Vi]

Можно сделать в Form_Load (или в окне свойств)

Код: Выделить всё

ListView1.OLEDragMode = ccOLEDragAutomatic


и оформить обработчик

Код: Выделить всё

Private Sub ListView1_OLEStartDrag(......)
  AllowedEffects = 0
End Sub

[cernd]

мне на самом деле нужно вот что:
есть коллекция разнородных элементов, которых много, поэтому для удобного просмотра нужно распологать их максимально компактно, и сверху вниз по 1 в строке не подходит.
Пробовал с ListView - не смог отключить перетаскивание.

Сейчас я пытаюсь сделать это с помощью RTF, форматируя элементы разными цветами. Сейчас придумываю, как по месту выделения в тексте можно определить, какой из элементов коллекции соответствует этому выделению.

Если кто-ниб знает какие-ниб еще подходящие контролы, или алгоритм как сделать это в RTF - буду рад помощи

[cernd]

Vi
Спасибо!
это действительно работает
но... похоже, RTF мне подойдет больше, если я сумею в нем сделать все, что мне нужно