begin process at 2012 02 11 14:32:07
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Composants

 > DIRECTORYDLG (BOÎTE DE DIALOGUE CHOIX DU DOSSIER)

DIRECTORYDLG (BOÎTE DE DIALOGUE CHOIX DU DOSSIER)


 Information sur la source

Note :
Aucune note
Catégorie :Composants Classé sous :composant, dialog, enveloppe, repertoire, dossier Niveau :Débutant Date de création :26/09/2008 Date de mise à jour :27/09/2008 11:10:06 Vu / téléchargé :2 533 / 312

Auteur : Bacterius

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

  • 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é !
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 !

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

26 septembre 2008 21:08:59 :
// Oubli du RES (pas d'icone bouhouhouh)
27 septembre 2008 11:10:07 :
// Niveau débutant (Initié par inadvertance)

 Sources du même auteur

Source avec Zip Source avec une capture RAYTRACING EN DELPHI (PROGRESSIVE PATH TRACING)
Source avec Zip Source avec une capture MOTEUR PHYSIQUE 2D CHIPMUNK.. EN DELPHI!
Source avec Zip Source avec une capture DOWNSAMPLING OU COMMENT BIEN OPTIMISER LE CODE
Source avec Zip Source avec une capture FACTORISATION ET TEST DE PRIMALITÉ 32 BITS ULTRA OPTIMISÉ
Source avec Zip LECTEUR DE FICHIER MULTIMÉDIA RIFF

 Sources de la même categorie

Source avec Zip MOVCONTROL par abmed1963
Source avec Zip Source avec une capture PACKAGE DE COMPOSANTS CINDY V4.41 par MAURICIO
Source avec Zip Source avec une capture DBNAVIGATORPLUS par pascal1541
Source avec Zip Source avec une capture EVALUATION D' EXPRESSIONS MATHÉMATIQUE (MÉTHODE RPN) par MAURICIO
Source avec Zip Source avec une capture COMPOSANT TQPROGRESSBAR UNE BARRE DE PROGRESSION... par yanb

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture PROJETS DÉMO DU PACK DE COMPOSANTS CINDY V4.30 par MAURICIO
Source avec Zip Source avec une capture COMPOSANT TQPROGRESSBAR UNE BARRE DE PROGRESSION... par yanb
Source avec Zip TGPS COMPOSANT DE GESTION DES TRAMES NMEA 0185 par ILP
Source avec Zip COMPOSANT TCYCOMMUNICATE - COMMUNIQUER AVEC VOS AUTRES APPLI... par MAURICIO
Source avec Zip MASQUER UN REPERTOIRE par L_art_ment

Commentaires et avis

Commentaire de f0xi le 27/09/2008 00:43:36 administrateur CS

shellapi > SelectDirectory

pouf ...

Commentaire de Nicolas___ le 27/09/2008 10:02:09

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

Commentaire de Bacterius le 27/09/2008 11:09:15

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 !

Commentaire de cirec le 27/09/2008 11:19:29 administrateur CS

"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

Commentaire de Bacterius le 27/09/2008 11:24:58

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 !

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

[composant] open dialog [ par titiyo ] bonjour,voila j'ai un open dialog et j'aimerais , si c'est possible bloque la possibilite de changer le repertoire de recherhce et les obligés de rest Le nom d'un composant. [ par Becracker ] Salut à tous, Je voudrais svp savoir kel est le nom du composant qui sert à spécifier un dossier à partir d'un boutton, genre je Composant genre opendialog pour ouvrir un dossier [ par Sat83 ] hello...J'utilise la version personnel gratuite Delphi6, et je me souvient qu'un ami ami avais installé sur cette meme version un composant du meme ge Innosetup et plusieurs exécutables [ par furax13 ] bonjour,je débute avec le programme innosetup.J'ai plusieurs composants(au sens innosetup) à installer en utilisant innosetup. Chaque c Send File Via ServerSocket [ par koaiz ] Salut les Pro.Je Galaire y a t-il un moyer d'envoyer un fichier (Image jpg ou Bmp)avec le composant ServerSocket Car je suis entarin de travailler sur Cookie [ par OcHre ] Salut, j'utilise le composant idHTTP et j'aurais aimé savoir si des personnes ontdeja utilisées le composant idCookieManager parceque je n'a prob d'impression dans un service web [ par jeremydem ] je programme en delphi 8 et je voudrais imprimer a partir d'un service web.j'utilise le composant prindocument, au moment du print j'ai toujours le m& Extraire le dernier dossier d'un chemin [ par emmanuelgo ] Salut à tous...je souhaiterai créer une fonction simple permettant d'extraire le dernier dossier d'un chemin (juste avant le nom du fichier) instalation de composant [ par kalagool ] Salut a tous , Une petite question , je suis debutant est je dois installer la biblitheque des advstringrid. j'ai en ma possesion delphi6 et l' ensem utilisation du composant data controls [ par pone ] pone  J’ai besoin de votre aide. Où pu-je trouver la documentation sur utilisation du composant Data Controls ? Comment utiliser


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,952 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales