4D Doc Center : WR INSERER TEXTE STYLE

4D Write v14

WR INSERER TEXTE STYLE


WR INSERER TEXTE STYLE ( zone ; blob )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
blob	BLOB	Variable ou champ

Description

La commande WR INSERER TEXTE STYLE insère dans la zone à l'emplacement du curseur ou en remplacement de la sélection courante le contenu du BLOB passé en paramètre. Le BLOB peut être une variable ou un champ de type BLOB mais il est indispensable qu'il ait été créé grâce à la commande WR Lire texte style.

Le BLOB peut être porté d'un document à l'autre. Son format est indépendant de la plate-forme, il peut aussi bien avoir été créé à partir d'un document Macintosh et être inséré dans un document Windows ou inversement.

Il contient une sélection de texte 4D Write incluant tous les attributs de texte (couleur, style...) hormis les feuilles de style, ainsi que les attributs de paragraphe (marges, tabulations, formatage...).

Exemple

Vous voulez stocker dans la table [FormulesCourriers] les formules types pour vos courriers, le tout utilisant le minimum de place.
Pour cela, créez dans la table un champ de type BLOB intitulé 'TexteFormule'. Dans son formulaire Entrée, insérez une zone 4D Write nommée 'LaZone'. Enfin, associez au formulaire la méthode suivante :

 Au cas ou

    :(Evenement formulaire=Sur chargement)

       Si(Numero enregistrement([FormulesCourriers])#-3)

          WR INSERER TEXTE STYLE(LaZone;[FormulesCourriers]TexteFormule)

       Fin de si

    :(Evenement formulaire=Sur données modifiées)

       WR EXECUTER COMMANDE(LaZone;wr cmd tout sélectionner)

       [FormulesCourriers]TexteFormule:=WR Lire texte style(LaZone)

 Fin de cas