PV Ajouter police

4D - Documentation   Français   English   German   4D View, Commandes par thèmes   4D View, Liste des commandes   4D View, Constantes par thèmes   Retour   Précédent   Suivant

version 6.8


PV Ajouter police (zone; nomPolice) Entier long

ParamètreTypeDescription
zoneEntier longZone 4D View
nomPoliceAlphaNom de la police
RésultatEntier longNumé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 

Références

PV LIRE LISTE POLICES, PV SUPPRIMER POLICE.


4D - Documentation   Français   English   German   4D View, Commandes par thèmes   4D View, Liste des commandes   4D View, Constantes par thèmes   Retour   Précédent   Suivant