VirtualStringTree: Nicht immer wird alles aufgelistet

[Nils_13]

Jp, es kommt nur gelegentlich vor.

Delphi-Quellcode:

  TTyp      = (ftFile, ftDir);

  PTreeData = ^TTreeData;

  TTreeData = record
    fCaption  : String;
    fPfad     : String;
    fGroesse  : String;
    fDateityp : String;
    fIcon     : Integer;
    fTyp      : TTyp;
  end;

function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
  ARecord: TTreeData): PVirtualNode;
var Data : PTreeData;
begin
  Result := AVST.AddChild(ANode);
  Data   := AVST.GetNodeData(Result);
  AVST.ValidateNode(Result, False);
  Data^.fCaption  := ARecord.fCaption;
  Data^.fPfad     := ARecord.fPfad;
  Data^.fGroesse  := ARecord.fGroesse;
  Data^.fDateityp := ARecord.fDateityp;
  Data^.fIcon     := ARecord.fIcon;
  Data^.fTyp      := ARecord.fTyp;
end;