4D v13
PV Ajouter police
PV Ajouter police
| PV Ajouter police ( 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_ALPHA(255;$NomPolice) `Nom de police à ajouter à/enlever de la Zone
TABLEAU ENTIER LONG($TabNumPolices;0) `Tableau des numéros de polices
TABLEAU ALPHA(255;$TabNomPolices;0) `Tableau des noms de polices
C_ENTIER($Position) `Position de la police dans les tableaux de numéros et de noms
$NomPolice:="Arial"
PV LIRE LISTE POLICES(Zone;$TabNumPolices;$TabNomPolices) `Liste des polices disponibles
$Position:=Chercher dans tableau($TabNomPolices;$NomPolice)
Si($Position=-1) `Police $NomPolice indisponible pour la zone ?
$Position:=Taille tableau($TabNomPolices)+1 `Nous allons l'ajouter
INSERER DANS TABLEAU($TabNomPolices;$Position) `Redimensionnement...
INSERER DANS TABLEAU($TabNumPolices;$Position) `...des tableaux
$TabNomPolices{$Position}:=$NomPolice `Affectation du nom de la nouvelle police
$TabNumPolices{$Position}:=PV Ajouter police(Zone;$NomPolice) `Affectation du numéro de la police
Sinon `Police $NomPolice présente pour la zone
PV SUPPRIMER POLICE(Zone;$TabNumPolices{$Position}) `Supprimons-la
Fin de si
Produit : 4D
Thème : PV Style
Numéro :
15889
Nom intl. : PV Add font
Liste alphabétique des commandes
Créé : 4D View 6.8
PV LIRE LISTE POLICES
PV SUPPRIMER POLICE
