ListView - не перескакивать обратно на выделенный элемент

[bro]

Здравствуйте. Помогите, пожалуйста, с проблемой:
Использую ListView (вообще JvListView, но не важно) в виртуальном режиме. Итемов около 700, есть вертикальный скролл. Если выделить какую-либо строчку, а потом прокрутить ListView так, чтобы выделенную строчку не было видно, то скролл самопроизвольно возвращается обратно (о_О) при изменении количества итемов.
Как этого избежать?

[bro]

Воспроизвёл проблему:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := IntToStr(Item.Index);
  Item.SubItems.Add(IntToStr(Sqr(Item.Index)));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  ListView1.Items.Count := ListView1.Items.Count + 1;
  Timer1.Enabled := true;
end;

end.

Количество элементов увеличивается по таймеру, и всякий раз скролл "убегает" к выделенному итему.

[phomm]

установи Itemindex на последний добавленый итем, а если он особо нужен, то запоминай, при отпускании мышки - возвращай

[bro]

phomm, не понял твою мысль.
Мне нужно избежать автоматического "MakeVisible" для выделенного элемента. То есть, скролл должен в любой ситуации остаться на своём месте. (именно там, куда прокрутил его юзер, а не в конце списка и не на выделенном итеме)

[phomm]

Сообщение от bro

скролл самопроизвольно возвращается обратно НА ТОТ ЭЛЕМЕНТ, НА КОТОРЫЙ ССЫЛАЕТСЯ ITEMINDEX (о_О) при изменении количества итемов.
Как этого избежать?

вот и установите при изменении количества итемов этот ITEMINDEX на последный добавленный, ну или , по идее, на тот , который в свойстве Topindex (не помню, есть ли такое у Листвью, но у листбокса точно есть)

УПД, нашёл - TopItem, соответственно , при изменении числа - Listview.ItemIndex := Listview.Topitem; но конечно выделнный элемент при этом терятся, можно его перед изменением запомнить, а потом восстановить, по идее, даже в той же процедуре возможно

[bro]

phomm, дело в том, что обновление ListView происходит раз в секунду, и выделение не может постоянно скакать...
Попробовал сделать по-твоему - Stack Owerflow в чём причина?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  SelectedIndex: integer;
begin
  SelectedIndex := ListView1.ItemIndex; // запоминаем текущее выделение
  ListView1.ItemIndex := ListView1.Topitem.Index; // выделяем верхний видимый итем
  { заполнение }
  Item.Caption := IntToStr(Item.Index);
  Item.SubItems.Add(IntToStr(Sqr(Item.Index)));
  //
  ListView1.ItemIndex := SelectedIndex; // возвращаем выделение назад
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  ListView1.Items.Count := ListView1.Items.Count + 1;
  Timer1.Enabled := true;
end;

end.