PV SET STYLE PROPERTY

4D View v15


PV SET STYLE PROPERTY ( zone ; style ; propriété ; valeur )

Paramètre	Type	Description
zone	Entier long	Zone 4D View
style	Entier long	Numéro de la feuille de style
propriété	Entier long	Numéro de la propriété
valeur	Entier long	Valeur de la propriété

Description

La commande PV FIXER PROPRIETE STYLE fixe la valeur de propriété pour la feuille de style dont le numéro est style.

Utilisez les constantes du thème PV Propriétés style pour définir le paramètre propriété et les constantes du thème PV Valeurs style pour définir le paramètre valeur. Le choix de la constante à affecter au paramètre valeur dépend de la propriété choisie.

Constante	Type	Valeur
pv style alignement hor	Entier long	29
pv style alignement vert	Entier long	30
pv style caché	Entier long	1
pv style correction orthographe	Entier long	2
pv style couleur fond impair	Entier long	12
pv style couleur fond pair	Entier long	11
pv style couleur négatif impair	Entier long	18
pv style couleur négatif pair	Entier long	17
pv style couleur texte impair	Entier long	14
pv style couleur texte pair	Entier long	13
pv style couleur zéro impair	Entier long	16
pv style couleur zéro pair	Entier long	15
pv style fondé sur style	Entier long	4
pv style format booléen	Entier long	8
pv style format date heure	Entier long	9
pv style format image	Entier long	10
pv style format numérique	Entier long	7
pv style format texte	Entier long	6
pv style format texte forcé	Entier long	32
pv style retour à la ligne auto	Entier long	33
pv style rotation	Entier long	31
pv style texte condensé	Entier long	27
pv style texte étendu	Entier long	28
pv style texte gras	Entier long	22
pv style texte italique	Entier long	23
pv style texte ombré	Entier long	26
pv style texte police	Entier long	19
pv style texte relief	Entier long	25
pv style texte souligné	Entier long	24
pv style texte style	Entier long	21
pv style texte taille	Entier long	20
pv style utiliser taille image	Entier long	3
pv style verrouillé	Entier long	0

Si vous souhaitez définir les propriétés des feuilles de styles par défaut, passez une constante du thème PV Style valeurs spéciales dans le paramètre style :

Constante	Type	Valeur
pv style cellules	Entier long	-1
pv style entête pied page	Entier long	-3
pv style entêtes col lig	Entier long	-2

Note : Ces feuilles de styles sont accessibles via la commande Feuilles de style du menu Format de 4D View.

Exemple

Cette méthode permet de définir les propriétés d’un nouveau style. Dans cet exemple, nous allons définir une valeur pour chacune des trois propriétés de styles à personnaliser :

la propriété "alignement horizontal" prendra la valeur "à gauche",
la propriété "alignement vertical" prendra la valeur "centré",
la propriété "rotation" prendra la valeur "90 degrés".

 ARRAY LONGINT($TabPropriétés;3) `Tableau de propriétés de la feuille de style

 ARRAY LONGINT($TabValeurs;3) `Valeur de chaque propriété

 

 C_TEXT($NomStyle) `Nom de style à ajouter à la Zone

 

 ARRAY LONGINT($TabNumStyles;0) `Tableau des numéros de styles

 ARRAY TEXT($TabNomStyles;0) `Tableau des noms de styles

 C_LONGINT($Indice) `Indice de boucle

 C_LONGINT($Position) `Position du nouveau style dans les tableaux de numéros et de noms

 

  `Initialisations

 $TabPropriétés{1}:=pv style hor alignment  `Propriétés...

 $TabPropriétés{2}:=pv style vert alignment

 $TabPropriétés{3}:=pv style rotation

 

 $TabValeurs{1}:=pv value hor alignment left  `...et valeurs correspondantes

 $TabValeurs{2}:=pv value vert alignment center

 $TabValeurs{3}:=pv value rotation 90

 

 $NomStyle:="Sous-paragraphe"

 

 PV GET STYLE LIST(Zone;$TabNumStyles;$TabNomStyles)  `Liste des styles disponibles

 

 If(Find in array($TabNomStyles;$NomStyle)=-1)  `Style $NomStyle absent ?

    $Position:=Size of array($TabNomStyles)+1  `Nous allons l'ajouter

    INSERT IN ARRAY($TabNomStyles;$Position)  `Redimensionnement des tableaux

    INSERT IN ARRAY($TabNumStyles;$Position)

    $TabNomStyles{$Position}:=$NomStyle  `Affectation du nom du nouveau style

    $TabNumStyles{$Position}:=PV Add style(Zone;$NomStyle)  `Affectation du numéro du nouveau style

 

    For($Indice;1;Size of array($TabPropriétés))  `Pour toutes les propriétés à définir

       If(PV Get style property(Zone;$TabNumStyles{$Position};$TabPropriétés{$Indice})#$TabValeurs{$Indice})

          PV SET STYLE PROPERTY(Zone;$TabNumStyles{$Position};$TabPropriétés{$Indice};$TabValeurs{$Indice})

       End if   `Propriété n'ayant pas la valeur souhaitée ?

    End for  `Passage en revue du tableau $TabPropriétés des propriétés de la feuille de style

 

 Else

    ALERT("Le style '"+$NomStyle+"' est déjà présent pour la zone.")

 End if

Voir aussi

PV Get style property