Delphi Rich Text: Pesquisando e destacando texto no RichEdit

Ol� pessoal, nesse artigo demonstrarei como pesquisar e destacar uma palavra ou texto dentro do componente RichEdit, n�o � muito comum esse tipo de pr�tica por esse motivo resolvi escrever esse artigo.

O componente RichEdit � muito usado para exibir grandes quantidades de texto tais como observaç�es, complementos etc., sendo que em certas situaç�es pode ser necess�rio destacar determinada palavra ou frase contida no texto exibido pelo componente.

Vamos construir a tela, adicione os seguintes componentes:

- 1 TEdit (para pesquisar o conte�do do RichEdit)

- 1 TRichEdit (para exibir o texto)

Figura1: Layout final da tela.

Agora vamos adicionar um texto no RichEdit, no Object Inpector selecione a propriedade Lines e clique no bot�o �...�, ser� aberta uma nova janela como mostrado na figura 2, onde adicionaremos o texto que ser� exibido no componente RichEdit.

Figura2: Mostra a janela para adicionar o texto no RichEdit.

Para esse exemplo adicionei o seguinte texto:

- PORTAL

- DEVMEDIA

- TUDO EM UM S� LUGAR!

Agora vamos selecionar na aba Events do Object Inspector o evento OnChange do componente Edit que nesse caso foi renomeado para �edtPesquisa�, esse evento ser� disparado todas vez que o edtPesquisa receber um caracter.

Figura3: Mostra o evento OnChange selecionado do componente edtPesquisa.

Com um duplo clique ser� carregado o evento no editor, agora vamos codificar digite o seguinte c�digo.

Listagem 1: Esta listagem mostra o c�digo do evento OnChange

           
procedure TfrmPrincipal.edtPesquisaChange(Sender: TObject);
var
  iPosIni : integer;

begin
    //Carrega o RichEdit com as propriedades iniciais
    RichEdit.SelStart  := 0;
    RichEdit.SelLength := length(RichEdit.Text);
    RichEdit.SelAttributes.color := clBlack;
    RichEdit.SelAttributes.style := [];
    RichEdit.SelAttributes.Size  := 8;

    //Encontra e atribui a posiç�o inicial do texto no RichEdit
    iPosIni := RichEdit.FindText(edtPesquisa.Text, 0, length(RichEdit.Text), []);

    //Verifica se o texto foi encontrado
    if iPosIni >= 0 then
    begin
        RichEdit.SelStart  := iPosIni;
        RichEdit.SelLength := length(edtPesquisa.Text);
        RichEdit.SelAttributes.color := clRed;
        RichEdit.SelAttributes.style := [fsBold];
        RichEdit.SelAttributes.Size  := RichEdit.SelAttributes.Size + 16;
    end;
end;

O c�digo est� comentado, mas vou explicar os principais pontos. No primeiro bloco de c�digo carrego as informaç�es iniciais do RichEdit, entre elas informo a posiç�o inicial e o tamanho do texto que est� sendo exibido no RichEdit, esse bloco � importante porque caso o texto informado no edtPesquisa n�o seja encontrado no RichEdit ent�o o conte�do do mesmo volta a sua font inicial.

Depois executo a funç�o interna do RichEdit, FindText ela recebe 4 par�metros:

1 - Texto a ser pesquisado

2 - Posiç�o interna onde ser� iniciado a pesquisa

3 - Tamanho do texto do RichEdit

4 - (tsWholeWorld) S� aceitar palavras inteiras, (tsMatchCase)Se quiser diferenciar mai�scula e min�scula

Observaç�o: O 4� par�metro � opcional, pode se informar as 2 opç�es, 1 opç�o ou nenhuma, depende da necessidade.

Essa funç�o procura dentro do conte�do do RichEdit um conjunto de caracteres que seja compat�vel com o texto informado no edtPesquisa, caso seja encontrado � retornado a posiç�o inicial da combinaç�o do texto interno do RichEdit e atribu�do a vari�vel iPosIni. Logo ap�s funç�o ser executada verifico se o valor da vari�vel iPosIni � maior que 0, caso seja significa que foi encontrado uma combinaç�o compat�vel, ent�o informo a posiç�o inicial e o tamanho do conjunto de caracteres para as respectivas propriedade do RichEdit.

Com essas informaç�es j� � poss�vel alterar a font somente dos caracteres compat�veis com o texto digitado no edtPesquisa, nesse caso alterei o tamanho, cor e estilo da letra, como esse c�digo est� no evento OnChange, sempre que for digitado uma letra que esteja no RichEdit ser� alterada a fonte.

Vejam o resultado final.

Figura 4: Exibi a pesquisa e o destaque do texto no RichEdit

Bom pessoal demonstrei nesse artigo como pode ser simples pesquisar e destacar um texto dentro do componente RichEdit, essa pr�tica pode ser muito interessante para diversos tipos de aplicaç�es, eu mesmo j� usei.

Com isso finalizo mais um artigo. Espero que tenham apreciado e at� a pr�xima.

Qualquer d�vida meu e-mail: wllfl@ig.com.br

Abraços

Pesquisando e destacando texto no RichEdit

Veja neste artigo como pesquisar e destacar textos dentro de um RichEdit em Delphi.

Artigos relacionados