j'ai réussi à récupérer la taille de la barre de titre, mais pas sa police
de caractère. Lorsque mon utilisateur personnalise sa police avec l'option
"extra large", le rendu est très mauvais et surtout l'utilisateur n'arrive
pas à lire mon texte.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour SAISAS, SAISAS a écrit :
Bonjour,
j'ai réussi à récupérer la taille de la barre de titre, mais pas sa police de caractère. Lorsque mon utilisateur personnalise sa police avec l'option "extra large", le rendu est très mauvais et surtout l'utilisateur n'arrive pas à lire mon texte.
Quelqu'un aurait-il une solution.
Merci.
Tu peux récupérer la police de la barre de titre dans la clé CaptionFont de la branche :
j'ai réussi à récupérer la taille de la barre de titre, mais pas sa police
de caractère. Lorsque mon utilisateur personnalise sa police avec l'option
"extra large", le rendu est très mauvais et surtout l'utilisateur n'arrive
pas à lire mon texte.
Quelqu'un aurait-il une solution.
Merci.
Tu peux récupérer la police de la barre de titre dans la clé
CaptionFont de la branche :
j'ai réussi à récupérer la taille de la barre de titre, mais pas sa police de caractère. Lorsque mon utilisateur personnalise sa police avec l'option "extra large", le rendu est très mauvais et surtout l'utilisateur n'arrive pas à lire mon texte.
Quelqu'un aurait-il une solution.
Merci.
Tu peux récupérer la police de la barre de titre dans la clé CaptionFont de la branche :
Je ne sais ni pourquoi il me rajoute 3 à la taille de police, ni elle est avec un signe négatif. Mais cela me donne le résultat.
Cordialement.
"Jacques93" a écrit :
Bonjour SAISAS, SAISAS a écrit : > Bonjour, > > j'ai réussi à récupérer la taille de la barre de titre, mais pas sa police > de caractère. Lorsque mon utilisateur personnalise sa police avec l'option > "extra large", le rendu est très mauvais et surtout l'utilisateur n'arrive > pas à lire mon texte. > > Quelqu'un aurait-il une solution. > > Merci.
Tu peux récupérer la police de la barre de titre dans la clé CaptionFont de la branche :
Je ne sais ni pourquoi il me rajoute 3 à la taille de police, ni elle est
avec un signe négatif. Mais cela me donne le résultat.
Cordialement.
"Jacques93" a écrit :
Bonjour SAISAS,
SAISAS a écrit :
> Bonjour,
>
> j'ai réussi à récupérer la taille de la barre de titre, mais pas sa police
> de caractère. Lorsque mon utilisateur personnalise sa police avec l'option
> "extra large", le rendu est très mauvais et surtout l'utilisateur n'arrive
> pas à lire mon texte.
>
> Quelqu'un aurait-il une solution.
>
> Merci.
Tu peux récupérer la police de la barre de titre dans la clé
CaptionFont de la branche :
Je ne sais ni pourquoi il me rajoute 3 à la taille de police, ni elle est avec un signe négatif. Mais cela me donne le résultat.
Cordialement.
"Jacques93" a écrit :
Bonjour SAISAS, SAISAS a écrit : > Bonjour, > > j'ai réussi à récupérer la taille de la barre de titre, mais pas sa police > de caractère. Lorsque mon utilisateur personnalise sa police avec l'option > "extra large", le rendu est très mauvais et surtout l'utilisateur n'arrive > pas à lire mon texte. > > Quelqu'un aurait-il une solution. > > Merci.
Tu peux récupérer la police de la barre de titre dans la clé CaptionFont de la branche :
Si tu modifie Form_Load, comme ceci, tu devrais obtenir la taille réelle de la police : Look XP : Trebuchet MS 9.75 arrrondi à 10) Look W2K: Tahoma 8.25 arrondi à 8
Private Sub Form_Load() Dim cNC As New FontInfo1 cNC.GetMetrics Set lblSample(0).Font = cNC.Font(Me.hDC, captionfont) lblSample(0).Caption = CInt(cNC.Font(Me.hDC, captionfont).Size) [...]
-- Cordialement,
Jacques.
SAISAS a écrit :
Merci,
j'ai réussi à récupérer l'info avec SystemParametersInfo, mais je trouve
cela curieux ... même si cela marche.
Si tu modifie Form_Load, comme ceci, tu devrais obtenir la taille réelle
de la police :
Look XP : Trebuchet MS 9.75 arrrondi à 10)
Look W2K: Tahoma 8.25 arrondi à 8
Private Sub Form_Load()
Dim cNC As New FontInfo1
cNC.GetMetrics
Set lblSample(0).Font = cNC.Font(Me.hDC, captionfont)
lblSample(0).Caption = CInt(cNC.Font(Me.hDC, captionfont).Size)
[...]
Si tu modifie Form_Load, comme ceci, tu devrais obtenir la taille réelle de la police : Look XP : Trebuchet MS 9.75 arrrondi à 10) Look W2K: Tahoma 8.25 arrondi à 8
Private Sub Form_Load() Dim cNC As New FontInfo1 cNC.GetMetrics Set lblSample(0).Font = cNC.Font(Me.hDC, captionfont) lblSample(0).Caption = CInt(cNC.Font(Me.hDC, captionfont).Size) [...]
-- Cordialement,
Jacques.
SAISAS
Un grand merci,
et je pense que j'ai du travail pour choisir la bonne police ...
"Jacques93" a écrit :
SAISAS a écrit : > Merci, > > j'ai réussi à récupérer l'info avec SystemParametersInfo, mais je trouve > cela curieux ... même si cela marche. > > Call SystemParametersInfo(SPI_GETICONTITLELOGFONT, Len(fontInfo), > fontInfo, 0) > Fsz = -3 - fontInfo.lfHeight >
Je pense que cela est lié aux différences entre les notions de LOGFONT et STDFONT. Un autre exemple ici :
Si tu modifie Form_Load, comme ceci, tu devrais obtenir la taille réelle de la police : Look XP : Trebuchet MS 9.75 arrrondi à 10) Look W2K: Tahoma 8.25 arrondi à 8
Private Sub Form_Load() Dim cNC As New FontInfo1 cNC.GetMetrics Set lblSample(0).Font = cNC.Font(Me.hDC, captionfont) lblSample(0).Caption = CInt(cNC.Font(Me.hDC, captionfont).Size) [...]
-- Cordialement,
Jacques.
Un grand merci,
et je pense que j'ai du travail pour choisir la bonne police ...
"Jacques93" a écrit :
SAISAS a écrit :
> Merci,
>
> j'ai réussi à récupérer l'info avec SystemParametersInfo, mais je trouve
> cela curieux ... même si cela marche.
>
> Call SystemParametersInfo(SPI_GETICONTITLELOGFONT, Len(fontInfo),
> fontInfo, 0)
> Fsz = -3 - fontInfo.lfHeight
>
Je pense que cela est lié aux différences entre les notions de LOGFONT
et STDFONT. Un autre exemple ici :
Si tu modifie Form_Load, comme ceci, tu devrais obtenir la taille réelle
de la police :
Look XP : Trebuchet MS 9.75 arrrondi à 10)
Look W2K: Tahoma 8.25 arrondi à 8
Private Sub Form_Load()
Dim cNC As New FontInfo1
cNC.GetMetrics
Set lblSample(0).Font = cNC.Font(Me.hDC, captionfont)
lblSample(0).Caption = CInt(cNC.Font(Me.hDC, captionfont).Size)
[...]
et je pense que j'ai du travail pour choisir la bonne police ...
"Jacques93" a écrit :
SAISAS a écrit : > Merci, > > j'ai réussi à récupérer l'info avec SystemParametersInfo, mais je trouve > cela curieux ... même si cela marche. > > Call SystemParametersInfo(SPI_GETICONTITLELOGFONT, Len(fontInfo), > fontInfo, 0) > Fsz = -3 - fontInfo.lfHeight >
Je pense que cela est lié aux différences entre les notions de LOGFONT et STDFONT. Un autre exemple ici :
Si tu modifie Form_Load, comme ceci, tu devrais obtenir la taille réelle de la police : Look XP : Trebuchet MS 9.75 arrrondi à 10) Look W2K: Tahoma 8.25 arrondi à 8
Private Sub Form_Load() Dim cNC As New FontInfo1 cNC.GetMetrics Set lblSample(0).Font = cNC.Font(Me.hDC, captionfont) lblSample(0).Caption = CInt(cNC.Font(Me.hDC, captionfont).Size) [...]
