Delphi - Get-und Set-Scrollbar Position einer ListView

Es mag wie eine dumme & einfache Frage, und doch, ich habe nicht in der Lage eine befriedigende Antwort darauf finden. Im Grunde genommen habe ich eine TListview (style = vsReport) mit Daten. Manchmal meine ich, ihn zu aktualisieren, und deshalb habe ich auf deaktivieren Sie das listview-Steuerelement und füllen es wieder mit den aktualisierten Daten.

Allerdings, wenn ich tun, dass die scrollbar-position wird zurückgesetzt auf 0. Ich möchte in der Lage sein, um die scrollbar-position, bevor Sie die Lichtung, und legen Sie es zurück zu dem, was es vorher war. Wenn die aktualisierten Daten, hat genau die gleiche Menge an Zeilen wie die alten Daten, ich brauche Sie die Bildlaufleiste, um an der exakt gleichen position wie zuvor; wenn nicht, brauche ich nur mehr-oder-weniger an der gleichen Stelle wie zuvor.

Scheint einfach, richtig? Doch, alle die ich gefunden habe, sind hacks oder tweaks mit TopItem und MakeVisible. Gibt es eine entsprechende Methode, das zu tun?

Dank!

Warum deaktivieren Sie das ListView-Steuerelement in den ersten Platz? Sie können aktualisieren Sie die vorhandenen Elemente statt, was die Auswahl (und Scrollbalken) allein.
Es schien mir logischer, da die aktualisierten Daten, möglicherweise mehr oder weniger Zeilen als die alten Daten. Bin ich falsch?
Was ist, wenn die Anzahl der Elemente in der Liste steigt? Was ist, wenn das alte Element ist "stillgelegt" (dh, nicht in die "aktualisierte" Liste)?
Ihre Frage war "Wenn die aktualisierten Daten, hat genau die gleiche Menge an Zeilen wie die "alten Daten". Wenn es weniger Zeilen sind, aktualisieren Sie einfach die, die Sie brauchen, und löschen Sie den rest (nacheinander). Wenn es "ausgemusterten" Gegenständen, ersetzen Sie einfach den aktuellen Inhalt mit dem neuen Inhalt, den es sein sollte, anstatt jetzt. Clearing/Neuerstellung der Elemente der Liste ist ein teurer Vorgang.
Ich habe nie gesagt, "Artikel löschen, halten Sie die Bildlaufleiste an der gleichen Stelle" irgendwo in dem, was ich schrieb. In der Tat, riet ich das Gegenteil (nicht das löschen von Elementen, wenn Sie nicht haben, dies zu tun). Bitte Lesen, was ich schrieb wieder.

InformationsquelleAutor Allain McCain | 2013-12-29

  1. 12

    Speichern Sie den obersten Eintrag vor dem löschen,

    FSaveTop := ListView1.TopItem;

    Nach dem Update, das scrollen der listview, so dass die gespeicherten top-Punkt ' s 'y' - position 0 (+ header Höhe):

    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;

    Tatsächlich, da sind Sie wieder-Auffüllen der listview, Sie entwickeln einen Mechanismus zu finden, welches Element Sie wollen an der Spitze anstelle von speichern eine Referenz darauf.

    Wenn Sie nicht wie die ändern die scroll-position durch 'top-Punkt', da Funktionen wie SetScrollInfo, SetScrollPos nicht aktualisieren Sie die client-Bereich des Steuerelements, die Sie verwenden können GetScrollInfo um die 'nPos' der TScrollInfo vor dem löschen der Liste und dann schicken Sie, dass viele WM_VSCROLL Nachrichten mit 'SB_LINEDOWN`, nach dem Auffüllen.

    Speichern Sie die scroll-position:

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

    Nach dem Auffüllen, Blättern (vorausgesetzt, die scroll-position ist 0):

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

    oder,

    var
  i: Integer;
begin
  ...
  for i := 1 to FPos do
    SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
    Wo ist die Quelle der ListView_GetHeader? Welches Gerät verwendet werden muss?
    Verwenden Sie 'commctrl'
    Wow, wie schlampig. Ich würde das TopItem, außer in meinem Fall habe ich die Liste aufzufrischen, denn kann ein Benutzer verwendet (und damit entfernt) ein Element aus der Liste - und wenn das oberste Element war die, die der user wählte, um zu entfernen, es würde nicht funktionieren. Also ich denke, ich bin stecken mit die schlampige Lösung senden Bildlauf-Nachrichten X-mal und hoffe, es wird die genaue position, an der es vorher war.

    InformationsquelleAutor 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
    wenn Sie auf der Suche für tlistview mit tprogressbars scrollen werfen Sie einen Blick

    InformationsquelleAutor BRTH1

Schreibe einen Kommentar