Discussion :

[bvsud]

Bonjour à tous

J'ai beau farfouiller, je dois mal le faire. Je cherche un tuto, ou un exemple d'utilisation du composant Jedi JvSelectDirectory

... et je ne le trouve pas

Ils n'ont pas une doc, ou une Faq, quelque part ? SourceForge souvent inaccessible...

Merci :hello:

P.S.: en attendant, je cherche ds les sources et exemples fournis avec Jedi. Apparemment, c'est instructif.

[ShaiLeTroll]

Tu as le Wiki : TJvSelectDirectory.Execute
Souvent très léger !
On peut pense qu'il ressemble à un OpenDialog\SelectDirectory traditionnel !
On a évoqué récemment l'utilisation un OpenDialog Vista (2007) pour sélectionner un dossier et non un fichier

Tu as aussi SHBrowseForFolder BIF_NEWDIALOGSTYLE l'API encaspulé par SelectDirectory bifNewDialogStyle bifUseNewUI

[bvsud]

Eh voilà ! C'est bel et bien un lecteur et un répertoire que je veux saisir d'un coup. JvSelectDirectory me semblait tout indiqué.

Cette syntaxe fonctionne (sur la base de la démo des Jedi) :

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
 
procedure TJvDialogsDemoFrm.Button5Click(Sender: TObject);    // Bouton du JvSelectDirectory
Var     Rep_Choisi : boolean;
        Rep : string;
 
begin
 
  Rep_Choisi := JvSelectDirectory1.Execute;
 
  If Rep_Choisi = True then
      begin
            Rep := JvSelectDirectory1.Directory;
            MessageDlg('LE REPERTOIRE CHOISI : ' + Rep, mtInformation, [mbOK], 0);
      end;
 
end;

Mais celle-là, désignant la Form ds laquelle est placé le JvSelectDirectory, non :

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
 
Procedure Machin;   
Var   Rep_Choisi : boolean;
      Rep : string;
 
begin
 
 
  Rep_Choisi := Form1.JvSelectDirectory1.Execute;
 
  If Rep_Choisi = True then
      begin
      			// Nom_Cplt_Rep_Cible_Effacement  : var globale de type string; 
            Nom_Cplt_Rep_Cible_Effacement := Form1.JvSelectDirectory1.Directory;  // // ---->>> NE RETOURNE RIEN (ou le SEUL drive ! )
            MessageDlg('LE REPERTOIRE CHOISI : ' + Rep, mtInformation, [mbOK], 0);
      end;
 
end;

Pourquoi ça ne marche pas ?

Je n'implémente jamais rien dans les déclarations de contrôles (ex. un bouton). Tout renvoie tjrs à une procédure ou une fonction. C'est plus sûr : si je fais sauter le contrôle, je garde le code

[bvsud]

C'est résolu

Le truc, c'est qu'il faut double-cliquer sur le répertoire, si l'on change de lecteur. Autrement, le "JvSelectDirectory1.Directory" retourne uniquement le lecteur...

Si ça peut aider qqn :

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
 
 
Procedure Appel_SelectDirectory;
Var     Retour : boolean;
        Rep : string;
{
				Rep_Choisi : string, variable globale 
}
 
begin
 
      Form1.JvSelectDirectory1.InitialDir := Rep_Initial;
      Retour := Form1.JvSelectDirectory1.Execute; // DOUBLE-CLIC INDISPENSABLE SUR LE REPERTOIRE A CHOISIR : autrement, c'est le LECTEUR et  lui seul qui est désigné !
 
      If Retour = True then
          begin
                Rep_Choisi := Form1.JvSelectDirectory1.Directory;
                If Length(Rep_Choisi) = 3 then  // Seul le lecteur a été retourné 
                    begin
                          Retour := False;
                          MessageDlg('DOUBLE-CLIC INDISPENSABLE POU UN CHEMIN COMPLET', mtError, [mbOK], 0);
                          Appel_SelectDirectory; // on rappelle la procédure
                    end
                Else
                    begin
                          Form1.Lab_Aff_Rep_Choisi.Caption := Rep_Choisi;
                          ChDir(Rep_Initial);
                    end;
          end
      Else		// Retour = False
          begin
                MessageDlg('ABANDON DE LA SAISIE', mtInformation, [mbOK], 0);
          end;
 
      Form1.Btn_Quitter.SetFocus;
 
end;