* Make TIHData fields public, patch from Ondrej Pokorny, bug ID #30093

git-svn-id: trunk@33635 -

packages/fcl-image/src/fpimage.pp

@@ -234,6 +234,12 @@ type
       FExtension, FTypeName, FDefaultExt : string;
       FReader : TFPCustomImageReaderClass;
       FWriter : TFPCustomImageWriterClass;
+    public
+      property Extension: string read FExtension;
+      property TypeName: string read FTypeName;
+      property DefaultExt: string read FDefaultExt;
+      property Reader : TFPCustomImageReaderClass read FReader;
+      property Writer : TFPCustomImageWriterClass read FWriter;
   end;
 
   TImageHandlersManager = class