Directorydlg (boîte de dialogue choix du dossier)

Soyez le premier à donner votre avis sur cette source.

Vue 3 956 fois - Téléchargée 586 fois

Description

Bonjour,
eh bien, j'en avais assez de devoir créer ma boîte de dialogue à chaque fois que je dois sélectionner un dossier.
Alors j'ai fait ce composant.
C'est une fiche de sélection de dossier (avec un ShellTreeView, raccourcis, et tout le bazar), accompagné d'un composant enveloppe (comme les TOpenDialog et tout), ainsi qu'un petit exemple.
Plusieurs propriétés utiles sont fournies avec.

Bon il est assez complet, prend en charge les raccourcis, pas mal d'options, ergonomique, des images sympas, etc ...

Si il manque des trucs dans le zip appelez-moi !

L'exemple crée le composant dynamiquement. Vous n'avez pas besoin d'installer le composant pour tester l'exemple :)

Voilà, appréciez mon composant :)

Source / Exemple :


procedure Unzip(var AParams: array of Const);
Var
 Tmp: String;
 I: DWord;
begin
 if not (Tmp in AParams) then Halt
  else
 repeat
  begin
   Inc(I);
   ReadLine(I);
   ParseLine(I);
   TranstypeLine(I, Tmp);
  end
 until I >= High(AParams);
end;

Haha t'as copié-collé le code !
J'tai cassé !

Conclusion :


Tous remarques, critiques, commentaires, conseils, etc ...

Codé sous Delphi 6 !

Cordialement, Bacterius !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
8
Ben il devrait se libérer tout seul ce shelltreeview non ? Si ca vient de mon code je vais arranger ça.
Si ça vient du ShellTreeView, je vais essayer d'utiliser des compos plus fiables ...

Cordialement, Bacterius !
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
"et Dieu sait qu'il le veut son compo !"
oui nous l'avons tous remarqué ^^

sinon je vais pas répéter ce qui a déjà été dit
mais il semblerait que le "TShellTreeView" ne soit toujours pas au point ...

An unexpected memory leak has occurred. The unexpected small block leaks are:

37 - 44 bytes: TShellFolder x 1

45 - 52 bytes: String x 1

53 - 60 bytes: TStringList x 1

85 - 92 bytes: TShellChangeThread x 4

109 - 116 bytes: String x 1

125 - 132 bytes: String x 2
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
8
Ouais f0xi mais c'est nul la boîte SelectDirectory, j'ai déjà essayé.
C'est tristounet.

En revanche, pour Nicolas, je pensais l'avoir mis dans débutant.
J'ai dû donner un coup de molette en passant sur la combobox ...
J'arrange ça.

Cordialement, Bacterius !
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
2
C'est plutôt FileCtrl je pense ... Ce compo fait un peu plus ,
et Dieu sait qu'il le veut son compo !

Par contre le niveau initié n'est pas justifié je trouve ...

Nico
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
32
shellapi > SelectDirectory

pouf ...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.