cxShellTree

[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