RichText: Numeração das Linhas e Fundo coloridos (linhas)

09/05/2008

1

E ae pessoal
Eu gostaria de saber se existe algum comando para colocar fundo em uma linha no RichEdit
Eu n quero mudar o fundo de uma palavra.. quero mudar da linha toda!
Eu gostaria q ond o cursor tivesse no RichEdit a linha ganhasse um destaque
Tipo no exemplo abaixo:

[img:d796382e71]http://br.geocities.com/mortify.lamim/Imagens/MemoReguaNumeros.PNG[/img:d796382e71]

Mais um dúvida:
Existe algum componente régua para RichText??
Eu queria um componente q numerasse as linhas do RichText
Igual no exemplo acima tb...

Eu fiz um código treta aki
Eu coloquei um memo em um ToolBar do lado do RichEdit e no Keypress do memo colokei esse código aki:

   If ((Key=#13) Or (Key=46) Or (Key=8)) Then
   Begin
      Cont:=Memo1.Lines.Count+2;
      X:=1;
      Memo2.Text:=´´;
      While ((X<>Cont) And (Cont>0)) Do
      Begin
         Application.ProcessMessages;
         Memo2.Text:=Memo2.Text+IntToStr(X)+#1310;
         X:=X+1;
      End;

      If (Key=13) Then Memo1.SelText:=1310;
      Key:=0;
   End;


Cinceramente fiko uma porcaria
Ta travando d+ o programa
Se alguem souber um código pra fazer isso ou um componete q faça e pode me passar
Eu agradeço d+++++

Desde já agradeço a ajuda!!![/img]


Responder