Discussion :

[chtiot]

Bonjour,

J'ai toujours mon pb de police avec un richedit.

Pour mieux expliquer : voici ce que j'ai à l'écran dans l'edi (et c'est idem en execution) :



j'utilise, pour le memo1 et le richedit1 la police Courier New en Charset OEM_CHARSET par contre, apparemment le richedit ne reconnait pas l'OEM_CHARSET et le remplace par DEFAULT_CHARSET

Est-ce bien ça?

Quelqu'un aurait une solution?

merci[/img]

[Nicolas.C]

çà ne dépend pas du système d'exploitation les charsets ? Enfin çà ne devrait pas exister sur un composant et pas sur l'autre ...

Aide Delphi :

OEM_CHARSET 255 Dépend de la page de code du système d'exploitation.

DEFAULT_CHARSET 1 La fonte est choisie en se basant *seulement sur le nom et la taille*. Si la fonte décrite n'est pas disponible sur le système, Windows lui substituera une autre fonte.

à mon avis faire ton prog avec çà c'est pas une bonne idée vu que çà changera en fonction de la machine sur laquelle tu vas faire tourner ton prog... Et DEFAULT_CHARSET, c'est visiblement pas çà ...

Essaye ANSI_CHARSET ? Ou regarde le nom du charset 'par défaut' de ta version de windows...

[chtiot]

merci, mais quelque soit le charset utilisé dans le richedit, je n'obtiens pas ce que je veux

en regardant avec charmap.exe, les semi-graphiques font partie du jeu de caractéres DOS Europe Centrale mais pas du jeu de caractéres Windows Europe Centrale

le problème me semble venir du richedit qui n'accepterait que les jeux de caractères Windows (mais je n'en suis pas sur car si je copie un de ces caractères par Charmap et que je le colle dans mon richedit, celui-ci est bien affiché ...)

[chtiot]

en fait j'ai l'impression qu'il faudrait que je convertisse memo1.text d'oem en ansi pour le mettre dans richedit1 mais j'avoue que je trouve pas comment faire ...

[gord's]

tu as reagardé OemToChar et CharToOem ?

[chtiot]

je trouve pas oemtochar dans l'aide delphi 7 donc si quelqu'un avit un exemple...

j'ai trouvé sur un site et donc j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var strs, strd:string;
begin
  strs := 'ÄÅÄÄÄÄÄÄÄÄÄ';
  OEMtoChar(PChar(Strs), PChar(Strd));
  showmessage(Strd);
end;

à l'exécution j'ai une exception : Access violation at address 77D26305 in module 'user32.dll'.Write of address 00404311.

ça dit quelque chose à quelqu'un?

j'ai fait une connerie?

[Pierre Castelain]

j'ai fait une connerie?

Oui, tu as oublié d'initialiser la chaine qui doit recevoir la version non-OEM.

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject); 
var strs, strd:string; 
begin 
  strs := 'ÄÅÄÄÄÄÄÄÄÄÄ'; 
  SetLength(strd, Length(strs));
  OEMtoChar(PChar(Strs), PChar(Strd)); 
  showmessage(Strd); 
end;

[chtiot]

merci a toi pierre,

ça marche maintenant sans exeption et mes caractères sont convertis mais de semi graphiques à leur équivalent texte (le + pour le signe Filet fin vertical et horizontal, - pour le Filet fin horizontal ...)

je ne sais donc toujours pas quoi faire

[chtiot]

Mon problème est résolu, en fait j'affectais mal ma police dans le richedit

mais je finirai un jour par devenir bon (jamais autant que nono40 ou Pierre catelain ou autres experts que je ne citerai pas)