Discussion :

[zorrax]

bonjour

je cherche un peu partout un composant ou un morceau de code afin de créer ue petite application permettant de lister des repertoires et de les cocher afin d'en lister le contenu.

si vous avez vu passer ca...merci bien
j'ai un vague souvenir d'une application permettant cela mais je n'arrive pas a remettre a la main dessus

[Charly910]

Bonjour,

tu mets un DirectoryListBox et un FileListBoc sur ta Form et c'est automatique

(onglet Win3.1 de D7)

A+

Charly

[zorrax]

merci pour cette soluce
en fait je voudrais faire comme sur l'image

[Jipété]

Salut.

en fait je voudrais faire comme sur l'image

Compo TShellTreeView, onglet Exemples si les paquets dclshlctrls.dpk et vclshlctrls.dpk (dans x:\Program Files\Borland\Delphi7\Demos\ShellControls) sont installés, enfin, c'est comme ça dans mon vieux D7 Perso.

Si tu as cette version, tu hériteras également du problème dont j'ai causé ici il y a deux ans...

Si tu as une version plus récente, c'est peut-être (sans doute ? J'aimerais bien savoir, au passage...) corrigé.

Le web est plein de ressources, mais ça va te demander du temps.
Et tu peux commencer par là : 1, 2, 3.

[Lung]

Compo TShellTreeView, onglet Exemples si les paquets dclshlctrls.dpk et vclshlctrls.dpk (dans x:\Program Files\Borland\Delphi7\Demos\ShellControls) sont installés, enfin, c'est comme ça dans mon vieux D7 Perso.

Mais comment faire pour avoir des cases à cocher avec ce composant ?


Sinon, moi pour résoudre le problème, j'utiliserais un TVirtualTreeView, que je remplirais à l'aide des fonctions du TSearchRec pour balayer les répertoires.

[Jipété]

Salut.

Mais comment faire pour avoir des cases à cocher avec ce composant ?

Propriété « StateImages », et comm' d'hab', Google est notre ami à tous,

Mais c'est peut-être plus facile avec un classique TTreeview, sauf qu'il faudra se palucher toute la construction de l'arborescence par code...

[Droïde Système7]

Salut,

Et ça tout bêtement :

Code :

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

1
2
3
4
5
6
7
8
9
 
//uses FileCtrl;
var
  Directory: string;
  Root: WideString;
begin
  Root:='c';
  SelectDirectory('Sélection d''un répertoire', Root, Directory);
end ;

@+

[Jipété]

Salut, ô mon pote Droïde !

Salut,

Et ça tout bêtement :

Code :

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

SelectDirectory('Sélection d''un répertoire', Root, Directory);

Ben SelectDirectory ne propose pas de cases à cocher, et je suppose que quand on les veut, c'est pour pouvoir sélectionner plusieurs dossiers, nan ?

[Droïde Système7]

Salut, ô mon pote jp

Nan pas de de truc à cocher, mais un petit noeud d'arbo à cliquer ; pareil non ?

@+

[Jipété]

Nan pas de de truc à cocher, mais un petit noeud d'arbo à cliquer ; pareil non ?

Pas à mon avis : dans ton cas tu sélectionnes un seul dossier, avec des cases à cocher tu peux en sélectionner plusieurs...
Un peu comme l'interface de NTBackup en mode avancé, onglet "Sauvegarder".