Мой 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;
|
|