diff options
-rw-r--r-- | src/gui/fpg_stylemanager.pas | 15 |
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; |