anchor.diff:      function    CreateInstance: TfpgStyle; overload;
       procedure   FreeStyleInstance;
       procedure   AssignStyleTypes(const AStrings: TStrings);
  +    function    StyleTypesAsString: TfpgString;
     end;
   
   
  
positive.code:     AStrings.Add(TfpgStyleClassMapping(FList.Items[i]).MappingName);
  end;
  
  
  finalization
    uStyleManager.Free;
  
negative.code: uses
    Classes
    ,Contnrs
    ,fpg_base
    ,fpg_main
    ;
    
  