DBCrossRow1 Colour Alternate Rows

Comments

• Slashmaster

  December 2016 edited 9:13AM

  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

  December 2016 edited December 2016

  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

  December 2016 edited 9:13AM

  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

  December 2016 edited 9:13AM

  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

  December 2016 edited 9:13AM

  
  var z : boolean; Needs to stand on the top (over the other procedurs)
  
  U declare a global Variable.
• wcardosomg

  December 2016 edited 9:13AM

  Slashmaster wrote: »

  var z : boolean; Needs to stand on the top (over the other procedurs)
  
  U declare a global Variable.

  
  
• pele

  December 2016 edited 9:13AM

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

  December 2016 edited December 2016

  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

  December 2016 edited 9:13AM

  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

  December 2016 edited December 2016

  Oh no!, works fine only on first page of report....
  
  See the second page..
  
  
• Slashmaster

  December 2016 edited 9:13AM

  " 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

  December 2016 edited 9:13AM

  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

  December 2016 edited 9:13AM

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

  December 2016 edited 9:13AM

  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

  December 2016 edited 9:13AM

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

  December 2016 edited December 2016

  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

  December 2016 edited 9:13AM

  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 St.Catherines On. Canada.

  December 2016 edited 9:13AM

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