anchor.diff:  
     if C is TListViewFilterEdit then
       exit(TListViewFilterEdit(C).Text);
  +
  +  if C is TScrollBox then
  +    exit(DoControl_GetState_ScrollBox(TScrollBox(C)));
   end;
   
   
  
positive.code:   end;
  end;
  
  
  function DoControl_GetState_Listview(C: TListView): string;
  // index;check0,check1,
  
negative.code:   if C is TListViewFilterEdit then
    begin
      TListViewFilterEdit(C).Text:= S;
      exit
    end;
    if C is TScrollBox then
    begin
      DoControl_SetState_ScrollBox(TScrollBox(C), S);
      exit
    end;
  end;
  