Скачать: CL | DM;

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

← →
Юлия   (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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c