anchor.diff:  
   uses
     Classes, SysUtils, Graphics, Controls, StdCtrls, ExtCtrls, Forms,
  -  CheckLst,
  +  CheckLst, Spin,
     ATStringProc;
   
   procedure DoDialogCustom(const ATitle: string; ASizeX, ASizeY: integer;
  
positive.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='memo' then
          begin
            Ctl:= TMemo.Create(AForm);
  
negative.code:       if Ctl is TCheckGroup then DoSetChecklistState(Ctl, SValue);
        if Ctl is TCheckListBox then DoSetChecklistState(Ctl, SValue);
        if Ctl is TMemo then DoSetMemoState(Ctl as TMemo, SValue);
        if Ctl is TSpinEdit then (Ctl as TSpinEdit).Value:= StrToIntDef(SValue, 0);
        Continue;
      end;
  
  