Reporttitle

Комментарии

• gpi

  April 2011 отредактировано 13:33

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

  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;
  
• Германн

  April 2011 отредактировано 13:33

  gpi написал: »

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

  Спасибо.