Cette fonction permet d'énumérer les polices de caractères d'une imprimante donnée ou de l'écran.
Domaine d'application
Client Windows
Client Adélia Cloud
Client Event Adélia
Paramètres
ALPHA |
NomImp |
Nom de l'imprimante dont on veut énumérer les polices. Si NomImp = *BLANK les polices de l'écran sont énumérées. |
ALPHA |
NomPolice |
Nom de la police. |
NUM_BIN_2 |
LgNomPolice |
Taille du buffer NomPolice. |
NUM_BIN_2 |
NumPolice |
Numéro d'incrément de l'énumération. |
NUM_BIN_2 |
Type |
0 Tout type de police. 1 Police non proportionnelle. 2 Police proportionnelle. |
BOOL |
CodeRetour |
Code retour de l'opération : *VRAI si l'opération s'est déroulée correctement. *FAUX dans le cas contraire. |
Remarque : au premier appel de la fonction, NumPolice doit être égal à 0. Puis ce paramètre doit être incrémenté de 1 avant chaque nouvel appel, jusqu'à ce que CodeRetour retourne *FAUX. De plus, la DLL VatoolBx doit rester chargée jusqu'à la fin de l'énumération.
Par exemple
|
|
|
|
|
|
CHARGER_DLL 'VaToolBx'
APPELER_DLL 'VaToolBx.Dll' 'VaToolBxEnumPrinterFontName' NomImp NomPolice LgNomPolice NumPolice Type CodeRetour
TANT_QUE CodeRetour = *VRAI
/* NomPolice contient le nom de la police
NumPolice = NumPolice + 1
APPELER_DLL 'VaToolBx.Dll' 'VaToolBxEnumPrinterFontName' NomImp NomPolice LgNomPolice NumPolice CodeRetour
REFAIRE
DECHARGER_DLL 'VaToolBx'
