Фиксация столбца ListView в AllowColumnReorder=True

[Rojohn]

Доброго дня!
Возникла необходимость зафиксировать первый столбец ListView в режиме AllowColumnReorder=True. Нужно сделать так, чтобы можно было менять рассположение всех столбцов, кроме первого. Видел тут пример:
[url]
http://www.ewbi.com/ewbi.develop/sample ... vents2.zip
[/url]
Но там закрывается только изменение размера. Хотя прописаны все события. Так как в API я пока слабоват, может подскажете, что туда добавить, чтобы осуществить задуманное:?: Или как правильно заюзать модуль из примера выше для тех же целей
Спасибо заранее!

[Alexanbar]

Как понять

зафиксировать заголовок первого столбца ListView

?

[Rojohn]

Ну, судя по моему вопросу, ему надо не дать перемещаться и другому не дать переместиться на его место (то есть AllowColumnReorder=False только для первого столбца, для остальных AllowColumnReorder=True). Написал "заголовка" потому ColumnReorder происходит при Action = lvHeaderActionDragBegin для заголовка (см. пример)... Мне казалось, что эта процедура отключает все перечисленные там события, но почему-то на практике работает только ширина, может надо как-то по-другому оформить вызов

[Rojohn]

Ну что, есть какие-нибудь мысли Если так сделать нельзя, то хоть дайте знать...

[Alexanbar]

Нужно добраться до header -а как контрола и перехватывать сообщения, ему отсылаемые.

Узнать hwnd можно, послав сообщение LVM_GETHEADER для Listview.:

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

hwndHeader = SendMessage(Listview.hwnd, LVM_GETHEADER, 0, 0)


[Rojohn]

В приведенном примере это уже реализовано, там в Function HandleListViewHeaderMsgs есть строка:

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

HeaderhWnd = SendMessage(ListViewhWnd, LVM_GETHEADER, 0&, ByVal 0&)


И событие нужное вроде проверяется и выдается в ListViewHeaderEventDebugPrint, но когда делаешь в самом коде:

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

Public Function lvwPrint_HeaderEvent(ByVal Action As lvHeaderActions, ByVal Column As Long) As Boolean
  If Column = 1 Then lvwPrint_HeaderEvent = True
End Function


То блокируется только изменение ширины колонки, а её перемещение нет.
Может просто что-то надо добавить или вызвать по-другому

[Rojohn]

А между прочим тема ещё не закрыта... Наверное такое вообще невозможно сделать, не переписав контрол заново

[GSerg]

HDN_BEGINDRAG Notification
Sent by a header control when a drag operation has begun on one of its items.
To allow the header control to automatically manage drag-and-drop operations, return FALSE. If the owner of the control is manually performing drag-and-drop reordering, return TRUE.

[Rojohn]

Спасибо GSerg, хоть что-то для размышления! Но, боюсь, мне пока трудновато это осуществить в виде кода. Хоть намекни, как это прописывается?

[GSerg]

А посмотри, как твой код определяет, что начато изменение ширины.

[Rojohn]

Вообще-то код писал не я и я далеко не всё в нём понимаю пока что. Но предполагаю, что начало изменения ширины (а в моём случае начало перетаскивания) определяется в Case

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

Case HDN_BEGINDRAG:       HeaderAction = lvHeaderActionDragBegin


а потом отменяется для определенной колонки в участке кода:

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

If HeaderAction <> 0 Then
   On Error Resume Next
   Set ListViewControl = RegisteredListViewControls(CStr(ListViewhWnd))
        CancelMsg = CallByName(ListViewControl.parent,   ListViewControl.Name & EVENT_SUFFIX, VbCallType.VbMethod, HeaderAction, HitTestInfo.iItem + 1)
  On Error GoTo 0
  If CancelMsg Then
     HandleListViewHeaderMsgs = 1
     Exit Function
   End If
End If


Но о подробностях могу только догадываться... Я прав? Куда искать-то?

[Rojohn]

Я не прав?