Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 FastReport вывод всех страниц из frxreport в frxpreview  [new]
Картежник
Member

Откуда: Казахстан
Сообщений: 586
На форме есть frxreport1 и frxpreview1
в frxreport1 через цикл формируются страницы(каждая страница грузится из картинки).
for i := 0 to checklistbox4.Items.Count-1 do begin
  //--------
  тут меняем pic.bmp
  //-------------------
  TfrxPictureView(frxReport1.FindObject('Picture1')).Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'pic.bmp');
  frxReport1.PrepareReport(false);
end;
 // после цикла выводим
frxReport1.PrintOptions.ShowDialog:=false;
frxReport1.ShowPreparedReport;

в таком случае в предосмотре показываются все картинки которые были сформированы

Но если я пытаюсь вывести в frxpreview1(незнаю как это сделать правильно), делаю это так:
// после цикла
frxreport1.preview:=frxpreview1;

то выводится только последняя страница
8 июн 18, 14:03    [21479165]     Ответить | Цитировать Сообщить модератору
 Re: FastReport вывод всех страниц из frxreport в frxpreview  [new]
gpi
Member

Откуда: г. Волноваха, Украина
Сообщений: 692
Делаете так?
for i := 0 to checklistbox4.Items.Count-1 do begin
  //--------
  тут меняем pic.bmp
  //-------------------
  TfrxPictureView(frxReport1.FindObject('Picture1')).Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'pic.bmp');
  frxReport1.PrepareReport(false);
end;
 // после цикла выводим
frxReport1.PrintOptions.ShowDialog:=false;
frxReport1.Preview:=frxPreview1;
frxReport1.ShowPreparedReport;
9 июн 18, 17:10    [21482466]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить