Conditional highliting.

oyci3c

Hello.

I'm using Delphi2010 and FR4.0, I'm not using .NET.
Is there a way to add more than one condition in highliting detail field?
As far as I can see in Report Designer I can pick only one conditiong to color one field...

I want to make a few conditions to one cell depending on value.

Thanks

hsm

oyci3c wrote: »

Hello.

I'm using Delphi2010 and FR4.0, I'm not using .NET.
Is there a way to add more than one condition in highliting detail field?
As far as I can see in Report Designer I can pick only one conditiong to color one field...

I want to make a few conditions to one cell depending on value.

Thanks

Use the OnBeforePrint event of the master band (or wherever the memo is)
In the code section of the report write your conditions.
Don't forget to include the default if no condition is met.
Otherwise the memos that do not meet the condition, but follow one that did, will have the same colour as the one that did.

example code colouring red if < 0, yellow if = 0, red if = 99 and white if no condition met is shown below.

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
MemoFieldToTest.color := clWhite;     //default,  otherwise it will have the same colour as the last met condition    
if <frxDBDataset1."FieldToTest"> < 0 then
    MemoFieldToTest.color := clred;

if <frxDBDataset1."FieldToTest"> = 0 then
    MemoFieldToTest.color := clYellow;
 
if <frxDBDataset1."FieldToTest">  = 99 then
     MemoFieldToTest.color := clGreen;
//etc 
end;

oyci3c

Working like a charm, thanks.

wrote:

Don't forget to include the default if no condition is met.
Otherwise the memos that do not meet the condition, but follow one that did, will have the same colour as the one that did.

Yep, that was my mistake ;-)

oyci3c

Even with setting default condition in the beginning it's taking last condition for all rows.

       frxDBDatasetDetaildata_wejscia.font.color := clBlack;         
               if (<frxDBDatasetDetail."nazwa_wejscie"> = 'Niedziela') and (<frxDBDatasetDetail."czas"> = '') then              
                       frxDBDatasetDetaildata_wejscia.font.color := clBlue;
               if (<frxDBDatasetDetail."data_wyjscia"> = '') and (<frxDBDatasetDetail."czas"> = '') then              
                       frxDBDatasetDetaildata_wejscia.font.color := clRed;

hsm

Use a nested IF then. Its OK for a smallish number of tests.
and this code should be in the onBeforePrint of the detail band (as you are testing frxDBDatasetDetail."nazwa_wejscie")

if (<frxDBDatasetDetail."nazwa_wejscie"> = 'Niedziela') and (<frxDBDatasetDetail."czas"> = '') then              
        frxDBDatasetDetaildata_wejscia.font.color := clBlue
 else
    if (<frxDBDatasetDetail."data_wyjscia"> = '') and (<frxDBDatasetDetail."czas"> = '') then              
            frxDBDatasetDetaildata_wejscia.font.color := clRed
    else
            frxDBDatasetDetaildata_wejscia.font.color := clBlack;

oyci3c

hsm wrote: »

Use a nested IF then. Its OK for a smallish number of tests.
and this code should be in the onBeforePrint of the detail band (as you are testing frxDBDatasetDetail."nazwa_wejscie")

if (<frxDBDatasetDetail."nazwa_wejscie"> = 'Niedziela') and (<frxDBDatasetDetail."czas"> = '') then              
        frxDBDatasetDetaildata_wejscia.font.color := clBlue
 else
    if (<frxDBDatasetDetail."data_wyjscia"> = '') and (<frxDBDatasetDetail."czas"> = '') then              
            frxDBDatasetDetaildata_wejscia.font.color := clRed
    else
            frxDBDatasetDetaildata_wejscia.font.color := clBlack;

Yeah got it figured out with nested IF, thanks for your effort and help!