CellFields, ColumnFields & RowFields

Comments

• gordk St.Catherines On. Canada.

  November 2005 edited 11:30AM

  here are some samples from working within the report
  
  procedure Cross1OnBeforePrint(Sender: TfrxComponent);
  begin
  with Cross1 do
  begin
  AddValue(, [2001, 2], [1500]);
  AddValue(, [2001, 3], [1600]);
  AddValue(, [2002, 1], [1700]);
  
  AddValue(, [2002, 1], [2000]);
  
  AddValue(, [2001, 1], [4000]);
  AddValue(, [2001, 2], [4100]);
  end;
  end;
  
  procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  var
  mv:tfrxcustommemoview;
  begin
  if not Cross1.IsGrandTotalRow(rowindex) then
  if rowindex mod 2 = 0 then memo.color := claqua else memo.color := clwhite;
  if (cross1.isgrandtotalrow(rowindex)) and
  (ColumnIndex >= 0) then
  begin
  memo.displayformat.kind := fkNumeric;
  end;
  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;
  
  begin
  
  end.
  
  hope this helps
  
• galwacco

  November 2005 edited 11:30AM

  That example is good for the TfrxCrossView, however I'm trying to do this eith the TfrxDBCrossView and I need to set the Cells, Columns and Rows from a DataSet.
  
  How Am I supposed to do in such way?
• gordk St.Catherines On. Canada.

  November 2005 edited 11:30AM

  the first example was for the crossview the second was for the frxdbcrossview
  generally set the props from the obp of the object that contains the crosview or dbxcrosview
  cellfields, rowfields columnfields are 0 based indexed list of tstrings.
  here is an example of iterating through a bands object to find the object you want
  then modify its props. just change to suit object you are seeking
  var
  i: Integer;
  c: TObject;
  
  for i := 0 to Sender.Objects.Count - 1 do
  begin
  c := Sender.Objects
  if c is TfrxMemoView then
  TfrxMemoView©.Visible := False
  else if c is TfrxLineView then
  TfrxLineView©.Visible := True
  end;