| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отчет Rave. Как разместить TDataMemo?

Alex_h ©   (2010-01-18 12:25:00) 

Помогите плиз! Сделал отчет в Rave, но столкнулся с двумя неубиваемыми проблемами: размер поля только 21 символ (сколько бы не проставлял в поле Size) и не могу вместо текстового поля подставить мемо. Отчет генерю в RunTime

---

Alex_h   (2010-01-18 14:56:00) [1]

На всякий случай привожу текст проги:

rvprojectrtr.New;
 if RvProjectRTR.SelectReport(NewRep, true) then EXIT;
 TmpRaveReport := RvProjectRTR.ProjMan.NewReport;

 with TmpRaveReport do
 begin
   Name := NewRep;
   FullName := NewRep;
 end;
 TmpDataField := NIL;
 TmpField := RvDataSetConnectionRTR.DataSet.FindField('Pole1');

 TmpDataView := TRaveDataView.Create(RvProjectRTR.ProjMan);
 RvProjectRTR.ProjMan.DataObjectList.Add(TmpDataView);
 with TmpDataView do
 begin
   Name := NewDataView;
   Parent := RvProjectRTR.ProjMan;
   DataCon.Connection := RvDataSetConnectionRTR;
   ConnectionName := TmpDataView.DataCon.Connection.Name;
 end;

 TmpDataView2 := TRaveDataView.Create(RvProjectRTR.ProjMan);
 RvProjectRTR.ProjMan.DataObjectList.Add(TmpDataView2);
 with TmpDataView2 do
 begin
   Name := 'NewDataView2';
   Parent := RvProjectRTR.ProjMan;
   DataCon.Connection := RvDataSetConnectionRTR;
   ConnectionName := TmpDataView2.DataCon.Connection.Name;
 end;

 TmpDataField := TRaveMemoField.Create(TmpDataView);

 if TmpDataField = NIL then EXIT;
 
 with TmpDataField do
 begin
   Name := TmpField.Name;                      
   FieldName := TmpField.FieldName;  
   FullName := TmpField.DisplayName;
   DataIndex := TmpField.Index;
   Parent := TmpDataView;            
 end;

 TmpRaveRegion := TRaveRegion.Create(TmpRaveReport.FirstPage);
 with TmpRaveRegion do
 begin
   Name := 'NewRaveRegion';
   Parent := TmpRaveReport.FirstPage;
   Left := TmpRaveReport.FirstPage.PageWidth/100*5;
   Top := TmpRaveReport.FirstPage.PageHeight/100*15;
   Width := TmpRaveReport.FirstPage.PageWidth/100*70;
   Height := TmpRaveReport.FirstPage.PageHeight/100*60;
 end;

 TmpRaveDataBand := TRaveDataBand.Create(TmpRaveRegion);
 with TmpRaveDataBand do
 begin
   Name := 'NewDataBand';
   Parent := TmpRaveRegion;
   Left := TmpRaveRegion.Width/100*5;
   Top := TmpRaveRegion.Height/100*5;
   Width := TmpRaveRegion.Width/100*90;
   Height := TmpRaveRegion.Height/100*5;
   DataView := TmpDataView;
 end;

 TmpRaveDataText := TRaveDataMemo.Create(TmpRaveDataBand);

 with TmpRaveDataText do
 begin
   Name := 'NewDataText';
   Parent := TmpRaveDataBand;
   Left := TmpRaveDataBand.Width/100*1;
   Top := TmpRaveDataBand.Height/100*1;
   Width := TmpRaveDataBand.Width/100*50;
   DataView := TmpDataView2;
  DataField := TmpDataField.FieldName;
 end;

 RvProjectRTR.execute;

---

Наверх