DBCrossRow1 Colour Alternate Rows

wcardosomg

How i colour alternate rows in DBCrossRow1?

Slashmaster

Good morning wcardosomg,

could u explain ur Problem more exactly? U want to Color 2 Rows alternately?

Row1
Row2
Row3
Row4
Row5
Row6
Row7
Row8

?

Greetz

wcardosomg

Slashmaster wrote: »

Good morning wcardosomg,

could u explain ur Problem more exactly? U want to Color 2 Rows alternately?

Row1
Row2
Row3
Row4
Row5
Row6
Row7
Row8

?

Greetz

Good morning Slashmaster, i want to color the background of the first column alternately too, same of the others

i try set this condition property

<RowIndex> mod 2 = 1

inside the Highlight property, but dont works.

thanks for help

Slashmaster

Hi,

u could try something like this:

var z : boolean;  
  
procedure DBCross2Row1OnBeforePrint(Sender: TfrxComponent);
begin
  z := not z;  
  if z then tfrxmemoview(sender).color := clred                                                                            
end;

begin

end.

wcardosomg

Slashmaster wrote: »

Hi,

u could try something like this:

var z : boolean;  
  
procedure DBCross2Row1OnBeforePrint(Sender: TfrxComponent);
begin
  z := not z;  
  if z then tfrxmemoview(sender).color := clred                                                                            
end;

begin

end.

Hello,

i try this, but the report colour all collumn cell

Slashmaster

var z : boolean; Needs to stand on the top (over the other procedurs)

U declare a global Variable.

wcardosomg

Slashmaster wrote: »

var z : boolean; Needs to stand on the top (over the other procedurs)

U declare a global Variable.

pele

if z then tfrxmemoview(sender).color := clred  
      else tfrxmemoview(sender).color := clWhite

wcardosomg

pele wrote: »

if z then tfrxmemoview(sender).color := clred  
      else tfrxmemoview(sender).color := clWhite

tks pele and SlashMaster, work's fine

z := not z;     
if z then tfrxmemoview(sender).color := clred  
      else tfrxmemoview(sender).color := clWhite

Slashmaster

i think the Event calls to often in dependence of columns...

workarround maybe:

var ColCount : integer;
  
procedure DBCross2Row1OnBeforePrint(Sender: TfrxComponent);
begin
  colCount := colCount + 1;
  if colcount = 4 then begin // play with the 4 as how many columns u have                                                                                                          
       tfrxmemoview(sender).color := clred;
       colcount := 0;
   end                                             
end;

begin

end.

wcardosomg

Oh no!, works fine only on first page of report....

See the second page..

Slashmaster

" border="0" alt="laugh.gif" />" alt=">" />" border="0" alt="laugh.gif" />" alt=">" />" border="0" alt="laugh.gif" />" alt=">" />" border="0" alt="laugh.gif" />" alt=">" />[img]style_emoticons/<#EMO_DIR#>/laugh.gif" style="vertical-align:middle" emoid="" border="0" alt="laugh.gif" /> is this the same dbcross???[/img]

wcardosomg

Slashmaster wrote: »

" border="0" alt="laugh.gif" />" alt=">" />" border="0" alt="laugh.gif" />" alt=">" />" border="0" alt="laugh.gif" />" alt=">" />" border="0" alt="laugh.gif" />" alt=">" />[img]style_emoticons/<#EMO_DIR#>/laugh.gif" style="vertical-align:middle" emoid="" border="0" alt="laugh.gif" /> is this the same dbcross???[/img]

Yes

Slashmaster

well.. why it starts with Number 1 at the new page?
NCG is White and receita is Grey --> seems correct?

wcardosomg

Slashmaster wrote: »

well.. why it starts with Number 1 at the new page?
NCG is White and receita is Grey --> seems correct?

Correct, in another collumns i use the condition

<RowIndex> mod 2 = 1

in highligth condition

Slashmaster

hmm. u could try to add an Pageheader. In the pageheader onbeforeprint u set Z = False (or true, just try)

wcardosomg

I Solved this whith code

procedure DBCross1Row1OnBeforePrint(Sender: TfrxComponent);
    
begin
                                                                        

if Trim(TfrxMemoView(Sender).Text) = 'RECEITA BRUTA DE VENDAS' then //name of my first row of column
begin
z:=TRUE;                                 
end;

z := not z;
  
if z then
begin            
z:=true;                
tfrxmemoview(sender).color := clbtnface;
end else
begin
z:=false;                  
tfrxmemoview(sender).color := clWhite;
end;

How i find the number of the current row number of dbcross?

type

if DBCross1Row1.RowNumber = 1 then //dont works

to replace

if Trim(TfrxMemoView(Sender).Text) = 'RECEITA BRUTA DE VENDAS' then

Slashmaster

Good Morning,

i dont work with the dbcross. It seems a bit hard to handle.

I tried this, too

dbcross2.DataSet.RecNo

but no success.. [img]style_emoticons/<#EMO_DIR#>/huh.gif" style="vertical-align:middle" emoid=":huh:" border="0" alt="huh.gif" /> I would manage the Report with "normal" Bands[/img][img]style_emoticons/<#EMO_DIR#>/wink.gif" style="vertical-align:middle" emoid=";)" border="0" alt="wink.gif" /> Maybe some1else got a good idea.. i am interested in this Problem and ill still try to solve it.[/img]

gordk

look at the main demo fcrosstab reports aly row colors
use row index prop for rows columnindex prop for columns