Como mudo a cor de fundo de um Texto em DBRichEdit?

Question

Ol�, como eu fa�o para mudar a cor de Fundo de um texto no DBRichEdit?desde ja agradeco[]s...

Sonec2004 · Answer

Use a propriedade color.Exemplo:  [code:1:4c86614a49]DBRichEdit1.Color:=clGreen;[/code:1:4c86614a49]Para saber mais sobre as cores no Delphi, v� no help e digite [u:4c86614a49]TColor type[/u:4c86614a49].T+...

Nildo · Answer

Creio que ele queira destacar apenas *parte* do texto.

O c�digo � esse:

procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
  Format: CHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := CFM_BACKCOLOR;
    crBackColor := AColor;
    Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
  end;
end;

Se trocar o TRichEdit por TDbRichEdit deve funcionar tamb�m. Ele seta o fundo do texto selecionado com a cor que voc� quiser. Voc� pode fazer uma sele��o sem a interven��o vis�vel, da seguinte maneira:

RichEdit1.SelStart := 10;
RichEdit1.SelLength := 2;

vai selecionar (escondido, creio eu) 2 caracteres a partir do d�cimo.

� isso
Abra�os

Titanius · Answer

Amigo, acho q nao me expliquei direito, quero que fique somente atras de determinado escrito, e nao do RichEdit, entendeu?[]s...

Nildo · Answer

[quote:00bdd4771e=�Titanius�]Amigo, acho q nao me expliquei direito, quero que fique somente atras de determinado escrito, e nao do RichEdit, entendeu?[]s[/quote:00bdd4771e]C�digo acima ^...

Titanius · Answer

Me desculpe, parece que quando estava digitando vc postou.. foi mal...obrigado assim mesmo......

Titanius · Answer

Amigo, ocorreu os seguntes erros:[code:1:f56fb725d8]Build  &#91;Error&93; NewCadSubstancias.pas(284): Declaration of �RE_SetSelBgColor� differs from previous declaration  &91;Error&93; NewCadSubstancias.pas(286): Undeclared identifier: �CHARFORMAT2�  &91;Error&93; NewCadSubstancias.pas(291): Undeclared identifier: �cbSize�  &91;Error&93; NewCadSubstancias.pas(292): Undeclared identifier: �dwMask�  &91;Error&93; NewCadSubstancias.pas(293): Undeclared identifier: �crBackColor�  &91;Error&93; NewCadSubstancias.pas(294): Undeclared identifier: �Richedit�  &91;Error&93; NewCadSubstancias.pas(294): Undeclared identifier: �EM_SETCHARFORMAT�  &91;Error&93; NewCadSubstancias.pas(294): Undeclared identifier: �SCF_SELECTION�  &91;Fatal Error&93; Principal.pas(95): Could not compile used unit �NewCadSubstancias.pas�[/code:1:f56fb725d8]Tenho que declarar alguma unit?!?...

Massuda · Answer

[quote:c75d0c6dd7=�Titanius�]Amigo, ocorreu os seguntes erros:[code:1:c75d0c6dd7]Build  &#91;Error&93; NewCadSubstancias.pas(284): Declaration of �RE_SetSelBgColor� differs from previous declaration  ...[/code:1:c75d0c6dd7][/quote:c75d0c6dd7]Isso significa que a implementa��o da sua procedure est� diferente do que foi declarado na interface.[quote:c75d0c6dd7=�Titanius�]Tenho que declarar alguma unit?!?[/quote:c75d0c6dd7]Voce precisa incluir a unit [b:c75d0c6dd7]RichEdit[/b:c75d0c6dd7] no uses da sua unit....

Titanius · Answer

Beleza, funcionou! :Dmuito obrigado![]s...

F�rum Como mudo a cor de fundo de um Texto em DBRichEdit? #261185