Destacar a cor de um texto-FastReport.

[kapiaba]

Bom dia!!!

No Fast Report quando tenho que destacar a cor de um texto utilizo 
o Editor de Realce onde, por exemplo, na aba Destaque coloco a Condição, 
CampoX < 1000 e seleciono a cor da Fonte desejada.

Mas no caso de eu ter 3 situações, por exemplo,
Se CampoX for maior que CampoY use a cor Azul
Se CampoX for menor que CampoY use a cor Vermelho
Se campoX for igual ao CampoY use a cor Preto

Tens uma dica de como proceder ?

Toya.

[Marca]

Tem que ser via código
Peça pra me chamar no Skype q. tento conectar e mostrar a ele como fazer

 

 

[kapiaba]

Many thanks. O Toya confirmou que foi resolvido.

[Marca]

 

Many thanks. O Toya confirmou que foi resolvido.

Show de bola.

[toya]

Mui grato a todos os colegas....

...

Consegui resolver de uma maneira simples e lusitana:

Na montagem da tabela com os dados para impressão criei 6 campos
(CORCOL01, CORCOL02, CORCOL03, CORCOL04, CORCOL05, CORCOL06), onde
1=cor azul ($FF0000), 2=cor vermelha ($0000FF) e 3=cor preta ($000000).

Na aba "Código->Linguagem: PascalScript:
 

begin
    if (<DBFFR3."CORCOL01"> = 1) then LinhaDetalhe072.Font.Color := $FF0000;  
    if (<DBFFR3."CORCOL01"> = 2) then LinhaDetalhe072.Font.Color := $0000FF;  
    if (<DBFFR3."CORCOL01"> = 3) then LinhaDetalhe072.Font.Color := $000000;           

    if (<DBFFR3."CORCOL02"> = 3) then LinhaDetalhe082.Font.Color := $000000;           
    if (<DBFFR3."CORCOL02"> = 2) then LinhaDetalhe082.Font.Color := $0000FF;  
    if (<DBFFR3."CORCOL02"> = 1) then LinhaDetalhe082.Font.Color := $FF0000;

    if (<DBFFR3."CORCOL03"> = 1) then LinhaDetalhe092.Font.Color := $FF0000;  
    if (<DBFFR3."CORCOL03"> = 2) then LinhaDetalhe092.Font.Color := $0000FF;  
    if (<DBFFR3."CORCOL03"> = 3) then LinhaDetalhe092.Font.Color := $000000;           

    if (<DBFFR3."CORCOL04"> = 1) then LinhaDetalhe102.Font.Color := $FF0000;  
    if (<DBFFR3."CORCOL04"> = 2) then LinhaDetalhe102.Font.Color := $0000FF;  
    if (<DBFFR3."CORCOL04"> = 3) then LinhaDetalhe102.Font.Color := $000000;           

    if (<DBFFR3."CORCOL05"> = 1) then LinhaDetalhe112.Font.Color := $FF0000;  
    if (<DBFFR3."CORCOL05"> = 2) then LinhaDetalhe112.Font.Color := $0000FF;  
    if (<DBFFR3."CORCOL05"> = 3) then LinhaDetalhe112.Font.Color := $000000;           

    if (<DBFFR3."CORCOL06"> = 1) then LinhaDetalhe122.Font.Color := $FF0000;  
    if (<DBFFR3."CORCOL06"> = 2) then LinhaDetalhe122.Font.Color := $0000FF;  
    if (<DBFFR3."CORCOL06"> = 3) then LinhaDetalhe122.Font.Color := $000000;           
end.

 

[kapiaba]

Ladinilson, testa ahi por favor.

Qualquer coisa, chame o TOYA, manja pra kray().

Abs.

Regards, saludos.

[Ladinilson]

Em 08/12/2022 at 10:01, kapiaba disse:

Ladinilson, testa ahi por favor.

Qualquer coisa, chame o TOYA, manja pra kray().

Abs.

Regards, saludos.

Boa Kapi, vou fazer!
Thanks