TOpenDialog customisé ?

**Laskar** · 15/11/2011, 14h59

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 ...

**ShaiLeTroll** · 15/11/2011, 15h13

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

TOpenDialog::OnCanClose

**Laskar** · 16/11/2011, 12h31

Envoyé par ShaiLeTroll

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

**ShaiLeTroll** · 16/11/2011, 15h51

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 c++ :

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
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