Очистка Preview

Комментарии

• gpi

  May 2007 отредактировано 10:56

  А куда вставляете приведенный код?
• Legion

  May 2007 отредактировано 10:56

  gpi написал: »

  А куда вставляете приведенный код?

  А какая разница?
• gpi

  May 2007 отредактировано 10:56

  написал:

  А какая разница?

  Судя по скриншоту, модифицируется демо. Вот и спрашиваю, что и куда добавить, чтобы повторить ситуацию
• Legion

  May 2007 отредактировано 10:56

  procedure TForm1.TreeChange(Sender: TObject; Node: TTreeNode);
  begin
    if Node.StateIndex = -1 then
    begin
      Tree.FullCollapse;
      Node[0].Selected := True;
    end
    else
    begin
      if TfrxPreview(frxReport1.Preview) <> nil then begin
        TfrxPreview(frxReport1.Preview).Clear;
        frxReport1.PreviewPages.Clear;
      end;
      DesignB.Enabled := True;
      PreviewB.Enabled := True;
      frxReport1.LoadFromFile(WPath + IntToStr(Node.StateIndex) + '.fr3');
      FileNameL.Caption := ' Report file: ' + IntToStr(Node.StateIndex) + '.fr3';
      DescriptionM.Lines := frxReport1.ReportOptions.Description;
    end;
  end;
  

  но это не принципиально, можно просто на кнопку повесить.
  Хотелось бы получить чистое серое поле в превью, а не пустую страницу и непонятную рамку - явный косяк
  
• gpi

  May 2007 отредактировано 10:56

  Да, полностью очистить превью не удаётся
• Legion

  May 2007 отредактировано 10:56

  gpi написал: »

  Да, полностью очистить превью не удаётся

  Это я и так знаю
  Хтелось бы услышать что-нибудь конкретное от ТП
  
• Legion

  May 2007 отредактировано 10:56

  Получил ответ от ТП:

  if TfrxPreview(frxReport1.Preview).PageNo <> 0 then begin
    TfrxPreview(frxReport1.Preview).Clear;
    TfrxPreview(frxReport1.Preview).Lock;
  end;
  

  Работает.
  Догадаться самому в жизни не получится, т.к. про процедуру Lock в справке ни слова, да и при чем тут локирование превью?
  Господа разработчики, может, сделаете нормальную процедуру Clear, которая сама бы полностью очищала превью, как это было в предыдущих версиях? Ведь явный косяк