anchor.diff:  
     RegisterComponents('IW BootsTrap', [TIWBSTabControl]);
   
  +  RegisterPropertyEditor(TypeInfo(TStrings), TIWBSCustomControl, '', TIWBSStringListProperty);
  +
  +  RegisterPropertyEditor(TypeInfo(TStrings), TIWBSCustomRegion, '', TIWBSStringListProperty);
     RegisterPropertyEditor(TypeInfo(string), TIWBSCustomRegion, 'Text', TIWBSStringProperty);
     RegisterPropertyEditor(TypeInfo(string), TIWBSCustomButton, 'BSGlyphicon', TGlyphiconEditor);
     RegisterPropertyEditor(TypeInfo(string), TIWBSCustomButton, 'Caption', TIWBSStringProperty);
  
positive.code:   SetStrValue(Value);
  end;
  
  procedure Register;
  begin
    RegisterComponents('IW BootsTrap', [TIWBSLayoutMgr]);
  
negative.code:     function GetValue: string; override;
      procedure GetValues(Proc: TGetStrProc); override;
      procedure SetValue(const Value: string); override;
    end;
  
    TIWBSStringListProperty = class(TStringListProperty)
      function GetIsDefault: Boolean; override;
    end;
  
    TIWBSStringProperty = class(TStringListProperty)
  