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

pnv82

Последняя, посредством WIC, поддерживает кучу форматов, но Фастрепортовский PictureView почему-то отображает, к примеру tiff, только на этапе дизайна - при отображении отчета картинки уже не видно.
С чем это может быть связано и в какой стороне можно покопать?

OlegK

написал:

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

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

pnv82

OlegK написал: »

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

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

Пока обнаружить причину, по которой это происходит - не удалось. Потому и спрашиваю совета.
Сохранить, сконвертировать, вручную и т.п. вещи немного из другой оперы.

pnv82

К превеликому сожалению, как и ожидалось, заброшенная разработчиками 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