Para saber as "tags" do RTF, você cria um documento no Word, faz tudo
o que quiser, e salva como RTF. Daí abre o arquivo RTF no bloco de
notas, e você poderá ver quais as tags para formatar...



--- Em delphi-br@yahoogrupos.com.br, "Alosi yarru" <[EMAIL PROTECTED]> escreveu
> E para criar uma tabela no richedit, alguém sabe como fazer?
> 
> 
>   ----- Original Message ----- 
>   From: José Luis Fernandes Rezende 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Friday, August 05, 2005 12:38 PM
>   Subject: Re: RES: [delphi-br] Destacar somente um trecho de um
RichEdit
> 
> 
>   Olá Osmar,
> 
>   Fiz um pequeno teste que funcionou, fui inserindo as linhas em um
TMemo e
>   após o Loop coloquei: RichEdit1.Text:=Memo1.Text;
>   Fui inserindo as linhas no Memo1 usando as Tags RTF (  \b
Negrito\b0  \i
>   Itálico\i0  \ul Sublinhado\ulnone\par )
>   Para não ter que usar um componente visual como o TMemo, sugiro a
utilização
>   de uma TStringList.
> 
>   Atenciosamente,
> 
>   José Luis
> 
>   ----- Original Message ----- 
>   From: "Osmar de Souza Júnior" <[EMAIL PROTECTED]>
>   To: <delphi-br@yahoogrupos.com.br>
>   Sent: Friday, August 05, 2005 11:09 AM
>   Subject: Re: RES: [delphi-br] Destacar somente um trecho de um
RichEdit
> 
> 
> 
>   Sim, funciona.
> 
>   Mas não é o usuário que vai digitar o texto, e clicar num botão
>   Negrito , Itálico ou Sublinhado.
> 
>   O RichEdit é ReadOnly, e eu preencho um texto, pré-processado, para
>   visualização/impressão do usuário. Então já tenho que trazer o texto
>   formatado. E quero formatar apenas uma palavra, e não uma linha
inteira.
> 
>   --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]>
>   escreveu
>   > Veja se funciona....
>   > procedure TfrmEditor.btnnegritoClick(Sender: TObject);
>   > begin
>   >    if fsBold in Editor.SelAttributes.Style then
>   >       Editor.SelAttributes.Style := Editor.SelAttributes.Style -
>   [fsbold]
>   >    else
>   >    begin
>   >       Editor.SelAttributes.Style := Editor.SelAttributes.Style +
>   [fsbold];
>   >       btnnegrito.Down := True;
>   >    end;
>   >    Negrito1.Checked := fsBold in Editor.SelAttributes.Style;
>   > end;
>   >
>   > procedure TfrmEditor.btnitalicoClick(Sender: TObject);
>   > begin
>   >    if fsItalic in Editor.SelAttributes.Style then
>   >       Editor.SelAttributes.Style := Editor.SelAttributes.Style -
>   [fsItalic]
>   >    else
>   >    begin
>   >       Editor.SelAttributes.Style := Editor.SelAttributes.Style +
>   [fsItalic];
>   >       btnItalico.Down := True;
>   >    end;
>   >    miItalico.Checked := fsItalic in Editor.SelAttributes.Style;
>   > end;
>   >
>   > procedure TfrmEditor.btnsublinhadoClick(Sender: TObject);
>   > begin
>   >    if fsUnderline in Editor.SelAttributes.Style then
>   >       Editor.SelAttributes.Style := Editor.SelAttributes.Style -
>   > [fsUnderline]
>   >    else
>   >    begin
>   >       Editor.SelAttributes.Style := Editor.SelAttributes.Style +
>   > [fsUnderline];
>   >       btnsublinhado.Down := True;
>   >    end;
>   >    Sublinhado1.Checked := fsBold in Editor.SelAttributes.Style;
>   > end;
>   >   -----Mensagem original-----
>   >   De: delphi-br@yahoogrupos.com.br
>   [mailto:[EMAIL PROTECTED]
>   > nome de Osmar de Souza Júnior
>   >   Enviada em: sexta-feira, 5 de agosto de 2005 10:48
>   >   Para: delphi-br@yahoogrupos.com.br
>   >   Assunto: [delphi-br] Destacar somente um trecho de um RichEdit
>   >
>   >
>   >
>   >   Como eu posso fazer para destacar (negrito, itálico) somente uma
>   >   palavra, por exemplo, de uma linha num RichEdit?
>   >
>   >   Porque no meu caso eu preencho o RichEdit, com um texto
previamente
>   >   processado, de várias consultas de várias tabelas.
>   >
>   >   Eu monto um texto, como um resumo, e vou adicionando as linhas.
>   >   Eu só consegui aplicar uma formatação para uma linha inteira,
e não
>   >   somente para uma palavra.
>   >
>   >   Tentei adicionar as "tags" de RTF, como por exemplo:
>   >
>   >   RichEdit1.Lines.Append('\ul Palavra qualquer \ulnone');
>   >
>   >   Mas não funciona.
>   >
>   >   Idéias são bem-vindas.
>   >
>   >   Obrigado.
>   >
>   >
>   >
>   >
>   >
>   >
>   >
>   >   --
>   >   <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>   >
>   >   Para ver as mensagens antigas, acesse:
>   >   http://br.groups.yahoo.com/group/delphi-br/messages
>   >
>   >   Para falar com o moderador, envie um e-mail para:
>   >   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>   >
>   >
>   >
>   >
>   >
>  
----------------------------------------------------------------------------
>   > --
>   >   Links do Yahoo! Grupos
>   >
>   >     a.. Para visitar o site do seu grupo na web, acesse:
>   >     http://br.groups.yahoo.com/group/delphi-br/
>   >
>   >     b.. Para sair deste grupo, envie um e-mail para:
>   >     [EMAIL PROTECTED]
>   >
>   >     c.. O uso que você faz do Yahoo! Grupos está sujeito aos
Termos do
>   > Serviço do Yahoo!.
>   >
>   >
>   >
>   >   __________ NOD32 1.1187 (20050805) Information __________
>   >
>   >   This message was checked by NOD32 antivirus system.
>   >   http://www.nod32.com
>   >
>   >
>   > [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> 
>   -- 
>   <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> 
>   Para ver as mensagens antigas, acesse:
>   http://br.groups.yahoo.com/group/delphi-br/messages
> 
>   Para falar com o moderador, envie um e-mail para:
>   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> 
>   Links do Yahoo! Grupos
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
>         
>         
>               
>   _______________________________________________________ 
>   Yahoo! Acesso Grátis - Internet rápida e grátis. 
>   Instale o discador agora! http://br.acesso.yahoo.com/ 
> 
> 
>   -- 
>   <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> 
>   Para ver as mensagens antigas, acesse:
>   http://br.groups.yahoo.com/group/delphi-br/messages
> 
>   Para falar com o moderador, envie um e-mail para:
>   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> 
> 
> 
> 
>
------------------------------------------------------------------------------
>   Links do Yahoo! Grupos
> 
>     a.. Para visitar o site do seu grupo na web, acesse:
>     http://br.groups.yahoo.com/group/delphi-br/
>       
>     b.. Para sair deste grupo, envie um e-mail para:
>     [EMAIL PROTECTED]
>       
>     c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!. 
> 
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a