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

← →
Alex_h © (2010-01-18 12:25) [0]

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

← →
Alex_h © (2010-01-18 14:56) [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;

Отчет Rave. Как разместить TDataMemo? Найти похожие ветки