| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в TreeView вернуться в прежнюю ветку после обновления дерева? [D5]

NAE ©   (2003-02-03 10:56:00) 

Собственно, нужно после обновления ветвей дерева вернуться в прежнее место.

---

uw   (2003-02-03 13:15:00) [1]

Посмотри какой-то код


procedure TfmTree.Rebuild;
var
i, j : Integer;
cRec : PCommonRec;
Tree : TList;
TopcRec : PCommonRec;
SelectedcRec : PCommonRec;
begin
for i := 0 to tvTree.Items.Count - 1 do begin
cRec := tvTree.Items[i].Data;
cRec.Expanded := tvTree.Items[i].Expanded;
end;

if Assigned(tvTree.TopItem) then
TopcRec := tvTree.TopItem.Data
else
TopcRec := nil;

if Assigned(tvTree.Selected) then
SelectedcRec := tvTree.Selected.Data
else
SelectedcRec := nil;

Tree := TList.Create;
Tree.Capacity := 512;
for i := 0 to tvTree.Items.Count - 1 do
Tree.Add(tvTree.Items[i].Data);

tvTree.Items.BeginUpdate;
try
tvTree.Items.Clear;

BuildTree;

for i := 0 to tvTree.Items.Count - 1 do begin
cRec := tvTree.Items[i].Data;
if cRec.ObjTypeID = otidRETR then
for j := 0 to Tree.Count - 1 do
if cRec.ObjNo = PCommonRec(Tree[j]).ObjNo then begin
tvTree.Items[i].Expanded := PCommonRec(Tree[j]).Expanded;
Break;
end;
end;

if Assigned(SelectedcRec) then
for i := 0 to tvTree.Items.Count - 1 do
if PCommonRec(tvTree.Items[i].Data).ObjNo = SelectedcRec.ObjNo then begin
tvTree.Selected := tvTree.Items[i]; Break;
end;

if Assigned(TopcRec) then
for i := 0 to tvTree.Items.Count - 1 do
if PCommonRec(tvTree.Items[i].Data).ObjNo = TopcRec.ObjNo then begin
tvTree.TopItem := tvTree.Items[i]; Break;
end;
finally
tvTree.Items.EndUpdate;
end;

for i := 0 to Tree.Count - 1 do
Dispose(Tree[i]);
Tree.Free;
end;


---

NAE   (2003-02-03 12:16:00) [2]

Что значит "запомни адрес итема". Где копать?

---

NAE   (2003-02-03 11:13:00) [3]

Если можно фрагмент кода ....

---

БИС   (2003-02-03 11:00:00) [4]

а что мешает?
запомни адрес итема. Если после обновления он остался, то сделай активным

---

Наверх