Не работает TFrxRichView без принтера

alexghaash

Замечена следующая ошибка в FastReport:

Если в системе не установлено ни одного принтера, не выводится
Preview, если в отчете присутствует TFrxRichView.

Также без принтера зависает дизайнер, когда на него ложится TFrxRichView.

В случае Preview выдает однократное сообщее Canvas doesn't not Allow Drawing и зависает. В дизайнере при помещении текста в TFrxRichView
начинает бесконечно выдавать такие сообщения.

При экспорте отчета такое сообщение и экспорт не происходит.

Если убрать из отчета TFrxRichView все нормально. Так же все нормально,
если установить в систему любой принтер.

alexghaash

По моему, причина кроется в том, что в процедурах
TfrxRichView.CreateMetafile
TfrxRichView.CalcHeight
TfrxRichView.DrawPart
значение PrinterHandle := frxPrinters.Printer.Canvas.Handle
не проверяется на корректность.
Ну а в дальнейшем с ним производятся вызывющие ошибку действия(
GetDeviceCaps и т.п.
).

AlexTZ

fixed.