Posicionar No final DO campo para digitacao
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) //No Final das Linhas vou Digitar n_inicio_digitacao is int=Length(EDT_RTF_Text) //Agora é o segredo EDT_RTF_Text..Cursor=n_inicio_digitacao+1 SetFocus(EDT_RTF_Text)
// Blog com video e Exemplo http://windevdesenvolvimento.blogspot.com.br/2016/09/curso-windev-string-021-posicionar.html https://www.youtube.com/watch?v=pJqPJr0-PrU
|