cxShellTree

[modelphi]

Ich verwende die cxShellTreeView Komponente. Leider habe ich bis jetzt nicht herausgefunden wie der Baum aufgeklappt und aktualisiert wird.
Die ShellTreeView Komponente von in den Delphi ist leichter zu handhaben, hat aber den Bug das als Root Verzeichnis immer das Erste Verzeichnis im angegebenen Pfad angezeigt wird.

[dataspider]

Hi,

ich verstehe die Frage nicht ganz.

Also, das Startverzeichnis setzte ich mit AbsolutePath.
Vielleicht kannst du ja deine Frage noch etwas konkretisieren.

Cu, Frank

[modelphi]

Hallo Frank,
ich suche den Befehl um den Baum des cxShellTreeView (developer Express ) aufzuklappen sowie den Inhalt (Verzeichnisse/Dateien) zu aktualisieren.

Im Augenblick verwende ich zur Aktualisierung den Befehl cxShellTreeView1.Root.Update( cxShellTreeView1.Root );
Dieser Befehl für den Update des Baums aus. Der Baum wird aber komplett zugeklappt.

Viele Grüße Markus

[dataspider]

Hi,

die Aktualisierung sollte mit F5 gehen:

Delphi-Quellcode:

SendMessage(cxTreeView.Handle, WM_KEYDOWN, VK_F5, 0);

Ansonsten benutzt man den InnerTreeView, z.B:

Delphi-Quellcode:

with cxTreeView.InnerTreeView.Items do
  if Item[i].HasChildren then
    Item[i].Expand(False);

Um das richtige i zu ermitteln, musst du sicher noch etwas experimentieren.

Cu, Frank

[modelphi]

Hi,

////////////////////////////////////////////////////////////////////////////////
// ShellTreeView aktualisieren
////////////////////////////////////////////////////////////////////////////////
function TFormPruefConf.UpdateShellTree(): boolean;
var
i, iCountItems: integer;
begin

iCountItems := cxShellTreeView1.InnerTreeView.Items.Count;
for i := 0 to iCountItems -1 do begin
with cxShellTreeView1.InnerTreeView.Items do begin
if Item[i].HasChildren then
Item[i].Expand(true);
end;
end;
end;

Vielen Dank. So funktionierts. Markus