Полупроблема-полубаг

SpirinS

Здравствуйте.

В версии 4 обнаружилась следующая проблема. Эта проблема касается в основном тех, кто помещает Fr в dll (нет запуска Application.Run). Так как окно дизайнера уничтожается по Action := caFree, то вызов DesignReport два раза подряд приводит к плачевным результатам, так как первое окно еще не уничтожено. Нельзя ли форму дизайнера уничтожать явно в коде DesignReport? Это решило бы проблему.

P.S. Проблема серьезна тем, что трудно понять природу ошибок с которыми сталкиваешься ("немотивированные" AV), можно не один час убить.

AlexTZ

Поправлено.

SpirinS

К сожалению правка не работает из-за:

Report.Designer := nil; в TfrxDesignerForm.FormClose.

Отсюда вызов FDesigner.Free - это просто, получается, "холостой" вызов.

SpirinS

Кстати проблему легко воспроизвести в основном Демо:

так лавинообразные AV:

procedure TForm1.DesignBClick(Sender: TObject);
begin
frxReport1.DesignReport;
frxReport1.DesignReport;
end;

А так хорошо работает:

procedure TForm1.DesignBClick(Sender: TObject);
begin
frxReport1.DesignReport;
Application.ProcessMessages;
frxReport1.DesignReport;
end;