anchor.diff:        Continue;
       end;
   
  +    //-------items
       if SName='items' then
       begin
         repeat
  
positive.code:       Continue;
      end;
  
      if SName='val' then
      begin
        if Ctl is TCheckBox then (Ctl as TCheckBox).Checked:= (SValue<>'0');
  
negative.code:   UseAutosize:= false;
  
    repeat
      SNameValue:= SGetItem(ATextItems, Chr(1));
      if SNameValue='' then break;
      SName:= SGetItem(SNameValue, '=');
      SValue:= SNameValue;
      if SName='' then Continue;
  
      //-------type
      if SName='type' then
      begin
        if SValue='check' then begin Ctl:= TCheckBox.Create(AForm); end;
  