4D View v15
PV Add font
PV Add font
| PV Add font ( zone ; nom ) -> Résultat | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
Zone 4D View | |||||
| nom | Chaîne |
|
Nom de la police | |||||
| Résultat | Entier long |
|
Numéro de la police | |||||
La commande PV Ajouter police associe la police nomPolice à la zone et retourne son identifiant unique.
Si nomPolice existe déjà, la commande PV Ajouter police retourne son identifiant (ce numéro peut également être obtenu par la commande PV LIRE LISTE POLICES).
Pour plus d'informations sur le fonctionnement des polices associées à une zone 4D View, reportez-vous à la section PV Style, Introduction.
Cette méthode fonctionne en bascule (switch) : elle enlève une police de la zone 4D View ou, à l'inverse, l'associe si elle a préalablement été enlevée.
C_TEXT($NomPolice) //Nom de police à ajouter à/enlever de la Zone
ARRAY LONGINT($TabNumPolices;0) //Tableau des numéros de polices
ARRAY TEXT($TabNomPolices;0) //Tableau des noms de polices
C_LONGINT($Position) //Position de la police dans les tableaux de numéros et de noms
$NomPolice:="Arial"
PV GET FONT LIST(Zone;$TabNumPolices;$TabNomPolices) //Liste des polices disponibles
$Position:=Find in array($TabNomPolices;$NomPolice)
If($Position=-1) //Police $NomPolice indisponible pour la zone ?
$Position:=Size of array($TabNomPolices)+1 //Nous allons l'ajouter
INSERT IN ARRAY($TabNomPolices;$Position) //Redimensionnement...
INSERT IN ARRAY($TabNumPolices;$Position) //...des tableaux
$TabNomPolices{$Position}:=$NomPolice //Affectation du nom de la nouvelle police
$TabNumPolices{$Position}:=PV Add font(Zone;$NomPolice) //Affectation du numéro de la police
Else //Police $NomPolice présente pour la zone
PV REMOVE FONT(Zone;$TabNumPolices{$Position}) //Supprimons-la
End if
Produit : 4D View
Thème : PV Style
Numéro :
15889
Créé : 4D View 6.8
4D View - Langage ( 4D View v15)
