anchor.diff:      (C is TSpinEdit);
   end;
   
  -
  -function DoGetControlResult(C: TControl): string;
  +function DoGetListviewState(C: TListView): string; forward;
  +function DoGetControlState(C: TControl): string;
   var
     i: integer;
   begin
  
positive.code:       if SValue='checklistbox' then
          Ctl:= TCheckListBox.Create(AForm);
  
        if SValue='listview' then
        begin
          Ctl:= TListView.Create(AForm);
          (Ctl as TListView).ReadOnly:= true;
          (Ctl as TListView).ColumnClick:= false;
          (Ctl as TListView).ViewStyle:= vsReport;
          (Ctl as TListView).RowSelect:= true;
        end;
  
        //set parent
  
negative.code:   Result:= '';
    for i:= 0 to AForm.ControlCount-1 do
    begin
      Str:= DoGetControlState(AForm.Controls[i]);
      if Result<>'' then Result:= Result+#10;
      Result:= Result+Str;
    end;
  