Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combining RTF fomatted text
Message
De
18/11/2003 13:14:04
Scott Butts
Ims Specialty Services
Twin Falls, Idaho, États-Unis
 
 
À
18/11/2003 03:39:05
Michael Gass
Instructional Software, Inc.
Kirkland, Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00850825
Message ID:
00851108
Vues:
16
Glad it helped.

>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
Répondre
Fil
Voir

Click here to load this message in the networking platform