Discussion :

[Bisounours63]

Bonjour à tous !

Je suis sous Delphi 7 version Entreprise et suis face à un problème important. Malgré mes recherches sur Google je n'arrive pas à résoudre ce dernier. Voici : J'ai par le biais d'une FontDialog accès
aux polices de caractères mais ne parviens pas à les avoir toutes. Ainsi par exemple la police Wingdings est inaccessible.

Est-ce que quelqu'un saurait me dire comment faire pour avoir toutes les polices ? Je suis en train de programmer un petit éditeur de texte et le problème cité me cause pas mal de soucis. Est-ce qu'i y a un moyen par programmation de faire en sorte de dire à Delphi que les polices existent et qu'elles doivent être utilisées quand elles sont sélectionnées ?

Merci d'avance à tous ceux qui sauront me répondre d'une manière simple. Bonne journée !

[guillemouze]

N'as tu pas des Options sur ton TFontDialog qui limiteraient le contenu (du genre fdFixedPitchOnly) ?

[Bisounours63]

N'as tu pas des Options sur ton TFontDialog qui limiteraient le contenu (du genre fdFixedPitchOnly) ?

Bonjour et merci d'avoir répondu !

J'ai fais comme tu m'as dit et ai mis l'option sur "True". Cependant, la police "Wingdings" n'apparaît plus après cela. Il y a encore des polices que je ne peux pas obtenir. Je désirerais vraiment savoir comment obtenir toutes les polices installées. Ce problème est important. Pour le cas où je donnerais mon application à quelqu'un et que cette personne n'avait pas non-plus la ou les polices, ce serait ennuyeux. Je remercie encore tous ceux qui pourront me donner une solution.

Bonne journée à tous !

[Jipété]

Bonjour et merci d'avoir répondu !

J'ai fais comme tu m'as dit et ai mis l'option sur "True". Cependant, la police "Wingdings" n'apparaît plus après cela.

Ce qui veut dire qu'elle apparaissait avant, ce qui ne correspond pas exactement à ce que tu décris dans le post d'origine, résultat on ne comprend rien, résultat du résultat on ne peut pas aider mieux.

[Bisounours63]

Ce que je veux dire c'est que sous Delphi 7 des polices apparaissent bien dans la boîte de dialogue mais que je ne peux pas les sélectionner. Je pense avoir été clair. Je ne demande pas à être critiqué mais seulement une solution à ce problème; si pas de solutions à me proposer alors ne pas répondre.

Merci

[Jipété]

Ce que je veux dire c'est que sous Delphi 7 des polices apparaissent bien dans la boîte de dialogue mais que je ne peux pas les sélectionner.

Tu ne peux pas cliquer sur le nom de la fonte dans la liste ?

Je pense avoir été clair.

Ben non, la preuve.
Rappelle-toi toujours que ce qui est clair pour toi ne l'est pas forcément pour les autres, qui ne sont pas derrière toi à regarder ton écran et ce que tu y fais.

Je ne demande pas à être critiqué mais seulement une solution à ce problème; si pas de solutions à me proposer alors ne pas répondre.

Personne ne te critique, c'est juste un gros besoin de précisions.
Et pas d'bol, j'aime bien les polices, alors les problèmes qui les concernent m'intéressent, et les solutions aussi.

[Charly910]

Bonjour,
je suis sous W10 avec D7. J'ai fait un test et j'ai bien toutes les polices avec un TFontDialog (Même Wingdings).
Mai effectivement avec l'option fdFixedPitchOnly on limite considérablement le nombre de polices visibles
A+
Charly

[Jipété]

Le test fonctionne également parfaitement chez moi (l'exe directement sous XP -- ouhhh c'est pas bien ).

Au-delà des remarques des autres, moi j'ai posé une question bête dont la réponse était oui ou non et toi tu réponds une tartine de plusieurs lignes avec 4 fois le mot "sélectionner" et à la fin, pas de réponse à la question...
En fait on dirait qu'on n'a pas la même signification du mot "sélectionner"...

Alors dans la boîte de dialogue, quand tu cliques sur Wingdings, est-ce que l'aperçu fonctionne (oui-non) ?


Et voilà le résultat du test de Charly910 :

[Cirec]

et que se passe t-il si tu forces la fonte dans le code ?

Code :

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

Memo1.Font.Name := 'Wingdings';

peut être qu'un message d'erreur s'affichera

Cordialement,
@+

[Bisounours63]

Le programme que j'ai essayé (de Charly) fonctionne très bien. Il donne le nom de la police choisie (pardon pour le 'sélectionné'). En revanche ce que j'essaie de faire moi c'est mettre la police choisie dans mon RichEdit. Voilà.

[tourlourou]

Est-ce que ça pourrait être lié à un problème du style RichEdit Unicode et police non Unicode ?

[Bisounours63]

Bonjour et merci,

Je ne peux pas répondre à cette question concernant l'Unicode. Je suis tout débutant en Delphi et ne sais pas ce que c'est. Merci quand-même pour votre intervention.