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:   end;
  end;
  
  function DoControl_GetState_ScrollBox(C: TScrollBox): string;
  begin
    Result:= Format('%d,%d,%d,%d,%d,%d', [
      C.VertScrollBar.Position,
      C.HorzScrollBar.Position,
      C.VertScrollBar.Range,
      C.HorzScrollBar.Range,
      C.VertScrollBar.Page,
      C.HorzScrollBar.Page
      ]);
  end;
  
  
  function DoControl_GetState(C: TControl): string;
  begin
    Result:= '';
  