anchor.diff:      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;
  
positive.code: uses
    Classes
    ,Contnrs
    ,fpg_main
    ;
    
  
negative.code:     function    CreateInstance: TfpgStyle; overload;
      procedure   FreeStyleInstance;
      procedure   AssignStyleTypes(const AStrings: TStrings);
      function    StyleTypesAsString: TfpgString;
    end;
  
  
  