在delphi中已经基本解决如下:
procedure TForm1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
begin
if view.Name='Picture1' then
TfrPictureView(view).picture.Assign(image1.picture);
end;
但始终是运行完毕出错,access violation............,faint!!!
在cbuilder中:
(TfrPictureView)View->Picture->Assign(Image1->Picture);
这句话根本通不过,说什么:
[C++ Error] Unit1.cpp(59): E2285 Could not find a match for 'TfrPictureView::TfrPictureView(TfrView *)'
[C++ Error] Unit1.cpp(59): E2031 Cannot cast from 'TfrView *' to 'TfrPictureView'