Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.217.60.35] |
|
Сообщ.
#1
,
|
|
|
Мой SysTreeView32 имеет стиль CheckBox. При нажатии на пункт птичка устанавливается, но при повторном нажатии - ничего не происходит. Есть предположение, что необходимо копать в сторону PNMTreeView(lp)^.itemOld.hItem, но как конкретно? Может, я и ошибаюсь...
//Получаем состояние function TVGetCheck(TV: HWND; Node: HTreeItem): Boolean; var Item: TTVItem; begin Result := False; if not Assigned(Node) then Exit; with Item Do begin hItem := Node; mask := TVIF_STATE or TVIF_HANDLE; stateMask := TVIS_STATEIMAGEMASK; SendMessage(TV, TVM_GETITEM, 0, Integer(@Item)); // TreeView_GetItem(Node.Handle, TVItem); Result := Bool((State and $2000) shr 13); // Result := Bool((State and INDEXTOSTATEIMAGEMASK(2)) shr INDEXTOSTATEIMAGEMASK(1)); end; {With} end; //Устанавливаем или снимаем птичку procedure TVSetChecked(ItemId: HTreeItem; Checked: Boolean); var Item :TTVItem; begin FillChar(Item, SizeOf(TTVItem), 0); with Item do begin hItem := ItemId; Mask := TVIF_STATE; StateMask := TVIS_STATEIMAGEMASK; if Checked then Item.State :=TVIS_CHECKED else Item.State :=TVIS_CHECKED shr 1; TreeView_SetItem(hTreeView, Item); end; end; //Где-то в программе WM_NOTIFY: case PNMTreeView(lp)^.hdr.code of TVN_SELCHANGING: //Если пункт отмечен... if TreeView_GetChecked(hTreeView, PNMTreeView(lp)^.itemNew.hItem) then begin TVSetChecked(PNMTreeView(lp)^.itemNew.hItem, False); //удаляем отметку end else begin TVSetChecked(PNMTreeView(lp)^.itemNew.hItem, True); //ставим отметку end; |
Сообщ.
#2
,
|
|
|
Вот это:
if TreeView_GetChecked(hTreeView, PNMTreeView(lp)^.itemNew.hItem) срабатывает? |
Сообщ.
#3
,
|
|
|
Срабатывает, но один раз. Чтобы сработало по новой необходимо нажать другой пункт, а потом вернуться к этому. Как-то так...
|