Discussion :

[gbegreg]

Bonsoir,

Je viens de passer à l'update 1 de Delphi Berlin 10.1 (et accessoirement à Windows 10 "Anniversaire"). Depuis, je constate que le code suivant affiche les boutons de la boite de dialogue en anglais alors que Windows est paramétré en français :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Vcl.Dialogs.MessageDlg('Essai', mtConfirmation, [mbYes, mbNo, mbYesToAll, mbNoToAll, mbCancel], 0, mbYes);

Alors qu'avant le passage à l'update 1, les boutons s'affichaient bien en français lorsque Windows était paramétré en français.

A noter, qu'en utilisant MessageBox, avec le code ci dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

messagebox(0,'Essai','ceci est un essai', MB_YESNOCANCEL+mb_iconinformation);

les boutons de la boite de dialogue sont bien en français.

Avez vous déjà constaté cela et comment y remédier ? (il n'y a pas d'équivalent aux valeurs mbYesToAll et mbNoToAll dans le messagebox)

Je vous remercie par avance pour vos réponses.

[Paul TOTH]

Bonjour,

C'est surprenant, Vcl.Dialogs.MessageDlg est une fiche crée par Delphi; le texte des boutons provient de Vcl.Consts qui contient des resourcestring, en français normalement.

[gbegreg]

Bonjour Paul,

Oui c'est surprenant
Pour le test, il suffit de faire une nouvelle application VCL, de poser un TButton sur la fiche et dans l'événement Onclick du bouton mettre le code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Vcl.Dialogs.MessageDlg('Essai', mtConfirmation, [mbYes, mbNo, mbYesToAll, mbNoToAll, mbCancel], 0, mbYes);
  messagebox(0,'Essai','ceci est un essai', MB_YESNOCANCEL+mb_iconinformation);
end;
 
end.

Voici la capture d'écran du premier message (MessageDlg):


et voici la capture du second message (MessageBox) :



J'ai fait également l'essai sous Firemonkey. Le code suivant affiche les boutons en anglais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FMX.Dialogs.MessageDlg('Test', System.UITypes.TMsgDlgType.mtConfirmation, FMX.Dialogs.mbYesAllNoAllCancel, 0, System.UITypes.TMsgDlgBtn.mbNoToAll);

alors que le code suivant affiche les boutons en français :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FMX.Dialogs.MessageDlg('Test', System.UITypes.TMsgDlgType.mtConfirmation, FMX.Dialogs.mbYesNo, 0, System.UITypes.TMsgDlgBtn.mbNoToAll);

Lors de la mise à jour de Delphi, j'ai bien sélectionné la langue française.

Cordialement,
Grégory.

[Thierry Laborde]

Bonjour,

Dans le répertoire BIN de l'installation de votre Delphi. Normalement :

C:\Program Files (x86)\Embarcadero\Studio\18.0\bin

Vous trouverez l'exe : BDSSetLang.exe

En le lançant vous trouverez 2 onglets le 1er pour modifier la langue de l'IDE et le 2ème pour modifier la langue des librairies. Une fois la modification faite il faudra bien entendu relancer Delphi.

[gbegreg]

Bonjour,

Je vous remercie pour votre réponse. Je ne connaissais pas l'utilitaire BDSSetLang.exe.

Malheureusement pour moi, sur les 2 onglets la langue française était déjà sélectionnée. J'ai modifié pour mettre en anglais puis relancé Delphi : le comportement toujours identique.
J'ai fermé Delphi, reparamétré en français sur les 2 onglets et relancé Delphi. J'ai toujours le comportement curieux...

Le comportement est identique lorsque j'exécute project1.exe sur un PC équipé de Windows 7 français.

Par contre, j'ai essayé en compilant (mon test VCL) en 64 bits, et là j'ai bien les boutons en français !

Y aurait il un paramétrage qui m'échappe dans les options du projet en Windows 32 bits (le projet de test n'a rien d'extraordinaire : Fichier / Nouveau / Application fiches VCL Delphi) ?

Cordialement,
Grégory.

[gbegreg]

J'ai oublié : l'exemple avec Firemonkey compilé en Windows 64 bits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FMX.Dialogs.MessageDlg('Test', System.UITypes.TMsgDlgType.mtConfirmation, FMX.Dialogs.mbYesAllNoAllCancel, 0, System.UITypes.TMsgDlgBtn.mbNoToAll);

=> les boutons s'affichent aussi en français alors qu'en 32 bits, ils s'affichent en anglais.