anchor.diff:  
     if C is TSpinEdit then
       Result:= IntToStr((C as TSpinEdit).Value);
  +
  +  if C is TListView then
  +    Result:= IntToStr((C as TListView).ItemIndex);
   end;
   
   
  
positive.code:       if SValue='checklistbox' then
          Ctl:= TCheckListBox.Create(AForm);
  
        if Assigned(Ctl) then
          Ctl.Parent:= AForm;
        Continue;
  
negative.code: end;
  
  
  procedure DoSetListviewItem(C: TListView; SListItem: string);
  var
    SItem: string;
  begin
    if C.Columns.Count=0 then
    begin
      repeat
        SItem:= SGetItem(SListItem, #13);
        if SItem='' then break;
        with C.Columns.Add do
        begin
          Caption:= SGetItem(SItem, '=');
          Width:= StrToIntDef(SItem, 50);
        end;
      until false;
    end
    else
    begin
      SItem:= SGetItem(SListItem, #13);
      C.Items.Add.Caption:= SItem;
      repeat
        SItem:= SGetItem(SListItem, #13);
        if SItem='' then break;
        C.Items[C.Items.Count-1].SubItems.Add(SItem);
      until false;
    end;
  end;
  
  
  procedure DoAddControl(AForm: TForm; ATextItems: string);
  var
    SNameValue, SName, SValue, SListItem: string;
    NX1, NX2, NY1, NY2, N: integer;
    Ctl, CtlPrev: TControl;
  begin
    Ctl:= nil;
  