anchor.diff:        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);
  -      if Ctl is TListView then
  -        with (Ctl as TListView) do
  -        begin
  -          N:= StrToIntDef(SValue, 0);
  -          if (N>=0) and (N<Items.Count) then
  -            ItemFocused:= Items[N];
  -        end;
  +      if Ctl is TListView then DoSetListviewState(Ctl as TListView, SValue);
   
         Continue;
       end;
  
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:= IntToStr((C as TSpinEdit).Value);
  
    if C is TListView then
      Result:= DoGetListviewState(C as TListView);
  end;
  
  
  