Навигация по отчету

Комментарии

• -=Den=-

  October 2008 отредактировано October 2008

  var
    Page, nTop: Integer;
  begin
  .....  
    Page := TfrxPreview(frxReport.Preview).PageNo;
    nTop := TfrxPreview(frxReport.Preview).GetTopPosition;
  
  
    ....
    TfrxPreview(frxReport.Preview).SetPosition(Page, nTop);
  

  
  Функции можно использовать, только если окно предпросмотра уже создано.
• Stiffman

  October 2008 отредактировано 01:31

  написал: »

  var
    Page, nTop: Integer;
  begin
  .....  
    Page := TfrxPreview(frxReport.Preview).PageNo;
    nTop := TfrxPreview(frxReport.Preview).GetTopPosition;
    ....
    TfrxPreview(frxReport.Preview).SetPosition(Page, nTop);
  

  
  Функции можно использовать, только если окно предпросмотра уже создано.

  
  При попытке выполнить отчет пишет:
  "Неопределенный идентификатор: TfrxPreview"
  
  Смотрю в зарегистрированных классах скрипта, действительно такого нет (есть только TfrxPreviewOption и там только свойства, методов нет).
  
  
• -=Den=-

  October 2008 отредактировано 01:31

  В uses вашего приложения добавьте frxPreview.
• Stiffman

  October 2008 отредактировано 01:31

  написал: »

  В uses вашего приложения добавьте frxPreview.

  
  Добавил методы следующим образом:

  with AddClass(TfrxPreview, 'TfrxPreview') do
          begin
             AddMethod('function PageNo(): integer', CallMethod);
             AddMethod('function GetTopPosition(): integer', CallMethod);
             AddMethod('procedure SetPosition(Page: integer; nTop: integer)', CallMethod);
             AddMethod('function PageCount(): integer', CallMethod);
          end;
  
  function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; Caller: TfsMethodHelper): Variant;
  begin
    Result := 0;
  
    if ClassType = TfrxPreview then
    begin
      if MethodName = 'PAGENO' then Result:= TfrxPreview(Instance).PageNo
      else if MethodName = 'GETTOPPOSITION' then Result:= TfrxPreview(Instance).GetTopPosition
      else if MethodName = 'SETPOSITION' then TfrxPreview(Instance).SetPosition(Caller.Params[0],Caller.Params[1])
      else if MethodName = 'PAGECOUNT' then Result:= TfrxPreview(Instance).PageCount
      //else if MethodName = 'PAGECOUNT' then Result:= TfrxPreview(Instance).PreviewPages
    end;
  end;
  

  
  Все, ок, получаю номер страницы, положение по вертикали.
  Теперь проблема в другом На какое событие повесить

  TfrxPreview(Report.Preview).SetPosition(StrToInt(<pageusr>), StrToInt(<nTop>));
  

  Если вешаю на OnStopReport, то на последних страницах не отрабатывает SetPosition.
  Делал проверку, вешал ShowMessage на OnStopReport. Получается следующая ситуация, в просмотрщике пишет еще страниц 1/2, а по событию метод PageCount возвращает 5 стр.
  Нажимаем кнопку "ок" (ShowMessage), через доли сек. в Просмотрщике уже стоит 1/5 (одна страница из пяти).
  Вот собственно и вопрос на какое событие можно повесить

  TfrxPreview(Report.Preview).SetPosition(StrToInt(<pageusr>), StrToInt(<nTop>));
  

  Как узнать когда отчет построился на экране пользователя полностью ?
• -=Den=-

  October 2008 отредактировано 01:31

  Если использовать стандартное окно предпросмотра, то для этого подходит событие OnEndDoc.
  Но в скрипте такого события нет, попробуйте добавить вручную.
• Stiffman

  October 2008 отредактировано 01:31

  написал: »

  Если использовать стандартное окно предпросмотра, то для этого подходит событие OnEndDoc.
  Но в скрипте такого события нет, попробуйте добавить вручную.

  
  Спасибо, получилось, сделал следующим образом:

  with
        AddClass(TfrxPreview, 'TfrxPreview') do
          begin
             AddMethod('function PageNo(): integer', CallMethod);
             AddMethod('function GetTopPosition(): integer', CallMethod);
             AddMethod('procedure SetPosition(Page: integer; nTop: integer)', CallMethod);
             AddMethod('function PageCount(): integer', CallMethod);
  
          end;
  
  function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; Caller: TfsMethodHelper): Variant;
  begin
    Result := 0;
    if ClassType = TfrxPreview then               //OnEndDoc
    begin
      if MethodName = 'PAGENO' then Result:= TfrxPreview(Instance).PageNo
      else if MethodName = 'GETTOPPOSITION' then Result:= TfrxPreview(Instance).GetTopPosition
      else if MethodName = 'SETPOSITION' then
         begin
            dmrep.page:= Caller.Params[0];
            dmrep.ntop:= Caller.Params[1];
         end
      else if MethodName = 'PAGECOUNT' then Result:= TfrxPreview(Instance).PageCount
      //else if MethodName = 'PAGECOUNT' then Result:= TfrxPreview(Instance).PreviewPages
    end;
  end;
  

  
  Присваиваю переменным dmrep.page и dmrep.ntop значения при событии OnReportStop (в скрипте), а затем уже в делфи вызываю
  TfrxPreview(Report.Preview).SetPosition(page,ntop); на событии OnEndDoc.
  
  Спасибо за помощь!