anchor.diff:      (C is TSpinEdit);
   end;
   
  +procedure DoFixButtonHeight(Ctl: TControl);
  +begin
  +  {$ifdef windows}
  +  Ctl.Height:= 23; //smaller
  +  {$endif}
  +  {$ifdef darwin}
  +  Ctl.Height:= 21; //smaller
  +  {$endif}
  +end;
  +
   function DoGetListviewState(C: TListView): string; forward;
   function DoGetControlState(C: TControl): string;
   var
  
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);
  