Discussion :

[vedge2000]

Bonjour,

j'ai une application développée avec Delphi 2005 qui tourne sans problème sur Windows 2000 à Vista.

Par contre lors du lancement sur Windows 7, tous mes formats de date ou monétaire par exemple

Code :

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

1
2
  FormatDateTime('dd mmmm yyyy',Now);
  Format('%m',[Montant]);

et ca affiche par défaut le format américain (Monday, Thu ou le symbole '$').
J'ai déjà mis les paramètres régionaux en Français Suisse avec les bons symboles mais rien n'a faire.

j'ai également pu forcé le symbole monétaire et le format des dates mais je n'ai pas trouvé pour les jours qui s'affiche en français!

Code :

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

1
2
3
  LongDateFormat:='ddd dd.mm.yyyy';
  ShortDateFormat:='dd.mm.yyyy';
  CurrencyString :='SFr.';

Pouvez-vous m'aider?

Merci d'avance

[Andnotor]

Peut-être quelques infos ici.

ps: Le code normalisé est CHF .

[khena]

Bonjour,
je viens de tester

Code :

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

showMESSAGE(FormatDateTime('dd mmmm yyyy',Now));

avec Delphi 2010, la date sort correctement en Français sous Windows 7 Français (27 janvier 2010).

Le problème viendrait de la version de Delphi ? Ou peut-etre des paramétrages de la langue de Windows?

Dans un programme de test, sans toucher aux variables globales, si vous demandez

Code :

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

FormatDateTime('c',Now)

il vous le sort en français (jj/mm/yy) ou en américain?


edit : je viens de lire le thread ci-dessus, ça viendrait des versions de Seven qui ne sont pas "Français" de base...

[vedge2000]

Peut-être quelques infos ici.

ps: Le code normalisé est CHF .

Merci de la news. Je vais regarder et vous tenir au courant!

Je sais que le symbole est CHF mais, caprices des clients, ils veulent un SFr (par défault) car ils trouvent le CHF 'moche' sur une facture ... allez savoir pourquoi!

[vedge2000]

Bon, apparemment j'ai trouvé une solution

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
Function MakeLCID( lgID: Word; srtid: Word ): DWORD;
Begin
  Result := MakeLong( lgid, srtid );
End;
 
Function MakeLangID( p, s: Word ): Word;
Begin
  Result := (s shl 10) or p
End;
 
procedure TForm9.FormCreate(Sender: TObject);
begin
  Win32Check( SetThreadLocale(MakeLCID(MakeLangID( LANG_FRENCH, SUBLANG_FRENCH_SWISS), 0 )));
  GetFormatSettings;
  Application.UpdateFormatSettings := false;
end;

Source :
http://www.delphigroups.info/2/9/325580.html

Merci à tout le monde

[olpons]

Bonjour,

J'ai également eu ce problème que j'ai contourné en lisant ces articles :

http://stackoverflow.com/questions/1...serdefaultlcid

https://forums.embarcadero.com/threa...threadID=30655

http://social.technet.microsoft.com/...4-ee17bfa689e0

Il semblerait y avoir un bug dans Windows 7 ou bien un defaut de compatibilité entre les applications Delphi antérieures à Delphi 2010 et Windows 7. Ce n'est pas encore vraiment bien déterminé.

Cela reste à confirmer bien évidemment mais ces sujets apportent quelques solutions de contournement.

Olive