Поддержка графических форматов D2010

Комментарии

• OlegK

  April 2010 отредактировано April 2010

  написал:

  С чем это может быть связано и в какой стороне можно покопать?

  Судя по всему, это связано с тем, что TfrxPictureView не поддерживает tiff. Поддерживаются bmp, jpg, png, ico, wmf и emf. В принципе, можно открыть изображение в формате tiff, каким-нибудь графическим редактором, и сохранить в одном из поддерживаемых форматов.
• pnv82

  April 2010 отредактировано 09:16

  OlegK написал: »

  Судя по всему, это связано с тем, что TfrxPictureView не поддерживает tiff. Поддерживаются bmp, jpg, png, ico, wmf и emf. В принципе, можно открыть изображение в формате tiff, каким-нибудь графическим редактором, и сохранить в одном из поддерживаемых форматов.

  
  Но если посмотреть в глубь TfrxPictureView, то окажется, что он сам не поддерживает вообще ничего, а использует FPicture: TPicture;
  Который, в свою очередь, в D2010 уже может отображать tiff. Что он(TfrxPictureView) замечательно и делает во время дизайна. Но отказывается рисовать его в рантайме(во время запуска отчета), обнуляя свое содержимое, если там был tiff.
  
  Пока обнаружить причину, по которой это происходит - не удалось. Потому и спрашиваю совета.
  Сохранить, сконвертировать, вручную и т.п. вещи немного из другой оперы.
• pnv82

  April 2010 отредактировано 09:16

  К превеликому сожалению, как и ожидалось, заброшенная разработчиками VCL версия FastReport про D2010 не знает. Ситуация правится след. патчем, для D2010:
  

  FastReport/Source/frxClass.pas |    9 +++++++++
   1 files changed, 9 insertions(+), 0 deletions(-)
  
  diff --git a/FastReport/Source/frxClass.pas b/FastReport/Source/frxClass.pas
  index 7e8ec75..dee0a47 100644
  --- a/FastReport/Source/frxClass.pas
  +++ b/FastReport/Source/frxClass.pas
  @@ -8654,6 +8654,15 @@ begin
             NewGraphic := TIcon.Create;
         end;
       end;
  +
  +    // pnv82
  +    // если нет нативных типов TGraphic - то берем универсальный WIC
  +    // http://en.wikipedia.org/wiki/Windows_Imaging_Component
  +    if not bOK then
  +    begin
  +      NewGraphic := TWICImage.Create;
  +      bOK := True;
  +    end;
     end;
   
     if NewGraphic <> nil then