treeview cо стилем TVS

← →
Юлия (2003-09-12 14:25) [0]

ПОльзователь выделяет нужные ему элементы, после этого надо снять галочки рядом с выделенными. Использую процедуру

Procedure TVUnSetCheck(Node: TTreeNode);
Var Item: TTVItem;
Begin
With Item Do
Begin
hItem:=Node.ItemId;
mask:=TVIF_STATE;
State:=$1000;
FReklama.TreeView1.Perform(TVM_SETITEM,0,Integer(@Item));
End; {With}
End;

Почему - то иногда не только исчезают сами рамочки, но и рамочки для галочек. Как этого избежать?

← →
MBo © (2003-09-12 14:30) [1]

сначала надо получить состояние, а потом модифицировать его, а не просто заменить.

← →
Юлия (2003-09-12 14:40) [2]

Все равно исчезают. И, если сначала проверяю состояние, поскольку дерево длинное, очень медленно работает. :(

← →
MBo © (2003-09-12 14:48) [3]

Procedure TVResetCheck(TV:TTreeView;n:integer);
var
item:tTVItem;
j:integer;
begin
item.hItem:=TV.Items[n].ItemId;
item.mask:= TVIF_STATE;
TV.Perform(TVM_GETITEM,0,integer(@item));
item.state:=(item.state and not $2000) or $1000;
item.statemask:=$FFFFFFFF;
TV.Perform(TVM_SETITEM,0,integer(@item));
end;

← →
Юлия (2003-09-12 15:00) [4]

Спасибо огромное, вы меня спасли!!!

treeview cо стилем TVS_CHECKBOXES Найти похожие ветки