From 698d92dca1d62eded208722d61b5d55e9d62780b Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 3 May 2016 14:22:30 +0000
Subject: [PATCH] * Make TIHData fields public, patch from Ondrej Pokorny, bug
 ID #30093

git-svn-id: trunk@33635 -
---
 packages/fcl-image/src/fpimage.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/fcl-image/src/fpimage.pp b/packages/fcl-image/src/fpimage.pp
index a63f794556..0ec3c7547a 100644
--- a/packages/fcl-image/src/fpimage.pp
+++ b/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