CrossView

Comments

• gordk St.Catherines On. Canada.

  October 2004 edited 10:48PM

  use the onprintcell event
  
  if rowindex mod 2 = 0 then memo.color := claqua else memo.color := clwhite;
  
• BJL Brussels, Belgium

  November 2004 edited 10:48PM

  Thank you Gord. It works.
  Is it possible to extend the higlight to the RowHeader (the 2 first fields of the dataset, in my case)?
  
  BJL
• gordk St.Catherines On. Canada.

  November 2004 edited 10:48PM

  sorry to take so long
  yes you can.
  procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
  begin
  if HeaderIndexes[0] mod 2 = 0 then memo.color := claqua else memo.color := clwhite;
  end;
  i suppose if either of us read the user manual chapter on crosstabs we would have seen it sooner.
  
• gordk St.Catherines On. Canada.

  November 2004 edited 10:48PM

  in case you didn't find how to do it here is a sample
  
  procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
  if not Cross1.IsGrandTotalRow(rowindex) then
  if rowindex mod 2 = 0 then memo.color := claqua else memo.color := clwhite;
  end;
  
  procedure Cross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant);
  begin
  if (VarToStr(Value)<>'Grand Total') then
  begin
  if HeaderIndexes[0] mod 2 = 0 then memo.color := claqua else memo.color := clwhite;
  end
  else
  memo.color := clyellow;
  end;