anchor.diff:      //-------items
       if SName='items' then
       begin
  +      if Ctl is TSpinEdit then
  +      begin
  +        (Ctl as TSpinEdit).MinValue:= StrToIntDef(SGetItem(SValue), 0);
  +        (Ctl as TSpinEdit).MaxValue:= StrToIntDef(SGetItem(SValue), 100);
  +        (Ctl as TSpinEdit).Increment:= StrToIntDef(SGetItem(SValue), 1);
  +      end
  +      else
         repeat
           SListItem:= SGetItem(SValue, #9);
           if SListItem='' then break;
  
positive.code:     (C is TButton) or
      (C is TEdit) or
      (C is TComboBox) or
      (C is TCheckBox);
  end;
  
  function DoGetFormResult(AForm: TForm): string;
  var
    Ctl: TControl;
    Str: string;
    i, k: integer;
  begin
    Result:= '';
    for i:= 0 to AForm.ControlCount-1 do
    begin
      Str:= '';
      Ctl:= AForm.Controls[i];
  
      if Ctl is TEdit then
        Str:= (Ctl as TEdit).Text;
      if Ctl is TCheckBox then
        Str:= IntToStr(Ord((Ctl as TCheckBox).Checked));
      if Ctl is TComboBox then
        Str:= IntToStr((Ctl as TComboBox).ItemIndex);
      if Ctl is TListBox then
        Str:= IntToStr((Ctl as TListBox).ItemIndex);
  
      if Ctl is TMemo then
      begin
        Str:= (Ctl as TMemo).Lines.Text;
        Str:= StringReplace(Str, #13#10, #9, [rfReplaceAll]);
        Str:= StringReplace(Str, #13, #9, [rfReplaceAll]);
        Str:= StringReplace(Str, #10, #9, [rfReplaceAll]);
      end;
  
      if Ctl is TRadioGroup then
        Str:= IntToStr((Ctl as TRadioGroup).ItemIndex);
  
      if Ctl is TCheckGroup then
      begin
        Str:= '';
        for k:= 0 to (Ctl as TCheckGroup).Items.Count-1 do
          Str:= Str+IntToStr(Ord((Ctl as TCheckGroup).Checked[k]))+',';
      end;
  
      if Ctl is TCheckListBox then
      begin
        Str:= '';
        for k:= 0 to (Ctl as TCheckListBox).Items.Count-1 do
          Str:= Str+IntToStr(Ord((Ctl as TCheckListBox).Checked[k]))+',';
      end;
  
      if Result<>'' then Result:= Result+#10;
      Result:= Result+Str;
    end;
  
negative.code:       if SValue='check' then begin Ctl:= TCheckBox.Create(AForm); end;
        if SValue='edit' then begin Ctl:= TEdit.Create(AForm); end;
        if SValue='listbox' then begin Ctl:= TListBox.Create(AForm); end;
        if SValue='spinedit' then begin Ctl:= TSpinEdit.Create(AForm) end;
        if SValue='memo' then
          begin
            Ctl:= TMemo.Create(AForm);
  