PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 25 → WD - Como adicionar as notas finais de código em negrito na super campo RTF vitória dev (SC_RTF)
WD - Como adicionar as notas finais de código em negrito na super campo RTF vitória dev (SC_RTF)
Started by BOLLER ADRIANO, Jun., 30 2016 2:16 AM - No answer
#1
Registered member
3,660 messages
Popularité : +175 (223 votes)
Posted on June, 30 2016 - 2:16 AM
Como adicionar as notas finais de código em negrito na super campo RTF vitória dev (SC_RTF)

//Variables
sChaine est une chaîne = RC + RC + "Solution retenue : " + RC + RC
nTaille est un entier = Taille("Solution retenue : ")
nPosition est un entier

//Ajout de la chaine dans le champ de saisie
RTFAjoute(SC_RTF.SAI_Texte,sChaine)
nPosition = RTFRecherche(SC_RTF.SAI_Texte, "Solution retenue : ",rtfMotComplet+rtfSensibleCasse,1)

//Passage de la chaine en gras
RTFSelection(SC_RTF.SAI_Texte, rtfGras, Vrai, nPosition, nTaille)

//On repasse la saisie en non-gras après cette chaine
RTFSelection(SC_RTF.SAI_Texte, rtfGras, Faux, nPosition + nTaille + 1)

//On se replace en saisie dans le champ
RepriseSaisie(SC_RTF.SAI_Texte)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Go back to WINDEV 25