Dateifilter definieren

[Delbor]

Hi hhcm

Das geschieht, wenn dem Treeview ein Knoten für die gefundene Datei hinzugefügt wird:

Delphi-Quellcode:

procedure TOpenFileFrame.AddNewNode(ParentNode: TTreeNode; const aCaption,
  aRealName: string; aIsdirectory: Boolean);
  var Node: TTreeNode; NameRec: PNameRec; Lextension: String;
begin
  Node := TVFilesExplorer.Items.AddChild(ParentNode, aCaption);
  if aIsdirectory then
    begin
      ...
      ...
    end
  else
    begin
      Node.ImageIndex := 2;
      Node.SelectedIndex := 2;
      FPathlist.Add(aRealName);
      Lextension := ExtractFileExt(aRealName);   // Hier wird die Übereinstimmung mit dem aktuellen
      Node.Enabled := False;                     // Datefilter (Dateiendung) festgestellt. Wenn nein,
      if (FFileType = Lextension)  then          // ist der eingefügte Node nicht Enabled
        Node.Enabled := true;                    
      if (FFileType = 'alle Dateien') then
        Node.Enabled := true;
    end;
  New(NameRec);
  NameRec^.RealName := aRealName;
  NameRec^.Caption := aCaption;
  NameRec^.IsDirectory := aIsdirectory;
  Node.Data := NameRec;
end;

Gruss
Delbor