PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Mettre dans un fichier les polices contenues dans l'ordinateur?
Mettre dans un fichier les polices contenues dans l'ordinateur?
Débuté par gerard.celle, 02 déc. 2005 14:07 - 3 réponses
#1
Posté le 02 décembre 2005 - 14:07
Bonjour,


Comment faire pour mettre dans un fichier toutes les polices de caractères contenues dans l'ordinateur.

Merci
#2
Posté le 02 décembre 2005 - 17:24
Bonjour,

Voir POLICELIST()

SLTS
#3
Posté le 03 décembre 2005 - 09:53
Bonjour,

Merci Daniel

POLICELIST() oui mais quelles instrutions pour remplir une table ?
Je tourne en rond

SLTS
#4
Posté le 03 décembre 2005 - 15:56
Tu peux placer les polices directement dans une liste ou une combo:
ListeAjoute(Combo1,PoliceListe())

Si tu veux absolument les placer dans une table (mémoire), voici une méthode possible:
Crée une liste ou une combo cachée. Ici, je l'appelle "Combo1".
Je nomme la table à garnir "Table1".
Ensuite dans le code d'un bouton ou ailleurs, tu mets:
Indice est un entier
ListeAjoute(Combo1,PoliceListe())
POUR Indice=1 A ListeOccurrence(Combo1)
....TableAjoute(Table1,Combo1[Indice])
FIN

Si tu veux les placer dans un fichier (décrit dans ton analyse), voici une méthode possible:
Crée une liste ou une combo cachée. Ici, je l'appelle "Combo1".
Je nomme le fichier à compléter "Polices".
Ensuite dans le code d'un bouton ou ailleurs, tu mets:
Indice est un entier
ListeAjoute(Combo1,PoliceListe())
POUR Indice=1 A ListeOccurrence(Combo1)
....Polices.NomPolice=Combo1[Indice])
....Polices.AutreRubriqueEventuelle=???
....HAjoute(Polices)
....Si HErreurDoublon() Alors ... // Si clé unique
FIN
→ Revenir à WINDEV 2024