Ширина символа - ширина элемента контрола

[SLIM]

Собственно проблема в следующем. Нужно установить размер столбца ListView равным самой широкой записи в столбце.
Все бы ничего, но вот как ширину текста узнать.
Да узнать то ине проблема - в твипах это TextWidth. А вот как исходя из этого установить ширину колонки? Может быть она в чем-то ином измеряется, может есть какие-то способы сопастовления ширины текста с размерами контролов, их элементов.
Смотрел поиск - похожего нашел мало. Задачи не те были. Еще нашел пример именно о приведении ширины столбца, но не хочу его использовать, хочу сам написать. Так как раз все очень странно. К ширине текста, изхмеренного TextWidth добавляется
---для первого столбца (когда перебирают ListItem-ы 12*15
---для отсальных (SubItem-ы) добавляется 6*15
Что и зачем это я не понимаю, но их пример работает

[iGrok]

---для первого столбца (когда перебирают ListItem-ы 12*15
---для отсальных (SubItem-ы) добавляется 6*15

Скорей всего подобрано опытным путём.
Ширина там тоже в твипах. 15 твипов - это один пиксель. Т.е. первую колонку выделяют чуть больше (12px), остальные - чуть меньше(6px).

[SLIM]

Ширина там тоже в твипах. 15 твипов - это один пиксель. Т.е. первую колонку выделяют чуть больше (12px), остальные - чуть меньше(6px).

Хе.Ширина там это где? в Listview-е? Тогда странно как-то. Я когда пытаюсь также выделять - у меня точно не выходит. Может что-то в TextWidth не так

[iGrok]

Ну так ты посмотри, что за цифирь у тебя выдаёт TextWidth, и что за цифири в Width колонок ListView...

А что не выходит?

[SLIM]

Так посмотрел уже. Связи пока не обнаружил. К примеру - ширина (Width) равна 1440, а ширина текста заголовка равна (TextWidth) 345. Если к величине ширины текста (325 ) прибавляю 6*15 - то изменений правтически никаких.

[Хакер]

Велосипед изобретаешь.

Отправь ListView сообщение LVM_SETCOLUMNWIDTH с флагом LVSCW_AUTOSIZE, и всё само собой сделается.

[SLIM]

Вот елки палки. Этож API. SendMassage. Только что-то не выходит послать сообщение LVM_SETCOLUMNWIDTH. Не может найти что это такое.
я API в первый раз использую, может что-то не так делаю

[Добавлено]
Пробовал так

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LVM_FIRST As Integer = &O1000
Private Const LVM_SETCOLUMNWIDTH As Integer = (LVM_FIRST + 30)
Private Const LVSCW_AUTOSIZE As Integer = -1

Call SendMessage(Me.lstvReq.hwnd, LVM_SETCOLUMNWIDTH, LVSCW_AUTOSIZE, 0)

Все как и было осталось

[iGrok]

Вот елки палки. Этож API. SendMassage. Только что-то не выходит послать сообщение LVM_SETCOLUMNWIDTH. Не может найти что это такое.
я API в первый раз использую, может что-то не так делаю

[Добавлено]
Пробовал так

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LVM_FIRST As Integer = &O1000
Private Const LVM_SETCOLUMNWIDTH As Integer = (LVM_FIRST + 30)
Private Const LVSCW_AUTOSIZE As Integer = -1

Call SendMessage(Me.lstvReq.hwnd, LVM_SETCOLUMNWIDTH, LVSCW_AUTOSIZE, 0)

Все как и было осталось

Ну естественно. У тебя параметры местами немного перепутаны..
http://msdn.microsoft.com/en-us/library/bb761163(VS.85).aspx

[SLIM]

Ничерта не понял. Пробовал менять местами все подряд - не могу понять что не так

[iGrok]

Пробовал так

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

Call SendMessage(Me.lstvReq.hwnd, LVM_SETCOLUMNWIDTH, LVSCW_AUTOSIZE, 0)

Выдержки из инфо по ссылке (она почему-то криво вставилась.. Х.з. У меня уже в третий раз ссыки криво вставляются. )

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

Syntax
        (WPARAM) wParam,                     // = (WPARAM) (int) iCol
        (LPARAM) lParam                      // = (LPARAM) MAKELPARAM ((int) cx, 0)

Parameters
iCol
Zero-based index of a valid column. For list-view mode, this parameter must be set to zero.

cx
New width of the column, in pixels. For report-view mode, the following special values are supported:
LVSCW_AUTOSIZE
Automatically sizes the column.
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.


Соответственно там, где у тебя LVSCW_AUTOSIZE должен быть номер колонки, а там, где 0 - LVSCW_AUTOSIZE.

Вот нормальная ссылка: http://msdn.microsoft.com/en-us/library/bb761163(VS.85).aspx

[Бяка]

а ты попробуй вместо Private Const LVM_FIRST = &01000 напечатать Private Const LVM_FIRST = &H1000



и вызывать не
Call SendMessage(Me.lstvReq.hwnd, LVM_SETCOLUMNWIDTH, LVSCW_AUTOSIZE, 0)

а
SendMessage lstvReq.hwnd, LVM_SETCOLUMNWIDTH, 0&, LVSCW_AUTOSIZE
SendMessage lstvReq.hwnd, LVM_SETCOLUMNWIDTH, 1&, LVSCW_AUTOSIZE

[SLIM]

Гы , получилось. Спасибо