Программное изменение страниц перед печатью
пользуюсь версией 2.53
из undocumented_rus.chm
Пример использования возможности модификации нужных страниц после операции PrepareReport (непосредственно перед печатью).
var
m : TfrMemoView;
begin
frReport1.LoadFromFile('newreport.frf');
frReport1.PrepareReport;
frReport1.EMFPages.ObjectsToPage(0);// вот здесь вылетает с ошибкой нарушение доступа по такому то адресу
m:=TfrMemoView.Create;
m.SetBounds(220,120,200,16);
m.FillColor := clRed;
m.Memo.Add('RUN-TIME TEST');
m.Name:='MemeoTest';
frReport1.EMFPages.Pages[0].Page.Objects.Add(m);
frReport1.EMFPages.PageToObjects(0);
frReport1.ShowPreparedReport;
end;
из undocumented_rus.chm
Пример использования возможности модификации нужных страниц после операции PrepareReport (непосредственно перед печатью).
var
m : TfrMemoView;
begin
frReport1.LoadFromFile('newreport.frf');
frReport1.PrepareReport;
frReport1.EMFPages.ObjectsToPage(0);// вот здесь вылетает с ошибкой нарушение доступа по такому то адресу
m:=TfrMemoView.Create;
m.SetBounds(220,120,200,16);
m.FillColor := clRed;
m.Memo.Add('RUN-TIME TEST');
m.Name:='MemeoTest';
frReport1.EMFPages.Pages[0].Page.Objects.Add(m);
frReport1.EMFPages.PageToObjects(0);
frReport1.ShowPreparedReport;
end;
Комментарии
пытался делать так
procedure frReportObjectClick(View: TfrView);
begin
View.Memo.Text := InputBox('Edit', 'Edit Memo2 text:',View.Memo.Text);
MainfrReport.PrepareReport;
end;
но не помогло
кто нить делал такое ?
Fast 2.53