TOpenDialog customisé ?

Salut,

Y a-t-il moyen de customiser la boîte d'ouverture de fichier qui apparaît lors d'un OpenDialog.execute ? J'aimerais rajouter une case à cocher qui permettrait ou non d'ouvrir le fichier en lecture seul (ou de faire tout autre traitement avant ouverture du fichier).

Merci ...

:f1:
TOpenDialog.Options et TOpenOptions, ofReadOnly, ofHideReadOnly, ofNoReadOnlyReturn...

TOpenDialog::OnCanClose

Citation:

---

Envoyé par ShaiLeTroll

:f1:

---

Bah ... j'ai trouvé nulle part dans l'aide comment rajouter une boîte à cocher sur le dialogue d'ouverture de fichier ...

Ah, tu ne veux pas limiter la recherche aux fichiers en lecture seule !
tu veux indiquer le mode d'ouverture du fichier !
Pourquoi pas, même Word ne le fait pas, il signale l'ouverture en lecture seule avec ou non notification si le fichier est déjà ouvert.

Effectivement, cela n'existe pas, il te sera difficile d'ajouter cette option, car ce n'est pas Delphi qui fourni la fenêtre mais Windows !

Tu peux bidouiller dans le OnShow
Tu as Handle de la fenêtre,
Tu dois pouvoir créer un TCheckBox ou CreateWindow(BUTTON, BS_CHECKBOX...), avec Windows.SetParent, tu peux le coller dans la fenêtre, utilise, SetWindowPos te permettra un positionnement (dépendra de l'OS), tu pourras aussi l'utiliser pour redimensionner, j'ai pas Delphi, en C++Builder, ça donne

Code:

---

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 38 39 40 41

//---------------------------------------------------------------------------   void __fastcall TBeginningCPPMainForm::OpenDialog1Show(TObject *Sender) { TRect ParentRect; _WINDOWS_::GetClientRect(_WINDOWS_::GetParent(OpenDialog1->Handle), &ParentRect);   HWND TmpCheckBox = CreateWindow("BUTTON", "Lecture Seule", WS_CHILD | WS_VISIBLE | BS_AUTOCHECKBOX | BS_MULTILINE, ParentRect.Width() - 80, 1, 80, 34, _WINDOWS_::GetParent(OpenDialog1->Handle), NULL, HInstance, NULL);   OpenDialog1->Tag = (int)TmpCheckBox; } //---------------------------------------------------------------------------   void __fastcall TBeginningCPPMainForm::Button2Click(TObject *Sender) { OpenDialog1->Execute(); } //---------------------------------------------------------------------------     void __fastcall TBeginningCPPMainForm::OpenDialog1Close(TObject *Sender) { if (OpenDialog1->Tag) { HWND TmpCheckBox = (HWND)OpenDialog1->Tag; if (SendMessage(TmpCheckBox, BM_GETCHECK, 0, 0) == BST_CHECKED) ShowMessage("Coché !"); DestroyWindow(TmpCheckBox); OpenDialog1->Tag = 0; } } //---------------------------------------------------------------------------

---

Sur XP
cela mets la CheckBox en haut, à coté des icones d'affichage, je te souhaite bon courage pour gérer tous les cas possible, car il n'y a pas bcp de place
Avec SetWindowLong et CreateObject, tu devrais pouvoir le changer sa FONT
Par défaut, chez moi, le texte est assez gros, j'ignore pourquoi, c'est très moche

Et tu peux aussi jeter un œil ici, mes tests ont été concluants (il y a longtemps...)

Citation:

---

Envoyé par Jipété

Et tu peux aussi jeter un œil ici, mes tests ont été concluants (il y a longtemps...)

---

Super composant (bien qu'effectivement très vieux !) qui semble marcher avec ma version D2010.

http://samiservices.com/ScreenShot.jpg

Merci l'ami :ccool: