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:   AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
  var
    F: TForm;
    Res, NIndex: integer;
    SItem: string;
    Dummy: TDummyClass;
  begin
  
negative.code: 
  uses
    Classes, SysUtils, Graphics, Controls, StdCtrls, ExtCtrls, Forms,
    CheckLst, Spin, ComCtrls,
    LclProc, LclType,
    ATStringProc;
  
  