1 files changed, 15 insertions, 0 deletions
diff --git a/src/gui/fpg_stylemanager.pas b/src/gui/fpg_stylemanager.pas
index de49d5a7..a4d47a36 100644
--- a/src/gui/fpg_stylemanager.pas
+++ b/src/gui/fpg_stylemanager.pas
@@ -25,6 +25,7 @@ interface
 uses
   Classes
   ,Contnrs
+  ,fpg_base
   ,fpg_main
   ;
   
@@ -67,6 +68,7 @@ type
     function    CreateInstance: TfpgStyle; overload;
     procedure   FreeStyleInstance;
     procedure   AssignStyleTypes(const AStrings: TStrings);
+    function    StyleTypesAsString: TfpgString;
   end;
 
 
@@ -203,6 +205,19 @@ begin
     AStrings.Add(TfpgStyleClassMapping(FList.Items[i]).MappingName);
 end;
 
+function TfpgStyleManager.StyleTypesAsString: TfpgString;
+var
+  i: integer;
+  s: string;
+begin
+  for i := 0 to FList.Count - 1 do
+  begin
+    if i > 0 then
+      s := ', ';
+    Result := Result + s + '"' + TfpgStyleClassMapping(FList.Items[i]).MappingName + '"';
+  end;
+end;
+
 
 finalization
   uStyleManager.Free;