Reporttitle

Германн

Как в рантайм задать сабж? Ни в хелпе, ни в документации пока не нашел решения. Насколько понял из хелпа и документации у компонента TfrxReport
нет такого глобального свойства. В документации есть указания, что для задания заголовка отчета надо на бэнде "Заголовок отчета" поместить объект "Текст" и в нем задать заголовок. В дизайнтайм всё понятно. А вот в рантайме как?
Попробовал так: EventReport.TitleMemo.Text:='bla-bla';, где EventReport - имя компонента TfrxReport, а TitleMemo - имя компонента TfrxMemoView размещенного на бэнде "Заголовок отчета". Компилятор говорит "Undeclared identifier: 'TitleMemo'

gpi

Смотрите руководство программиста главу "Создание формы отчета с помощью кода"

var

  DataPage: TfrxDataPage;

  Page: TfrxReportPage;

  Band: TfrxBand;

  DataBand: TfrxMasterData;

  Memo: TfrxMemoView;

 

{ очищаем отчет }

frxReport1.Clear;

 

{ добавляем источник данных в список доступных для отчета }

frxReport1.DataSets.Add(frxDBDataSet1);

 

{ добавляем страницу "Данные" }

DataPage := TfrxDataPage.Create(frxReport1);

 

{ добавляем страницу }

Page := TfrxReportPage.Create(frxReport1);

{ создаем уникальное имя }

Page.CreateUniqueName;

{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }

Page.SetDefaults;

{ меняем ориентацию бумаги }

Page.Orientation := poLandscape;

 

{ добавляем report title }

Band := TfrxReportTitle.Create(Page);

Band.CreateUniqueName;

{ для бэнда достаточно установить координату Top и высоту }

{ обе координаты - в пикселах }

Band.Top := 0;

Band.Height := 20;

 

{ добавляем объект на report title }

Memo := TfrxMemoView.Create(Band);

Memo.CreateUniqueName;

Memo.Text := 'Hello FastReport!';

Memo.Height := 20;

{ этот объект будет растянут на ширину бэнда }

Memo.Align := baWidth;

 

{ добавляем master data }

DataBand := TfrxMasterData.Create(Page);

DataBand.CreateUniqueName;

DataBand.DataSet := frxDBDataSet1;

{ координата Top не должна пересекать ранее добавленный бэнд! }

DataBand.Top := 100;

DataBand.Height := 20;

 

{ добавляем объект на master data }

Memo := TfrxMemoView.Create(DataBand);

Memo.CreateUniqueName;

{ подключаем к данным }

Memo.DataSet := frxDBDataSet1;

Memo.DataField := 'CustNo';

Memo.SetBounds(0, 0, 100, 20);

{ выравниваем текст по правому краю объекта }

Memo.HAlign := haRight;

 

{ показываем отчет }

frxReport1.ShowReport;

Германн

gpi написал: »

Смотрите руководство программиста

Спасибо.