ReportMachine 画图问题... ( 积分: 30 )

procedure TFrmPict.bbtnPrivewRoomClick(Sender: TObject);
Var
aImg : TRMPictureView;
begin
aImg := TRMPictureView(rptRoomInfo.FindObject('Picture'));
if aImg = nil then
Exit;
DrawHxToReport(aImg);//画入线条到图片容器中 可以正常执行
rptRoomInfo.ShowReport;
//执行到这预览的时候出错
end;

procedure TFrmPict.DrawHxToReport(aImg: TRMPictureView);
begin
//......
DrawToCanvas(aImg.Picture.Bitmap.Canvas);//可以正常执行
end;

procedure TFrmPict.bbtnPrivewRoomClick(Sender: TObject);
Var
aImg : TRMPictureView;
begin
aImg := TRMPictureView(rptRoomInfo.FindObject('Picture'));
if aImg = nil then
Exit;
DrawHxToReport(aImg);//画入线条到图片容器中 可以正常执行
rptRoomInfo.ShowReport;
//执行到这预览的时候出错
end;

procedure TFrmPict.DrawHxToReport(aImg: TRMPictureView);
begin
//......
DrawToCanvas(aImg.Picture.Bitmap.Canvas);//可以正常执行
end;

自己鼎一下！

procedure TForm1.Button3Click(Sender: TObject);
var
t: TRMPictureView;
ll: TBitmap;
begin
RMReport1.LoadFromFile('e:/Untitled.rmf');
t := TRMPictureView(RMReport1.FindObject('Picture1'));
if t <> nil then
begin
ll := TBitmap.Create;
ll.Height := 100;
ll.Width := 200;
ll.Canvas.Pen.Color := clRed;
ll.Canvas.Rectangle(0, 0, 100, 30);
t.Picture.Assign(ll);
ll.Free;
end;
RMReport1.ShowReport;
end;

呵呵 我去试试看
老王 多谢了！ ^_^