API для оптимизации ширины Columns in ListView: проблемма

[Alex_2005]

В нижестящем примере оптимизирую ширину столбца в ListView, но ширина последнего столбца не оптимизируется. В чём может быть проблемма? Или это баг такой неиспровимый у API?

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


Public Sub lvwAutoSizeColumns(lvw As MSComctlLib.ListView, WithHeaders As Boolean)
Dim C As MSComctlLib.ColumnHeader
For Each C In lvw.ColumnHeaders
'PostMessage lvw.hWnd, LVM_FIRST + 30, C.Index - 1, -1
If WithHeaders Then
PostMessage lvw.hWnd, LVM_SETCOLUMNWIDTH, C.Index - 1, ByVal LVSCW_AUTOSIZE_USEHEADER
Else
PostMessage lvw.hWnd, LVM_SETCOLUMNWIDTH, C.Index - 1, -1
End If
Next
lvw.Refresh
Exit Sub


[JohnCR]

Может так:

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

PostMessage lvw.hWnd, LVM_SETCOLUMNWIDTH, C.Index, ByVal LVSCW_AUTOSIZE_USEHEADER

[HiMik2003]

MSDN:
(LVM_SETCOLUMNWIDTH)

LVSCW_AUTOSIZE_USEHEADER:
Automatically sizes the column to fit the header text. If you use this value with the last column, its width is set to fill the remaining width of the list-view control.