anchor.diff:  
     if C is TCheckBox then
       Result:= IntToStr(Ord((C as TCheckBox).Checked));
  +
  +  if C is TToggleBox then
  +    Result:= IntToStr(Ord((C as TToggleBox).Checked));
   
     if C is TRadioButton then
       Result:= IntToStr(Ord((C as TRadioButton).Checked));
  
positive.code:     (C is TSpinEdit);
  end;
  
  function DoGetListviewState(C: TListView): string; forward;
  function DoGetControlState(C: TControl): string;
  var
  
negative.code:   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
  