Alternative à TOpenDialog/TSaveDialog

**sat83** · 29/12/2009, 15h32

Bonjour à tous,

Je suis sous BCB5, et comme l'explique très bien cette page:

Problem is that Borland incorrectly wrote those components and when Microsoft add some new extended features in own dialogs, standard TOpenDialog and TSaveDialog still use old style. For example, when Microsoft added placebar in own dialogs, VCL's dialog still use old style without placebars.

Connaissez-vous un composant alternatif à TOpenDialog permettant d'avoir la boite de dialogue "actuelle" de Windows (avec la barre d'emplacements à gauche)?

Je me suis cassé les dents à essayer de faire la traduction Delphi => BCB pour l'instant sans succès, donc si certains d'entre vous ont une idée, je suis preneur!

Merci d'avance.

Voici une image trouvée sur le net avec une barre d'emplacement dans un OpenDialog, qui n'est pas présente dans le TOpenDialog (sous BCB5):

**10_GOTO_10** · 29/12/2009, 19h31

Voir du coté de l'option ofOldStyleDialog

Sinon, appeler directement les API Windows GetOpenFileName et GetSaveFileName avec les flags OFN_ENABLESIZING et OFN_EXPLORER.

**sat83** · 30/12/2009, 08h30

ofOldStyleDialog est pas défaut à false.
En le mettant à true, on se retrouve avec une boite de dialogue style Win3.1

Par contre effectivement en utilisant GetOpenFileName et OPENFILENAME ça fonctionne. Merci beaucoup pour les liens fournis!

Un petit exemple simple pour ceux que ça intéresse (il y a d'autres éléments paramétrables, voir l'aide sur OPENFILENAME):

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
  OPENFILENAME ofn;
  char szFile[300];
  *szFile = 0 ;
 
  ZeroMemory(&ofn, sizeof(OPENFILENAME));
  ofn.lStructSize  = sizeof(OPENFILENAME);
  ofn.hwndOwner    = Application->Handle;
  ofn.lpstrFile    = szFile;
  ofn.nMaxFile     = sizeof(szFile);
  ofn.lpstrFilter  = "Fichiers Text\0*.txt\0";
  ofn.lpstrDefExt  = "txt" ;
  ofn.Flags        = OFN_PATHMUSTEXIST ;
  ofn.lpstrTitle   = "Enregistrer Sous..." ;
 
  if ( GetOpenFileName(&ofn) )
    ShowMessage(  ofn.lpstrFile ) ;
  else
    ShowMessage( "Aucun fichier sélectionné" ) ;