4D Doc Center : PV Ajouter police

4D View v14

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

Description

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.

Exemple

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