Discussion :

[jlbrd]

Bonjour,

Je dois générer un état avec des libellés dans une police de caractères .ttf qui n'est pas installé par défaut dans Windows.

Donc là j'ai deux solutions :
1. Installer la police bien-sûr mais comme cette appli est déployée sur plusieurs postes ça va nécessiter de faire le tour de ceux-ci pour l'installer
2. Embarquer la police dans l'appli et l'utiliser directement sans l'installer. Oui mais est-ce possible et comment faire ?

Merci de vos lumières et bonne journée

[frenchsting]

Bonjour,

Pas sûr que cela soit possible 'simplement'. J'ai vu qu'il existe une api qui s'appelle AddFontResource / AddFontResourceEx qui permet d'installer une police présente dans le dossier windows\fonts.

A tester : le plus difficile étant de réussir à copier dans le dossier fonts, je pense...

[EDIT] Le lien a consulter pour l'api : https://docs.microsoft.com/en-us/win...n-and-deletion

[serendib]

Bonsoir,

Dixit Microsoft :
Pour installer temporairement une police, appelez AddFontResource ou AddFontResourceEx .
Ces fonctions chargent une police stockée dans un fichier de ressources de police.
Cependant, il s'agit d'une installation temporaire car après un redémarrage, la police ne sera pas présente.

Hélas, c'est là qu'est l'os !
Donc, livrer la police dans l'install
la mettre dans un rép. choisi et lance appli avec le .ttf.

[arthurdnt]

Bonjour,

Vous pouvez utiliser la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
SI AjouteFont(sMaFont) ALORS
	polMaPolice est une Police
	polMaPolice	        = PoliceCrée("Tapestry")
 
	LIB_TestPolice.Police	= polMaPolice
	LIB_TestPolice		= "Salut à tous"
FIN
 
PROCÉDURE INTERNE AjouteFont(LOCAL sChemin est chaîne UNICODE)
    RENVOYER 0 <> API("gdi32", "AddFontResourceExW", sChemin, 0x10, 0)
FIN

Il faut cependant ajouter la police à côté de l'exe comme dit précédemment.

cf : https://www.developpez.net/forums/d1...t/#post7533072

Testé en Windev 27

[jlbrd]

Voici ce que j'ai fait :

1. J'ai copié mon fichier police dans le projet (clic droit sur "Autres" puis "Ajouter des éléments"):

2. Ensuite j'ai créé une méthode pour la charger :

Code :

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

1
2
3
4
5
6
7
8
PROCÉDURE ChargerPolice(LOCAL P_sNom est une chaîne) : booléen
iRes			est un entier sur 8 octets
sFichierTemp	est une chaîne	= fFichierTemp()
SI fExtraitRessource(P_sNom, sFichierTemp) = Vrai ALORS
	iRes = API("gdi32", "AddFontResourceA", sFichierTemp)	
FIN
 
RENVOYER iRes > 0

3. On appelle la création de police et on l'utilise :

Code :

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

1
2
3
4
5
6
7
8
MaPolice est une Police
SI ChargerPolice("XXXX.ttf") = Faux ALORS
	Info("Pb de chargement de police")
SINON
	MaPolice.Nom		= "XXXX" // Mettre le nom de la police et non le nom du fichier 
	MaPolice.Taille	= 18
	LIB_SansNom1.Police	= MaPolice
FIN

Résultat :


Donc pas de difficulté particulière et merci de m'avoir aiguillé vers la solution. Effectivement la police est "oubliée" au redémarrage du PC mais il suffit de la charger juste avant de l'utiliser. Je ne la décharge pas non plus car ce n'est pas gênant de la garder tant que le PC tourne.

Bonne journée,

[DevAdic]

Voici ce que j'ai fait :

1. J'ai copié mon fichier police dans le projet (clic droit sur "Autres" puis "Ajouter des éléments"):

2. Ensuite j'ai créé une méthode pour la charger :

Code :

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

1
2
3
4
5
6
7
8
PROCÉDURE ChargerPolice(LOCAL P_sNom est une chaîne) : booléen
iRes			est un entier sur 8 octets
sFichierTemp	est une chaîne	= fFichierTemp()
SI fExtraitRessource(P_sNom, sFichierTemp) = Vrai ALORS
	iRes = API("gdi32", "AddFontResourceA", sFichierTemp)	
FIN
 
RENVOYER iRes > 0

3. On appelle la création de police et on l'utilise :

Code :

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

1
2
3
4
5
6
7
8
MaPolice est une Police
SI ChargerPolice("XXXX.ttf") = Faux ALORS
	Info("Pb de chargement de police")
SINON
	MaPolice.Nom		= "XXXX" // Mettre le nom de la police et non le nom du fichier 
	MaPolice.Taille	= 18
	LIB_SansNom1.Police	= MaPolice
FIN

Résultat :


Donc pas de difficulté particulière et merci de m'avoir aiguillé vers la solution. Effectivement la police est "oubliée" au redémarrage du PC mais il suffit de la charger juste avant de l'utiliser. Je ne la décharge pas non plus car ce n'est pas gênant de la garder tant que le PC tourne.

Bonne journée,

Bonjour,

J'essaye de compléter ton code avec le déchargement mais sans succès...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
PROCÉDURE DechargerPolice(LOCAL P_sNom est une chaîne) : booléen
 
iRes			est un entier sur 8 octets
sFichierTemp	est une chaîne	= fFichierTemp()
SI fExtraitRessource(P_sNom, sFichierTemp) = Vrai ALORS
 
	iRes = API("gdi32.dll", "RemoveFontResourceA", sFichierTemp)
 
FIN
 
RENVOYER iRes <> 0

Le iRes est toujours à 0 alors que les polices sont bien présente dans windows (elle se supprime au redémarrage).
Return value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero.

Si vous avez un piste

[frenchsting]

Bonjour,
J'essaye de compléter ton code avec le déchargement mais sans succès...

Bonjour,

La discussion a plus d'un an et jlbrd n'est pas un utilisateur du forum qui soit très actif...

Question à 2 sous : quel est l'intérêt de faire le déchargement de la police ?

[DevAdic]

Les polices ajoutées sont accessibles depuis n'importe quel logiciel durant la session.
Le fait de les décharger évite qu'elle reste présente une fois le logiciel fermé

[jlbrd]

Bonjour,

La discussion a plus d'un an et jlbrd n'est pas un utilisateur du forum qui soit très actif...

Pas très actif mais quand même présent...

Du coup je n'ai jamais essayé de décharger la police et effectivement je ne vois pas l'intérêt moi non plus

Bonne journée,

[frenchsting]

@jlbdr : Il suffit qu'on parle de toi et hop, tu es là

Les polices ajoutées sont accessibles depuis n'importe quel logiciel durant la session.
Le fait de les décharger évite qu'elle reste présente une fois le logiciel fermé

En quoi cela est-il gênant ?

Une fois qu'ils en ont choisi une (et encore, ils prennent souvent celle par défaut), 99,9% des utilisateurs ne changent jamais de police de caractères. Tout au plus, ils s'amusent avec les fontes (taille, gras,...) de leur police.

En regardant cette discussion, je vois que c'est le nom du fichier qui doit être passé en paramètre

[DevAdic]

Voilà j'ai trouvé :

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCÉDURE ChargerPolice(LOCAL P_sNom est une chaîne) : booléen
 
iRes			est un entier sur 8 octets
sFichierTemp	est une chaîne	= fFichierTemp()
FR_PRIVATE est un entier = 16
SI fExtraitRessource(P_sNom, sFichierTemp) = Vrai ALORS
	iRes = API("gdi32", "AddFontResourceExA", sFichierTemp , FR_PRIVATE,0)	
FIN
 
RENVOYER iRes > 0

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCÉDURE DechargerPolice(LOCAL P_sNom est une chaîne) : booléen
 
iRes			est un entier sur 8 octets
sFichierTemp	est une chaîne	= fFichierTemp()
FR_PRIVATE est un entier = 16
SI fExtraitRessource(P_sNom, sFichierTemp) = Vrai ALORS
	iRes = API("gdi32", "RemoveFontResourceExA", sFichierTemp, FR_PRIVATE,0)	
FIN
 
RENVOYER iRes <> 0