william Posted January 9, 2015 Report Share Posted January 9, 2015 Amigos essa parece ser fácil mas não é: Tenho um richedit e 1 botao. Sempre que pulsar o botao, tem que inserir (adicionar) no final do texto richedit a data atual ( date() ) , só que com fonte Tahoma e size = 10. Lembrando que no richedit vai ter outros textos com fontes e tamanhos diferentes digitados pelo usuario , e sempre que clicar no botao, insere a data atual na ultima linha com fonte tahoma e size 10 , mas mantendo as caracteristicas do restante . Perguntei no forum inter , mas nem o Linares resolveu (ou nao teve tempo) Grato William Adami EdwardPluh, Maximofell and Ronaldbuch 3 Quote Link to comment Share on other sites More sharing options...
Euclidao Posted January 10, 2015 Report Share Posted January 10, 2015 William, eu também não entendi bem a sua pergunta... talvez agora... O Linares achou que você queria fazer isso pela classe tRichEdit que serve mais para digitar os dados (é meio complicado automatizar). Antigamente eu utilizava a classe RtfMerge mas ela só funciona em arquivos RTF até 64Kb Hoje eu utilizo Word com Ole (que funciona também com RTF) No forum deve ter alguns exemplos, senão, no site do Toledo... Pode tratar o arquivo RTF diretamente (fopen, fwrite). Abaixo mostro um exemplo: {\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Calibri;}{ \f1\fnil\fcharset0 Arial Rounded MT Bold;}{\f2\fnil\fcharset0 Tahoma;}} {\colortbl ;\red255\green0\blue0;} {\*\generator Msftedit 5.41.21.2509;}\viewkind4\uc1\pard\sa200\sl240\slmult1\lan g22\f0\fs18 Postado Ontem, 06:15\par \b\fs24 Amigos essa parece ser f\'e1cil mas n\'e3o \'e9:\b0\fs22\par \cf1 Tenho um richedit e 1 botao.\par \cf0 Sempre que pulsar o botao, tem que inserir (adicionar) no final do texto ri chedit a data atual ( date() ) , s\'f3 que com fonte Tahoma e size = 10.\par \i Perguntei no forum inter , mas nem o Linares resolveu (ou nao teve tempo)\par \i0\f1\fs24 Grato, William Adami\par \f2\fs20 Datas:\par \par } Isso é arquivo RTF. Se substituir o último '<espaço>\par' por "10/01/2015\par \par" vai acontecer mais ou menos o que você está querendo. Para continuar, é só substituir o último '<espaço>\par' de novo. Qualquer coisa, avise. T+ Euclides Quote Link to comment Share on other sites More sharing options...
gibaf Posted January 12, 2015 Report Share Posted January 12, 2015 Amigos essa parece ser fácil mas não é: Tenho um richedit e 1 botao. Sempre que pulsar o botao, tem que inserir (adicionar) no final do texto richedit a data atual ( date() ) , só que com fonte Tahoma e size = 10. Lembrando que no richedit vai ter outros textos com fontes e tamanhos diferentes digitados pelo usuario , e sempre que clicar no botao, insere a data atual na ultima linha com fonte tahoma e size 10 , mas mantendo as caracteristicas do restante . Perguntei no forum inter , mas nem o Linares resolveu (ou nao teve tempo) Grato William Adami ola eu usei muito o RichEdit.... tem alguma coisa de vc selecionar um texto e, entao, configurar (fonte, cor, tamanho, etc) para o q vc quizer... veja lah se consegue... qquer coisa, avisa... att Gilberto Quote Link to comment Share on other sites More sharing options...
william Posted January 13, 2015 Author Report Share Posted January 13, 2015 Pessoal, obrigado pela atenção. Isso que eu quero é para ser utilizado em um prontuário médico. O médico tecla no botao e automaticamente é colocado a DATA na ultima linha do richedit. Em seguida o medico continua digitando o texto embaixo da data. Nao tem nada para ser substituido texto no final. Parece que pela primeira vez na vida , não vou conseguir fazer qualquer coisa com fivewin... :{ Abraço William Quote Link to comment Share on other sites More sharing options...
Theotokos Posted January 13, 2015 Report Share Posted January 13, 2015 Existe uma função na classe que é InsertRTF( cRTF ) dê uma verificada se te ajuda... Creio que seira algo assim: oRTF:InsertRTF( "Data : " + DtoC(Date()) ) Quote Link to comment Share on other sites More sharing options...
william Posted January 28, 2015 Author Report Share Posted January 28, 2015 Beleza Theotokos, isso resolveu meu problema. Fiz Assim: oRich:SetFontName("Tahoma") oRich:SetFontSize(18) oRich:GotoLine(oRich:GetLineCount()) oRich:InsertRTF(dtoc(date())) Obrigado a Todos William kapiaba and Theotokos 2 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 7, 2019 Report Share Posted February 7, 2019 Galera, alguém teria um exemplo completo de como se usa o RichEdit ?? Please. Até hoje, ainda não sei usar esse trem; Obg. abs. Quote Link to comment Share on other sites More sharing options...
cnavarro Posted February 7, 2019 Report Share Posted February 7, 2019 Search Testrtf5.prg in folder samples kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.