4D Write v16WR INSERT STYLED TEXT |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR INSERT STYLED TEXT
|
WR INSERT STYLED TEXT ( zone ; blob ) | ||||||||
Paramètre | Type | Description | ||||||
zone | Entier long |
![]() |
Zone 4D Write | |||||
blob | BLOB |
![]() |
Variable ou champ | |||||
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...).
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 :
Case of
:(Form event=On Load)
If(Record number([FormulesCourriers])#-3)
WR INSERT STYLED TEXT(LaZone;[FormulesCourriers]TexteFormule)
End if
:(Form event=On Data Change)
WR EXECUTE COMMAND(LaZone;wr cmd select all)
[FormulesCourriers]TexteFormule:=WR Get styled text(LaZone)
End case
Produit : 4D Write
Thème : WR Gestion de texte
Numéro :
89472
Créé : 4D Write 6.5
4D Write - Langage ( 4D Write v16)