TlrCrossView

type TlrCrossView = class(TfrStretcheable)

protected

  function CalcHeight; override;

  function MinHeight; override;

  function RemainHeight; override;

  procedure SetName(); override;

  procedure PrepareObject; override;

  procedure AfterCreate; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Print(); override;

  procedure Draw(); override;

  procedure BeginUpdate; override;

  procedure EndUpdate; override;

  procedure Assign(); override;

  procedure LoadFromXML(); override;

  procedure SavetoXML(); override;

  procedure LoadFromStream(); override;

  procedure SaveToStream(); override;

  function ColCount;

  function RowCount;

published

  property ShowColumnHeader: Boolean; [rw]

  property ShowColumnTotal: Boolean; [rw]

  property ShowCorner: Boolean; [rw]

  property ShowRowHeader: Boolean; [rw]

  property ShowRowTotal: Boolean; [rw]

  property ShowTitle: Boolean; [rw]

  property ShowGrandTotal: Boolean; [rw]

  property ShowTotalCHCell: Boolean; [rw]

  property ShowTotalRHCell: Boolean; [rw]

  property DataCell: TlrCrossDesignDataView; [rw]

  property RowTitleCell: TlrCrossDesignView; [rw]

  property RowTotalCell: TlrCrossDesignView; [rw]

  property ColTitleCell: TlrCrossDesignView; [rw]

  property ColTotalCell: TlrCrossDesignView; [rw]

  property GrandTotalCell: TlrCrossDesignView; [rw]

  property TotalCHCell: TlrCrossDesignView; [rw]

  property TotalRHCell: TlrCrossDesignView; [rw]

  property Restrictions;

  property FillColor;

  property DataSet: string; [rw]

  property CellFields: TStrings; [rw]

  property ColumnFields: TStrings; [rw]

  property RowFields: TStrings; [rw]

end;

TlrCrossView

TObject