Discussion :

[Kinesra]

Salut à tous.

Avec le composant TDirectoryListBox, comment puis-je empêcher l'utilisateur de remonter dans l'arborescence ? J'aimerais qu'il ne puisse ouvrir que les dossiers présents dans un répertoire particulier.

En résumé, à la place de cà :


... je voudrais cà :



Possible ?

[ShaiLeTroll]

Utiliser un SelectDirectory, en spécifiant le Root, cela limite l'accès, du moins selon mes souvenirs et sur XP

Sinon, c'est très facile de coder soit même une ListBox avec FindFirst\FindNext, je le sais pour l'avoir fait quand j'étais apprenti pour ajouter un filtre sur les nom de dossier et\ou de fichier à ce contrôle en Delphi 4 (1999)
Mon maitre d'apprentissage m'avait demandé de faire une fonction SelectMaskDirectory qui gère un Filter ce que je faisais pas SelectDirectory de l'époque, j'avais repris le code et modifié à ma sauce

[Kinesra]

@ShaiLeTroll :
SelectDir revient au même que précédemment. Ca laisse trop d'attitude à l'utilisateur qui peut fouiller l'ensemble du volume.

Je me lance dans l'écriture d'une routine qui fait ce que j'attends. Les exemples du net parlent de récursivité mais je ne m'en sors pas en utilisant ce truc. (impossible de faire la distinction entre un dossier parent et les sous-dossiers qui le composent)
Un peu d'aide ?

[ShaiLeTroll]

@ShaiLeTroll :
SelectDir revient au même que précédemment. Ca laisse trop d'attitude à l'utilisateur qui peut fouiller l'ensemble du volume.

Avec le SelectDirectory de XE2 et Windows Seven, cela limite au Root si tu utilises la bonne forme de SelectDirectory

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var
  D: string;
begin
  SelectDirectory('salut', ExtractFileDir(Application.ExeName), D);
end;

Sinon, pour la récursivité, pour une question ancienne du forum, j'avais fourni ce code.
Tu peux l'améliorer pour faire deux fonctions non récursives GetListDir et GetListFile pour créer l'arboresence (j'ai aussi ce code mais je ne sais pas où) pour remplir un TTreeView en LazyLoading (via OnChanging)

l'exemple de la FAQ est très bon, mais tu peux en faire une fonction réutilisable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
  {* ----------------------------------------------------------------------- }
  procedure GetListFile(const PathFile: string; ResultList: TStrings; Recurse: Boolean = False);
  var
    SearchRec: TSearchRec;
  begin
    ResultList.BeginUpdate();
    try
      if not Recurse then
        ResultList.Clear();
 
      // '*' ou '*.*' Renvoie '.' et '..'
      if SysUtils.FindFirst(PathFile + '*', faAnyFile, SearchRec) = 0 then
      begin
        try
          repeat
            if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
            begin
              if Recurse then
              begin
                if (SearchRec.Attr and faDirectory) <> 0 then // Dossier
                  GetListFile(IncludeTrailingPathDelimiter(PathFile + SearchRec.Name), ResultList, True) // C'est un Dossier, on cherche les fichiers qu'il contient !
                else
                  ResultList.Add(PathFile + SearchRec.Name) // Fournie Racine + Nom du Fichier
              end
              else
                if (SearchRec.Attr and faDirectory) = 0 then // Fichier
                  ResultList.Add(SearchRec.Name); // Fourni juste le nom du Fichier
            end;
 
          until SysUtils.FindNext(SearchRec) <> 0;
        finally
          SysUtils.FindClose(SearchRec);
        end;
      end;
    finally
      ResultList.EndUpdate();
    end;
  end;

[Kinesra]

Ok, j'ai écris ma routine à base d'un Treeview qui représente fidélement l'arborescence de mon dossier. Ca marche nickel.
Je butte encore sur un problème tout con. Quand l'utilisateur créé un nouveau dossier (un nouveau noeud dans mon Treeview) nommé 'Nouveau dossier', j'aimerais qu'il puisse immédiatement changer son nom donc que le nom du nouveau noeud soit selectionné pour édition.
Un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
Node.Text.SelStart = 0;
Node.Text.SelLength := Lenght(Node.Text);

.. n'est pas possible avec Delphi.

Une idée ?