ListView

[sergey-911]

Доброго времени суток уважаемые.
1) Есть на форме ListView, в виде таблицы. В последнем столбце храню идентификаторы. Ширину колонки его ставлю = 0. При наведении на столбец можно этот столбец раздвинуть и посмотреть иды, что не желательно. Как запретить это действие.
2) СверхуListView, над каждым полем этой самой таблицы есть текстовое поле. Пользователь туда заносит условие поиска в БД, затем идет заполнение таблица найденными записями. Нужно, стобы при изменении пользователем ширины столбца таблицы ListView длина текстового поля для ввода поска становилось равным ширине колонки. Как сделать ширину текстовоо поля равной ширине соответствующей колонки в таблице - я знаю. А вот при каком событии - для меня вопрос! Все перепробовал. Для самого ListView есть свойство mouse move, вот только оно не срабатывает при раздвижении колонок сей таблицы.
Буду признателен любой информации. Спасибо.

[Юстас]

У каждого итема листвью есть место, где можно хранить идентификатор. Называется lParam. Его не видно, и ничего прятать не надо.

[tyomitch]

Это место назвается свойством Tag.
Кто тут лечил от переAPIзма?

[sergey-911]

Привет всем. Спасибо за ответы. Но lParam мне не подойдет, т.к. иногда необходимы не одно поле, а несколько полей отвести под идентификаторы в таблице. А вот свойство Tag - про него поподробней, если можно. А еще лучше ссылку на пример, или скинте пример на маил.
А как насчет второго вопроса?
Спасибо.

[Юстас]

Но lParam мне не подойдет, т.к. иногда необходимы не одно поле, а несколько полей отвести под идентификаторы в таблице. А вот свойство Tag - про него поподробней, если можно.

Как заметил tyomitch, это практически одно и тоже. Если lParam не подходит, значит и Tag не подойдёт И количество информации, хранимой в этом месте, может быть любое (в пределах выделенной твоей программе памяти - до 2 Гб). Достаточно занести в этот Tag/lParam указатель на какую-нибудь область памяти, например, у тебя какая-то своя пользовательская структура с несколькими полями

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

Type ITEMTAG
    Parameter1  As  Long
    Parameter2  As  String
    Parameter3  As  Byte
End Type

Dim MyItemlParam As ITEMTAG
    MyItemlParam.Parameter1=12345
    MyItemlParam.Parameter2="Some String"
    MyItemlParam.Parameter3=255
   
   MyLV1.ListItems(8).Tag = VarPtr(MyItemlParam)

И в твоём lParam/Tag записана куча информации. Сколько и какой - решаешь сам.

tyomitch, от переapiзма можно вылечиться у доктора DOS А вот кто вылечит от переCOMизма? Имхо, лечить надо, иначе бы не возникали вопросы, подобные данному.

[tyomitch]

В Tag можно без проблем положить массив. И вытаскиваться оттуда он будет без CopyMemory.
Даже и структуру можно, если очень постараться (=объявить её в публичном классе).

Так даже проще - не нужно вести отдельный массив структур с данными, всё хранится непосредственно в Tag-е.

[Юстас]

К чему массивы? Зачем громоздить класс ? Все достается одной строкой кода:

RtlMoveMemory VarPtr(ItemData), CLng(ListView1.ListItems(3).Tag), Len(ItemData)

Вот пример с записью и считыванием произвольной информации в lParam:

[tyomitch]

Угу... А если итем не один, а двести?
А если они добавляются и удаляются динамически?
Замаешься массив ItemData-ов синхронизировать

[Юстас]

Мда.....

Если синхронизация представляет из себя такую проблему и загоняет в тупик, то что же, пользуйтесь невидимыми субитемами:)

[tyomitch]

Мда.....

Если синхронизация представляет из себя такую проблему и загоняет в тупик, то что же, пользуйтесь невидимыми субитемами:)

...или массивами/структурами в Tag-е

[Sedge]

Вариант - хранить идентификаторы (если они конечно уникальные) в свойстве Key (как строку с разделителями) и парсить при обращении.

[PUNK-GRUNGER]

Ребята, ИМХО, TAG специальо для таких целей - всякие идентификаторы хранить Благо дело к каждому итему листвьюва можно прикрутить свой Таг (а к нему и массив при желании).

Что-то типа:
With ListView.ListItems.Add
.Text = "Текст"
.Tag = "первая штука"
End With

Где первая штука идентификатор соббсна

[PUNK-GRUNGER]

Забыл ...
Насчет второго:

А события попробуй ColumnClick и любые с Column. Вообще еще глянь какой-нибудь ReSize.

txtText.Width = ListView.ListColumn(Index).Width

Если я все правильно понял...

[sergey-911]

Спасибо за ответ. Сообытие Сolumn Click не подходит, т.к. происходит не щелчек мышкой по столбику ListView, а изменение размеров (уменьшение или увеличение) столбика ListView. Методично перебрал все события в LictView, нужного не оказалось. Единственный, предполагаемый выход - расчитать область заголовков ListView, и при наведении мыши в область - выполнять нужное действие по таймеру. Но, вот с расчетом области - беда. Функция GetCursorPos расчитывает координаты в пикселях. А мне нужно в твипах. Спасибо всем за помощь, но проблему решить пока не удалось.

[tyomitch]

Функции ScaleX и ScaleY переводят пикселы в твипы.

[tyomitch]

Ребята, ИМХО, TAG специальо для таких целей - всякие идентификаторы хранить Благо дело к каждому итему листвьюва можно прикрутить свой Таг (а к нему и массив при желании).

Дык, я именно об этом и говорил с самого начала

[sergey-911]

Спасибо, попробую!