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 <*> 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
