anchor.diff:    Result:=
       (C is TLabel) or
       (C is TButton) or
  +    (C is TToggleBox) or
       (C is TEdit) or
       (C is TComboBox) or
       (C is TCheckBox) or
  
positive.code: 
    if C is TCheckBox then
      Result:= IntToStr(Ord((C as TCheckBox).Checked));
  
    if C is TRadioButton then
      Result:= IntToStr(Ord((C as TRadioButton).Checked));
  
negative.code:         begin
            Ctl:= TButton.Create(AForm);
            (Ctl as TButton).ModalResult:= cButtonResultStart+ AForm.ControlCount;
            DoFixButtonHeight(Ctl);
          end;
        if SValue='checkbutton' then
          begin
            Ctl:= TToggleBox.Create(AForm);
            DoFixButtonHeight(Ctl);
          end;
        if SValue='radiogroup' then
          Ctl:= TRadioGroup.Create(AForm);
  