* Allow to remove class

git-svn-id: trunk@37311 -

packages/fcl-report/src/fpreport.pp

@@ -1891,6 +1891,7 @@ type
     procedure   UnRegisterEditorClass(const AElementName: string; AEditorClass: TFPReportElementEditorClass);
     procedure   UnRegisterEditorClass(AReportElementClass: TFPReportElementClass; AEditorClass: TFPReportElementEditorClass);
     procedure   RegisterClass(const AElementName: string; AReportElementClass: TFPReportElementClass);
+    procedure   RemoveClass(const AElementName: string);
     function    CreateInstance(const AElementName: string; AOwner: TComponent): TFPReportElement; overload;
     Function    FindEditorClassForInstance(AInstance : TFPReportElement) : TFPReportElementEditorClass;
     Function    FindEditorClassForInstance(AClass : TFPReportElementClass) : TFPReportElementEditorClass ;
@@ -9006,6 +9007,16 @@ begin
   FList.Add(TFPReportClassMapping.Create(AElementName, AReportElementClass));
 end;
 
+procedure TFPReportElementFactory.RemoveClass(const AElementName: string);
+
+var
+  i: integer;
+begin
+  I:=IndexOfElementName(AElementName);
+  if I<>-1 then
+    FList.Delete(I);
+end;
+
 function TFPReportElementFactory.CreateInstance(const AElementName: string; AOwner: TComponent): TFPReportElement;
 var
   i: integer;