Exemplo Colorir String - RTF
n_tamanho_cnpj_i,n_tamanho_cnpj_f,n_tamanho_inscricao_est_i,n_tamanho_inscricao_est_f is int=0 s_texto is string="Cnpj:" n_tamanho_cnpj_i=Length(s_texto) s_texto+="92.715.978.0001-58 " n_tamanho_cnpj_f=Length(s_texto)
s_texto+=CR+"Insc.Est: " n_tamanho_inscricao_est_i=Length(s_texto) s_texto+="Isento" n_tamanho_inscricao_est_f=Length(s_texto) s_texto+=CR+"======================"
EDT_RTF_Text=s_texto EDT_RTF_Text..Cursor=n_tamanho_cnpj_i EDT_RTF_Text..CursorEnd=n_tamanho_cnpj_f RTFSelection(EDT_RTF_Text,rtfColor,LightBlue)
EDT_RTF_Text..Cursor=n_tamanho_inscricao_est_i EDT_RTF_Text..CursorEnd=n_tamanho_inscricao_est_f RTFSelection(EDT_RTF_Text,rtfColor,LightMagenta)
//Blog com Video e Exemplo http://windevdesenvolvimento.blogspot.com.br/2016/08/curso-windev-string-014-rtf-colorir.html https://www.youtube.com/watch?v=DbGYzz4QKi8
|