Очистка Preview

Legion

Как првильно очистить Preview? При использовании следующего кода (и вместе, и по отдельности)

TfrxPreview(frxReport1.Preview).Clear;
frxReport1.PreviewPages.Clear;

получается такая вот картинка. Во втором и третьем ФР было нормально

gpi

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

Legion

gpi написал: »

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

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

gpi

написал:

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

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

Legion

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

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

Legion

gpi написал: »

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

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

Legion

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

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

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