Le formatage du contrôle activex RichText avec les états Visual FoxPro

Le = formatage du contrôle activex = RichText avec les états = Visual FoxPro.

Introduction. L’activex RichT= ext (Microsoft RichText control) est trè= ;s flexible et utile quand on l’utilise dans les états de Foxpro. Il permet un contrôle complet du formatage du texte à présenter. Les spécifications du contrôle fournissent un format pour le= texte et les graphiques qui peuvent être employés avec différents appareils de sortie (ex : écran, imprima= ntes etc.), environnements de fonctionnement (Windows, MAC etc.), et logici= els d'exploitation (Visual FoxPro, Visual Basic etc.)

Un dossier RTF se compose du texte, des mots de commande, des symboles = de service, et des groupes non formatés. Pour la facilité du transpo= rt, un dossier standard RTF peut se composer seulement des caractères de 7-= bit ASCII.Il n'y a aucune longueur de ligne maximum d'ens= emble pour un dossier de RTF. Un mot de commande est une commande particulièrement composée que le RTF emploie pour marquer les codes et l'information de commande d'imprimeur que les applications emploie= nt pour contrôler des documents. Un mot de commande ne peut pas être plus long que 32 caractères. Exemple :

\Séq= uenceLettre<Delimiteur>

= *Notez qu'une barre oblique commence chaque mot de commande.

La séquence de lettre se compose des lettres minuscules entre "a" et "z" inclus. Le RTF est reconnaît les majuscules et le minuscules, et tous les mots de commande du RTF doivent être minuscules. Le délimiteur marque la fin d'un mot de comma= nde de RTF, et peut être l'un de ce qui suit:

* Un espace. Dans ce cas-ci, l'esp= ace fait partie du mot de commande.

= * Un chiffre ou un tra= it d'union (-), qui indique qu'un paramètre numérique suit.=

*Tout caractère autre qu'une lettre ou un chiffre. Dans ce cas-ci, le caractèr= e délimitant termine le = mot de commande mais n'est pas réellement une partie du mot de commande.

&n= bsp;

Exemple d’utilisation. Les exemples qui suivent sont toutes basés sur le code de base suivant. Seulement les commandes de formatages changent. Voici les concepts principaux :

· Créer un état FoxPro et y ajouter un ‘Picture/Activex Bound control’ et l’agrandir à la grandeur désiré.

· Stocker le texte à être formaté dans un variable (ou directement dans un champ mémo)

· Créer un table (ou un curseur) contenant deux champs (un champ mémo et un autre de type général.

· Créer un fichier vide de type ‘RTF’.

· Utiliser le TEXTMERGE pour remplir le document RTF (si y il a plusieurs enregistreme= nts dans la table.

· À l’interieur d’un loop (SCAN…ENSCAN) faire un APPEND GENERAL pour copier le contenu du champ mémo vers le champ général (puisque que le ‘‘Picture/Activex Bound controlR= 17; fonctionne avec un champ de type général.

· Effacer le fichier RTF.

· Pré visualiser l’état.

&n= bsp;

&nb= sp; Voici le code :

&= nbsp; CLEAR ALL

CLOSE DATABASES all <= span style=3D'color:#339966'>&& Fermer toutes les tables.

LOCAL lcStr &= ;& Déclarer un variable local

lcs= tr =3D "Note that th= ere is a limit of 32 characters total for the sum of text"+;<= /p>

"before and text= after for simple numbering. Multilevel numbering has a limit"+;

"of 64 characters total for the sum of all levels.NOTE: The file = must have a"+;

".RTF extension to work properly." && Remplir la variable de texte.

CREATE cursor ctext (lctext m,gText g) && Créer un curseur.

INSERT INTO ctext (lctext) VALUES (lcStr) && Insérer le texte dans le champs mé= mo

_rtfFile =3D "c:\"+SYS(3)+".rtf" && Créer un instance d’un fichier RTF

SCAN

SET TEXTMERGE TO &_rtfFile NOSHOW

SET TEXTMERGE ON<= /span>

\\{\rtf1 <<ALLT(cText.lcText)>>= }

SET TEXTMERGE TO<= /span>

APPEND GENERAL gText FROM &= amp;_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1" &&Class RTF

ENDSCAN

REPORT FORM rtfdemo PREVIEW NOCONSOLE

ERASE &am= p;_rtfFile Suprimmer le fichier RTF

&n= bsp;

Veuillez noter que l’example ci-haut n’aucun formatage.

Le résultat du code ci-haut donne ce= ci.

· Spécifier le set de caractères.

Il faut idéalement spécifier le set de caractères = a utiliser.

Changer la ligne :

\\{\rtf1 <<ALLT(cText.lcText)>>= }

\\{\rtf1\ansi <<A= LLT(cText.lcText)>>}

Les différents sorte de caractères = son comme suit :

\ansi ANSI (the default)<= b>

\mac Apple Macintosh

\pc IBM PC code page 437

\pca IBM PC code page = 850, used by IBM Personal System/2 (not implemented in version 1 of Microsoft Wo= rd for OS/2)

Si l’on reprend le co= de ci haut modifi&ea= cute;, le changement ne s’effectue pas puisque par défaut le ansi est de mise.<= /o:p>

<= /span>

·        Spécifier texte souligné ou non.

Changer la ligne de :

<= /span>\\{\rtf1\ansi <<A= LLT(cText.lcText)>>}

à

\\{\rtf1\ansi\ul <<ALLT(cText.lcText)>>}

Le résultat de ce changement donne ceci :

=

·        Spécifier le texte souligné avec des tirets.

Changer la ligne :

\\{\rtf1\ansi\ul <<ALLT(cText.lcText)>>}

à

\\{\rtf1\ansi\uldash <<ALLT(cText.lcText)>>}

Le résultat de ce changement donne ceci :

Voici une liste des codes de formatage de mo= ts pour le contrôle Activex :

\plain

Reset font (character) formatting properties to a de= fault value defined by the application (for example, bold, underline and italic= are disabled; font size is reset to 12 pt). The associated font (character) formatting properties (described in the section Associated Character Properties of this RTF Specific= ation) are also reset.

\animtextN

Animated text properties.

1 — Las Vegas Lights

2 — Blinking background

3 — Sparkle text

4 — Marching black ants

5 — Marching red ants

6 — Shimmer

\accnone

No accent characters (over dot / over comma).

\accdot

Over dot accent.

\acccomma

Over comma accent.

\b<= /b>

Bold.*

\caps

All capitals.*

\cbN

Background color (the default is 0).

\cchsN

Indicates any characters not belonging to the default document character set and tells which character set they do belong to. Macintosh character sets are represented by values greater than 255. The values for N correspond to the values for the \ fc= harset control word.

\cfN

Foreground color (the default is 0).

\charscalexN

Character scaling value. The N argumen= t is a value representing a percentage (the default is 100).

\csN

Designates character style. If a character style is specified, style properties must be specified with the character run. = N refers to an entry in the style table.

\cgridN

Character grid.

\g<= /b>

Destination related to character grids.

\gcw

Grid column width.

\gridtbl

Destination keyword related to character grids.

\deleted

Marks the text as deletion revision marked.*

\dnN

Subscript position in half-points (the default is 6)= .

\embo

Emboss.

\expndN

Expansion or compression of the space between charac= ters in quarter-points; a negative value compresses (the default is 0).

\expndtwN

Expansion or compression of the space between charac= ters in twips; a negative value compresses. For ba= ckward compatibility, both \expndtw and \expnd<= /code> should be emitted.

\fittextN

Fit the text in the current group in N= twips. When N is set to -1 (= \fittext-1) it indica= tes a continuation of the previous \<= span class=3DSpellE>fittextN run. In other words {\fitt= ext1000 Fit this} {\fittext-1 text} fits the string "Fit this text" in 1000 twips.

\fN

Font number. N refers to an entry in t= he font table.

\fsN

Font size in half-points (the default is 24).

\i

Italic.*

\impr

Engrave.

\kerningN

Point size (in half-points) above which to kern char= acter pairs. \kerning0 turns off kerning.

\langfeN

Applies a language to a character. N i= s a number corresponding to a language. The \plain control word resets the language property to the language defined by \deflangfeN in the document properties= .

\langfenpN

Applies a language to a character. N i= s a number corresponding to a language. The \plain control word resets the language property to the language defined by \deflangfeN in the document properties. Usually follows \langfeN

\langN

Applies a language to a character. N i= s a number corresponding to a language. The \plain control word resets the language property to the language defined by \deflangN in the document properties. =

\langnpN

Applies a language to a character. N i= s a number corresponding to a language. The \plain control word resets the language property to the language defined by \deflangN in the document properties. = It is identical to \langN, but needed when \noproof is written together with \lang<= /span>1024 in order to preserve the language of the text that is not being checked f= or spelling or grammar. Usually follows \langN

\ltrch

The character data following this control word will = be treated as a left-to-right run (the default).

\rtlch

The character data following this control word will = be treated as a right-to-left run.

\noproof

Do not check spelling or grammar for text in the gro= up. Serves the function of \lang1024. usually \lan= g1024 is emitted with it for backwards compatibility with old readers.

\nosupersub

Turns off superscripting or subscripting.

\nosectexpand

Disable character space basement.

\outl

Outline.*

\rtlch

The character data following this control word will = be treated as a right-to-left run.

\scaps

Small capitals.*

\shad

Shadow.*

\strike

Strikethrough.*

\striked1<= /span>

Double strikethrough. \striked0 turns it off.

\sub

Subscripts text and shrinks point size according to = font information.

\super

Superscripts text and shrinks point size according t= o font information.

\ul

Continuous underline. \ul0 turns off all underlining.

\ulcN

Underline color

\uld

Dotted underline.

\uldash

Dash underline.

\uldashd

Dash dot underline.

\uldashdd

Dash dot dot underline. =

\uldb

Double underline.

\ulhwave

Heavy wave underline

\ulldash

Long dash underline

\ulnone

Stops all underlining.

\ulth

Thick underline

\ulthd

Thick dotted underline

\ulthdash

Thick dash underline

\ulthdashd

Thick dash dot underline

\ulthdashdd

Thick dash dot dot under= line

\ulthldash

Thick long dash underline

\ululdbwave

Double wave underline

\ulw

Word underline.

\ulwave

Wave underline.

\upN

Superscript position in half-points (the default is = 6).

\v<= /b>

Hidden text.*

\webhidden

Indicates that the text in the group is hidden in Wo= rd 2000's Web View and will not be emitted upon saving as web page.

*Noter que les codes= de formatage sont limités aux polices installées sur l’ordinateur.

·        Les caractères spéciaux. Le contrôle RTF inclus aussi des caractères spéciaux que l’on peut insérer au tex= te.

Changer la ligne :

\\= {\rtf1\ansi\ul <<ALLT(cText.lcText)>>= }

à

\\= {\rtf1\ansi\chdpa <<ALLT(<= /span>cText.lcText)>>}

Ceci a pour effet d’ajoutér une la date courante en format long avant le texte. Voici le résultat :

·        Ajouter un point devant le texte :

Changer la ligne :

\\= {\rtf1\ansi\ul <<ALLT(cText.lcText)>>= }

à

      <= /span>\\{\rtf1\ansi\bullet <<ALLT(cText.lcText)>>}

Voici le résultat :

·        La justification. Il est possible de justifier le texte (Centre – Gauche= – Droite – Pleine - Distribué)

\qc=

Centered.

\qj

Justified.

\ql

Left-aligned (the default).

\qr

Right-aligned.

\qd

Distributed.

Voici= le code :

CLEAR ALL

CLOSE DATABASES all

LOCAL lcStr

lcs= tr =3D "Note that th= ere is a limit of 32 characters total for the sum of text"+;<= /p>
&q= uot;before and text after for simple numbering. Multilevel numbering has a limit"+;

&= quot;of 64 characters total for the sum of all levels.NOTE: The file must have a"+;<= /span>

   ".RTF extension to work properly."+;

   "Note that there is a limit of 32 characters total for the sum of text"+;

&q= uot;before and text after for simple numbering. Multilevel= numbering has a limit"+;

&= quot;of 64 characters total for the sum of all levels.NOTE: The file must have a"+;<= /span>

   ".RTF extension to work properly."

CREATE cursor ctext = (lctext m,gTe= xt g)

INSERT INTO ctext (<= span class=3DSpellE>lctext) VALUES (lcStr)

_rtfFile =3D "c:\"+SYS(3)+".rtf"

SCAN

   SET TEXTMERGE TO &_rtfFile NOSHOW

   SET TEXTMERGE ON

   \\{\rtf1\ansi\qj <<ALLT(cText.lcText)>>}

   SET TEXTMERGE TO

   APPEND GENERAL gText FROM &= amp;_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1"

ENDSCAN

REPORT FORM rtfdemo PREVIEW NOCONSOLE

Le résultat donne ceci :

Le résultat donne la justification complète.

Conclusion : Il y a des centaines de code de formatage qui ne sont= couvert dans cet article et dans centaines de possibilités. Mais l’activex RTF est très sous-utilisé.=

Vous pouvez trouver la liste complète des spécifications = de l’activex RTF ici :

http://latex2rtf.sourceforge.net/rtfspec.html

Mike Gagnon

`\plain`	Reset font (character) formatting properties to a de= fault value defined by the application (for example, bold, underline and italic= are disabled; font size is reset to 12 pt). The associated font (character) formatting properties (described in the section Associated Character Properties of this RTF Specific= ation) are also reset.
`\animtextN`	Animated text properties. 1 — Las Vegas Lights 2 — Blinking background 3 — Sparkle text 4 — Marching black ants 5 — Marching red ants 6 — Shimmer
\accnone	No accent characters (over dot / over comma).
\accdot	Over dot accent.
\acccomma	Over comma accent.
`\b<= /b>`	Bold.*
`\caps`	All capitals.*
`\cbN`	Background color (the default is 0).
`\cchsN`	Indicates any characters not belonging to the default document character set and tells which character set they do belong to. Macintosh character sets are represented by values greater than 255. The values for N correspond to the values for the `\` fc= harset control word.
`\cfN`	Foreground color (the default is 0).
`\charscalexN`	Character scaling value. The N argumen= t is a value representing a percentage (the default is 100).
`\csN`	Designates character style. If a character style is specified, style properties must be specified with the character run. = N refers to an entry in the style table.
`\cgridN`	Character grid.
`\g<= /b>`	Destination related to character grids.
`\gcw`	Grid column width.
`\gridtbl`	Destination keyword related to character grids.
`\deleted`	Marks the text as deletion revision marked.*
`\dnN`	Subscript position in half-points (the default is 6)= .
`\embo`	Emboss.
`\expndN`	Expansion or compression of the space between charac= ters in quarter-points; a negative value compresses (the default is 0).
`\expndtwN`	Expansion or compression of the space between charac= ters in twips; a negative value compresses. For ba= ckward compatibility, both `\expndtw` and `\expnd<= /code> should be emitted.`
`\fittextN`	Fit the text in the current group in N= twips. When N is set to -1 (`= \fittext`-1) it indica= tes a continuation of the previous `\<= span class=3DSpellE>fittextN` run. In other words `{\fitt= ext1000 Fit this} {\fittext-1 text}` fits the string "Fit this text" in 1000 twips.
`\fN`	Font number. N refers to an entry in t= he font table.
`\fsN`	Font size in half-points (the default is 24).
`\i`	Italic.*
`\impr`	Engrave.
`\kerningN`	Point size (in half-points) above which to kern char= acter pairs. `\kerning0 turns off kerning.`
`\langfeN`	Applies a language to a character. N i= s a number corresponding to a language. The `\plain` control word resets the language property to the language defined by \deflangfeN in the document properties= .
`\langfenpN`	Applies a language to a character. N i= s a number corresponding to a language. The `\plain` control word resets the language property to the language defined by \deflangfeN in the document properties. Usually follows `\langfeN`
`\langN`	Applies a language to a character. N i= s a number corresponding to a language. The `\plain` control word resets the language property to the language defined by \deflangN in the document properties. =
`\langnpN`	Applies a language to a character. N i= s a number corresponding to a language. The `\plain` control word resets the language property to the language defined by \deflangN in the document properties. = It is identical to `\langN`, but needed when `\noproof` is written together with `\lang<= /span>`*1024* in order to preserve the language of the text that is not being checked f= or spelling or grammar. Usually follows `\langN`
`\ltrch`	The character data following this control word will = be treated as a left-to-right run (the default).
`\rtlch`	The character data following this control word will = be treated as a right-to-left run.
`\noproof`	Do not check spelling or grammar for text in the gro= up. Serves the function of \lang1024. usually \lan= g1024 is emitted with it for backwards compatibility with old readers.
`\nosupersub`	Turns off superscripting or subscripting.
`\nosectexpand`	Disable character space basement.
`\outl`	Outline.*
`\rtlch`	The character data following this control word will = be treated as a right-to-left run.
`\scaps`	Small capitals.*
`\shad`	Shadow.*
`\strike`	Strikethrough.*
`\striked1<= /span>`	Double strikethrough. `\striked0` turns it off.
`\sub`	Subscripts text and shrinks point size according to = font information.
`\super`	Superscripts text and shrinks point size according t= o font information.
`\ul`	Continuous underline. `\ul0` turns off all underlining.
`\ulcN`	Underline color
`\uld`	Dotted underline.
`\uldash`	Dash underline.
`\uldashd`	Dash dot underline.
`\uldashdd`	Dash dot dot underline. =
`\uldb`	Double underline.
`\ulhwave`	Heavy wave underline
`\ulldash`	Long dash underline
`\ulnone`	Stops all underlining.
`\ulth`	Thick underline
`\ulthd`	Thick dotted underline
`\ulthdash`	Thick dash underline
`\ulthdashd`	Thick dash dot underline
`\ulthdashdd`	Thick dash dot dot under= line
`\ulthldash`	Thick long dash underline
`\ululdbwave`	Double wave underline
`\ulw`	Word underline.
`\ulwave`	Wave underline.
`\upN`	Superscript position in half-points (the default is = 6).
`\v<= /b>`	Hidden text.*
`\webhidden`	Indicates that the text in the group is hidden in Wo= rd 2000's Web View and will not be emitted upon saving as web page.

`\qc=`	Centered.
`\qj`	Justified.
`\ql`	Left-aligned (the default).
`\qr`	Right-aligned.
\qd	Distributed.