Не эспортирует в Pdf и в картинку
Доброго дня!
В рантайме создаю отчет, и пытаюсь его экспортировать вылетает вот эта ошибка - Canvas doesnt Allow drawing.
В хтмл, ртф конвертит нормально. С чем это может быть связано? И как с этим бороться?
Вылетает из-за того, что
unit frxRich;
....
function TfrxRichView.CreateMetafile: TMetafile;
....
PrinterHandle := frxPrinters.Printer.Canvas.Handle
дает exception
В рантайме создаю отчет, и пытаюсь его экспортировать вылетает вот эта ошибка - Canvas doesnt Allow drawing.
В хтмл, ртф конвертит нормально. С чем это может быть связано? И как с этим бороться?
Вылетает из-за того, что
unit frxRich;
....
function TfrxRichView.CreateMetafile: TMetafile;
....
PrinterHandle := frxPrinters.Printer.Canvas.Handle
дает exception
Комментарии
Чтоб как то работало сделал вот такую штуку:
function TfrxRichView.CreateMetafile: TMetafile;
var
Range: TFormatRange;
EMFCanvas: TMetafileCanvas;
PrinterHandle: THandle;
begin
if UsePrinterCanvas then
try
PrinterHandle := frxPrinters.Printer.Canvas.Handle
except
PrinterHandle := GetDC(0);
end
else
PrinterHandle := GetDC(0);
Вроде работает, файлы создаются. Но все равно мне это не нравится.