anchor.diff:    SetStrValue(Value);
   end;
   
  +{ TIWBSStringListProperty }
  +
  +function TIWBSStringListProperty.GetIsDefault: Boolean;
  +var
  +  l: TStrings;
  +begin
  +  l := GetStrings;
  +  if l <> nil then
  +    Result := l.Count = 0
  +  else
  +    Result := True;
  +end;
  +
   procedure Register;
   begin
     RegisterComponents('IW BootsTrap', [TIWBSLayoutMgr]);
  
positive.code:     function GetValue: string; override;
      procedure GetValues(Proc: TGetStrProc); override;
      procedure SetValue(const Value: string); override;
    end;
  
    TIWBSStringProperty = class(TStringListProperty)
  
negative.code: 
    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);
  