WR SET STYLESHEET INFO

4D Write v16


WR SET STYLESHEET INFO ( zone ; numFeuille ; nom ; prisEnCompte ; raccourci )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
numFeuille	Entier long	Numéro de la feuille de style
nom	Alpha	Nom de la feuille de style
prisEnCompte	Entier	0=caractères 1=paragraphes
raccourci	Alpha	un caractère "" si pas de raccourci

Description

La commande WR FIXER INFO FEUILLESTYLE permet de modifier les informations de la feuille de style dont le numéro a été passé en paramètre et contenue dans la zone. Le numéro correspond à l'ordre de la feuille dans la liste telle qu’elle apparaît dans le dialogue ou dans la liste déroulante.

Si nom est égal à une chaîne vide, le titre d'origine de la feuille de style ne sera pas changé. Le nom d'une feuille de style est limité à 31 caractères.
Attention : deux feuilles de style peuvent porter le même nom mais elles auront toujours un numéro différent.

Si appliqueSur est égal à -1, la valeur courante restera la même. Vous pouvez également passer dans le paramètre appliqueSur l'une des constantes suivantes, placées dans le thème WR Paramètres :

Constante	Type	Valeur	Comment
wr appliquer aux caractères	Entier long	0	La feuille de style est appliquée uniquement aux caractères.
wr appliquer aux paragraphes	Entier long	1	La feuille de style est appliquée uniquement aux paragraphes.

Dans le cas de l'application aux paragraphes, cela s'applique du début du premier paragraphe contenu dans votre sélection à la fin du dernier paragraphe contenu dans cette même sélection. Par défaut, la feuille de style que vous créez est appliquée aux caractères.

raccourci permet d’associer ou non un équivalent clavier à la feuille de style. Il n'accepte qu'un seul caractère. Il est combiné implicitement à la touche Commande sous Mac OS et Ctrl sous Windows. Il est préférable d'utiliser des chiffres plutôt que des lettres, celles-ci étant quasiment toutes utilisées dans les menus de 4D Write.
Si raccourci est égal à une chaîne vide, aucun raccourci ne sera affecté à la feuille de style numFeuille. Si vous voulez garder le précédent, il faudra le relire avec WR LIRE INFO FEUILLESTYLE et réutiliser la valeur renvoyée par cette commande.

Exemple

Vous souhaitez modifier la feuille de style intitulée “Titre”. Son nom deviendra “Titre 14”, sa police Avant-garde 14, son style gras et sa couleur bleue.

 NbStyles:=WR Count(LaZone;12)

 For($i;1;NbStyles)

    WR GET STYLESHEET INFO(LaZone;$i;$LeNom;$AppliqueSur;$Protégée;$Raccourci)

    If($LeNom="Titre")

       WR SET STYLESHEET INFO(LaZone;$i;"Titre 14";$AppliqueSur;$Raccourci)

       WR SET STYLESHEET FONT(LaZone;$i;"Avant Garde")

       WR SET STYLESHEET TEXT PROP(LaZone;$i;wr font size;14;1)

       WR SET STYLESHEET TEXT PROP(LaZone;$i;wr bold;1;1)

       WR SET STYLESHEET TEXT PROP(LaZone;$i;wr text color;212;1)

    End if

 End for

Voir aussi

WR GET STYLESHEET INFO