TreeView_Expand - komplett Tree expandieren ?

[turboPASCAL]

Hi,

wie kann man denn den TreeView komplett expandieren ?
So klappt es nicht:

Delphi-Quellcode:

rocedure TWndList.FillTreeView(hwnd: HWND);
var
  hTreeView: dword;
  hRoot: HTREEITEM;
  i: integer;
begin
  hTreeView := GetDlgItem(hwnd, IDC_TREE1);

  TreeView_DeleteAllItems(hTreeView);

  tvis.hParent := TVI_ROOT;
  tvis.hInsertAfter := TVI_LAST;
  tvis.item.mask := TVIF_TEXT {or TVIF_IMAGE};
  tvis.item.pszText := 'First';

  hRoot := TreeView_InsertItem(hTreeView, tvis);
  tvis.hParent := hRoot;

  for i := 0 to 4 do
  begin
    tvis.item.pszText := PCHAR(format('Item %d', [i + 1]));
    tvis.hParent := TreeView_InsertItem(hTreeView, tvis);
  end;

  TreeView_Expand(hTreeView, hRoot, TVE_EXPAND);
end;

[mschaefer]

Hat der TreeView nicht Properties CollapseAll/ExpandAll ? Da war doch was .. // Martin

[turboPASCAL]

Äh, nich bei der nonVCL - Version.

[mschaefer]

Oh - Ok. Also dann für Kandidaten vor dem Sofa nochmal in kleiner Sofakissengröße:

Du willst alle Nodes durchiterieren und dabei öffnen? Ich frage deshalb, da auch
die Nodes / Items die Property 'Expand' haben. Funktioniert die bei NonVCL ?

Dann könnte ich nach iterationsroutinen in der Kiste unter dem Sofa suchen . . .

// Martin

[Mithrandir]

Eigentlich sollte es aber funktionieren. Hast du es mal direkt mit SendMessage probiert? Sind die Handle gültig?

[mschaefer]

Delphi-Quellcode:

procedure TreeviewFullyExpand(tv: TTreeview);
var
  Node  : TTreeNode;
  IsExp : boolean;
begin
  Assert(Assigned(tv));
  if tv.Items.Count > 0 then
  begin
    Node   := tv.Items[0];
    while Assigned(Node) do
    begin
      IsExp := Node.Expanded or not Node.HasChildren;
      if IsExp = false then Node.Expanded = true;
      Node   := Node.GetNext;
    end; {While}
  end {If}
end;

Das ist jetzt natürlich mit der VCL-Version.
Vielleicht kann man dies Übertragen..

// Martin

[turboPASCAL]

Zitat:

Du willst alle Nodes durchiterieren und dabei öffnen?

Ich hoffte darauf das durchiterieren (schickes Wort) durch eine einzelne Message,
also TVE_EXPAND umgehen zu können.
Leider expandiert es nur den ersten Knoten.

Zitat:

Eigentlich sollte es aber funktionieren. Hast du es mal direkt mit SendMessage probiert? Sind die Handle gültig?

Jo.
Ja.
Ja.

@Martin,

Möglich, aber nicht für mich als Anfänger.

[mschaefer]

Um das Sofa schleich: Wenn Du mal ein Miniprojekt hast nur mit dem Treeview versuche ich es mal einzubauen ... // Martin

[turboPASCAL]

Damit du nicht einen Graben um das Sofa läufst, hab ich im ersten Post ein Miniproj. angehangen.

Aber es kann doch einfach nicht angehen das man alle Childs einzeln aufklappen muss.

[Lannes]

Hallo,

macht Delphi auch wenn FullExpand aufgerufen wird.