Discussion :

[okparanoid]

Beurk !!!

Je trouve ca bizarre qu'il y est pas un composant tout fait un peu plus simple. le TFileListBox me conviendrait parfaitement si les glyphs etaient pas aussi moche...

Mais en faite je crois que rien est perdu parce qu'au depart ce que je veux c'est juste de permettre l'ouverture des fichiers par un double click. C'est pour ca que je demandais le chemin et le nom du fichier, je voulais faire un shellexecute open dessus. Il y a t il une alternative a ca, en gros de permettre de faire par un double click ce que l'on peut faire avec click droit open ?

[Jipété]

Une autre piste (la dernière pour ce soir, après, dodo !) :
C:\Program Files\Borland\Delphi7\Demos\Virtual Listview

HTH,
--
jp

[Sub0]

Code :

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

SubItems[0] := ShellListView.Folders[x].Details[2];

Et va falloir attendre que Sub0 vienne expliquer ce qu'elle fait,
Et effectivement, pourquoi 2 listes ?

Salut Jipété !
J'ai repris ce bout de code de mon projet actuel : Il s'agit d'un explorateur de fichiers distants, ces derniers étant sur un serveur (un site web). Le programme récupère d'abord l'arborescence du serveur puis le nom, la taille et la date de chaque fichier du dossier courant. Ensuite je recrée cette arborescence dans un dossier temporaire sur mon disque dur. J'utilise alors un TShellTreeView pour afficher cette arborescence, un TShellListView pour les obtenir détails des fichiers et un TListView pour les afficher.

Pourquoi ne pas utiliser directement un TShellListView plutôt qu'une TListView ? Parce-que le TShellListView me pose des problèmes pour implémenter les fonctions de tri par colonne entre autres. Avec une TListView, j'obtiens exactement ce que je veux. Voici une capture du dernier résultat :



Pour lancer l'exécution du fichier sélectionné, il suffit normalement d'utiliser l'événement OnDblClick de la ListView puis de lancer ce fichier avec un ShellExecute. Concernant le chemin du fichier, il se trouve dans la propriété Root du TShellListView ou du TTreeView et le nom de fichier, dans la propriété Caption de l'item sélectionné, par exemple :

Code :

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

1
2
3
4
5
6
7
8
Procedure TForm1.ListView1DblClick(Sender: TObject);
Var x: Integer;
Begin
  If (ListView1.SelCount > 0) Then
    For x := 0 To ListView1.Items.Count - 1 Do
      If (ListView1.Items[x].Selected) Then
        ShowMessage(ShellListView1.Root + ListView1.Items[x].Caption);
End;

[okparanoid]

Merci beaucoup,

J'essaye de peaufiner.
Est-ce que tu sais comment faire pour passer en affichage details avec le TShellListview ou/et le TListview, et n'afficher que la colonne nom.
Est-ce que tu sais comment faire pour permettre le glisser deposer de fichier dans la fenetre...
Au cas ou je sois oblige d'utiliser le TListView sais tu d'ou provient l'erreur d'execution rencontree par (dans la mesure ou j'ai pas besoin des details (juste le nom) en ais-je besoin ?):

Code :

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

SubItems[0] := ShellListView.Folders[x].Details[2];

[Sub0]

Oui.

Pour passer en affichage details avec le TShellListView ou/et le TListView, il faut mettre la propriété ViewStyle sur vsReport et attribuer des colonnes (voir l'aide en ligne sur ListView.Columns). Pour n'afficher que le nom, je pense qu'il faut remplacer le code qui te bloque par celui-ci :

Code :

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

ListView1.Items[x].Caption := ShellListView1.Folders[x].DisplayName;

Le problème que tu rencontrais provenait du fait que tu n'avais pas créer suffisemment de colonne dans la ListView ou que le ShellListView n'était pas en mode vsReport...

Pour le glisser-deposer, cherche dans Google.fr avec les mots clés suivants :
delphi listview drag drop

[Sub0]

http://delphi.developpez.com/faq/?pa...agdropexplorer

http://delphi.developpez.com/faq/?pa...ropentrefiches