Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combining RTF fomatted text
Message
De
18/11/2003 03:39:05
Michael Gass
Instructional Software, Inc.
Kirkland, Washington, États-Unis
 
 
À
18/11/2003 00:18:41
Scott Butts
Ims Specialty Services
Twin Falls, Idaho, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00850825
Message ID:
00850887
Vues:
14
Scott - It works like a charm. Thanks! - Mike

>>How can I combine two memo fields containing RTF text in order to display them together in a RichText Control?
>
>Here is some code cut from a working object that does just that, I haven't tested the cut up code so if you have some problems, drop me an email. Hope this helps.
>
>First create a cursor with all the rich text information in memo fields that you want to process.
>
>
>WITH THIS
>	.oRTF.TextRTF 	= ""
>	SCAN
>		lcReturnText = ""
>		lcReturnText = TableName.RTFText_From_Memo_Field
>		IF !(EMPTY(lcReturnText))                             && if you have RTF to add
>			.oRTF.SELSTART 	= LEN(.oRTF.TextRTF)          && start at end of current RTF
>			IF !EMPTY(.oRTF.TEXT)                         && if there is text in the control
>				.oRTF.SELTEXT 	= CRLF                && add a CRLF
>				.oRTF.SELSTART 	= LEN(.oRTF.TextRTF)  && Reset the insertion start point
>			ENDIF
>			.oRTF.SELTEXT = lcReturnText                  && Add the new RTF Text
>		ENDIF
>	ENDSCAN
>	lcReturnText = .oRTF.TextRTF
>ENDWITH
>RETURN lcReturnText
>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform