Delphi - Get et Set de barre de Défilement de la Position d'une ListView

Il pourrait sembler comme une bête & simple question, et pourtant, j'ai été incapable de trouver une réponse satisfaisante. En gros, j'ai un TListview (style = vsReport) avec des données. Parfois, j'ai du le mettre à jour, et donc, je dois effacer la liste et de le remplir à nouveau avec la mise à jour des données.

Cependant, quand je fais ça, la position de la barre de défilement est réinitialisé à 0. Je voudrais être en mesure d'obtenir la barre de défilement position avant que la compensation et le ramener à ce qu'il était avant. Si la mise à jour des données a exactement le même nombre de lignes que les anciennes données, j'ai besoin de la barre de défilement pour être exactement à la même position qu'avant; si non, j'ai juste besoin qu'il soit plus ou moins à la même place qu'avant.

Semble facile, droit? Pourtant, tout ce que j'ai trouvé sont des hacks ou des réglages avec TopItem et MakeVisible. Est-il approprié de la méthode pour le faire?

Merci!

Pourquoi effacer la liste en premier lieu? Vous pouvez mettre à jour les éléments existants au lieu de cela, ce qui laisse le choix (et la barre de défilement).
Il me semblait plus logique, car la mise à jour des données peut avoir plus ou moins de lignes que d'anciennes données. Suis-je tort?
Que faire si le nombre d'éléments dans la liste augmente? Que faire si l'ancien élément est "hors service" (c'est à dire, n'apparaît pas dans la "mise à jour" de la liste)?
Votre question était: "Si la mise à jour des données a exactement le même nombre de lignes que les anciennes données". Si il y a moins de lignes, juste de mettre à jour ceux que vous avez besoin et de supprimer le reste (un par un). Si il y a des "déclassés" éléments, il suffit de remplacer le contenu actuel avec le nouveau contenu qui devrait être là, au lieu de cela maintenant. Compensation/recréer les éléments de la liste est une opération coûteuse.
Je n'ai jamais dit "supprimer des éléments à garder la barre de défilement à la même position" n'importe où dans ce que j'ai écrit. En fait, je lui ai conseillé le contraire (ne pas supprimer des éléments à tous, si vous n'avez pas à le faire). Veuillez lire ce que j'ai écrit de nouveau.

OriginalL'auteur Allain McCain | 2013-12-29

  1. 12

    Enregistrer le haut de l'élément avant de l'effacer,

    FSaveTop := ListView1.TopItem;

    Après la mise à jour, faites défiler la liste, de sorte que ceux qui sont sauvés haut point " y " position sera de 0 (+- tête hauteur):

    var
  R: TRect;
begin
  if Assigned(FSaveTop) then begin
    // account for header height
    GetWindowRect(ListView_GetHeader(ListView1.Handle), R);
    ListView1.Scroll(0, FSaveTop.Position.Y - (R.Bottom - R.Top));
  end;
end;

    En fait, depuis que vous êtes de remplir à nouveau la liste, vous devez concevoir un mécanisme permettant de trouver l'élément sur lequel vous voulez être en haut au lieu d'enregistrer une référence.

    Si vous n'aimez pas la modification de la position de défilement grâce à la 'premier élément', étant donné que les fonctions comme SetScrollInfo, SetScrollPos ne sera pas de mise à jour de l'espace client de la commande, vous pouvez utiliser GetScrollInfo d'obtenir la "osbl" d'un TScrollInfo avant la suppression de la liste, et puis de l'envoyer que de nombreux WM_VSCROLL messages avec " SB_LINEDOWN` après le remplissage.

    Enregistrer la position de défilement:

    var
  FPos: Integer;
  SInfo: TScrollInfo;
begin
  SInfo.cbSize := SizeOf(SInfo);
  SInfo.fMask := SIF_ALL;
  GetScrollInfo(ListView1.Handle, SB_VERT, SInfo);
  FPos := SInfo.nPos;
  ...

    Après l'alimentation, de défilement (en supposant que la position de défilement est 0):

    var
  R: TRect;
begin
  ...
  R := ListView1.Items[0].DisplayRect(drBounds);
  ListView1.Scroll(0, FPos * (R.Bottom - R.Top));

    ou,

    var
  i: Integer;
begin
  ...
  for i := 1 to FPos do
    SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
    Où est la source de ListView_GetHeader? L'unité doit être utilisé?
    L'utilisation de 'commctrl'
    Wow, comment bâclée. Je voudrais utiliser le TopItem, sauf dans mon cas, j'ai actualiser la liste parce que un utilisateur peut avoir utilisé (et donc supprimée) un élément de la liste - et le point haut est celui que l'utilisateur a choisi de supprimer, ça ne marcherait pas. Donc je suppose que je suis coincé avec la bâclée solution d'envoi de messages de défilement X nombre de fois, en espérant qu'il arrive à la position précise qu'il était avant.

    OriginalL'auteur Sertac Akyuz

  2. -2
    type
TForm1 = class(TForm)
ListView1: TListView;
Timer1: TTimer;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
pb:array [0..20] of Tprogressbar;
i:integer;
mintop,spacetop,readtop:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
mintop:=19;
spacetop:=14;
for i:=0 to 20 do
begin
listview1.AddItem('Item no'+inttostr(i),nil);
pb[i]:=Tprogressbar.create(self);
pb[i].Parent:=listview1;
pb[i].width:=120;
pb[i].height:=14;
pb[i].top:=mintop+i*spacetop;
pb[i].position:=i*5;
pb[i].Left:=listview1.Column[0].Width;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
z,FPos: Integer;
SInfo: TScrollInfo;
begin
SInfo.cbSize := SizeOf(SInfo);
SInfo.fMask := SIF_ALL;
GetScrollInfo(ListView1.Handle, SB_VERT, SInfo);
FPos := SInfo.nPos;
form1.caption:='FPOS='+inttostr(fpos);
if fpos>0 then
begin
for z:=0 to 11 do
begin
pb[z+fpos-1].Top:=mintop+z*spacetop;
form1.caption:=form1.caption+' Z='+inttostr(z)+' !';
end;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var x:integer;
begin
for  x:=0 to 20 do
begin
pb[x].Position:=Pb[x].position+1;
end;
end;
end.
/// Code by BRTH1 - Simao Coelho - Portugal
    si vous êtes à la recherche pour tlistview avec tprogressbars défilement de prendre un coup d'oeil

    OriginalL'auteur BRTH1