Zwei Listviews parallel scrollen

[v2afrank]

Hallo, ich habe hier zwei Listviews die Daten anzeigen, die der Benutzer miteinander vergleichen möchte. Zuerst hatte jede Listview eine vertikale Scollbar. Nun habe ich über ShowScrollBar(EntladeListview.Handle, SB_VERT, false); die Scrollbar an einer Box ausgeschaltet. Nun soll ein bewegen an der anderen Scrollbar beide Listviews paralllel scrollen. Ist so was möglich ?

[Stevie]

Musst einfach das Event abgreifen und es an das andere Control schicken:

Delphi-Quellcode:

type
  TListView = class(ComCtrls.TListView)
  private
    fLinked: TListView;
  protected
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  public
    property Linked: TListView read fLinked write fLinked;
  end;

procedure TListView.WMVScroll(var Message: TWMVScroll);
var
  vpos1, vpos2: Integer;
begin
  inherited;
  if Assigned(fLinked) then
  begin
    vpos1 := GetScrollPos(Handle, SB_VERT);
    vpos2 := GetScrollPos(fLinked.Handle, SB_VERT);
    if vpos1 <> vpos2 then
      fLinked.Perform(LVM_SCROLL, 0, vpos1 - vpos2);
  end;
end;

Das behandelt aber nun nur das Scrollen über den Scrollbalken und nicht über Tastatur oder Mausrad.

[v2afrank]

Danke. Ist genau das was ich gescuht habe

[Sir Rufo]

Eine weitere Möglichkeit ist das Auswerten von TListView.TopItem und TListView.ItemIndex um das dann auf die anderen ListViews zu übertragen.

[Dejan Vu]

Wie überträgt man z.B. das Topitem? Das ist eine Read-Only Property.

[Sir Rufo]

Zitat von Dejan Vu:

Wie überträgt man z.B. das Topitem? Das ist eine Read-Only Property.

Es würde nichts bringen das TopItem zu übertragen, denn das verweist ja auf eine Instanz. Aber man bekommt darüber auch den Index des TopItem und kann dann die andere(n) ListViews dahingehend bewegen, bis die ein TopItem mit dem gleichen Index anzeigen.

Die Reihenfolge ist dabei auch wichtig. Erst ItemIndex setzen und dann positionieren.

Dieses Geraffel lässt man dann am Besten in TApplicationEvents.OnIdle ablaufen.

[Dejan Vu]

Izmir schon klar, das man das Item nicht zuweisen kann. Mich hätte nur interessiert, wie ich die zweite Listview so scrollen kann, das das TopItem 'das gleiche' ist. Offenbar muss man das wohl per Hand mit ScrollBy machen, bis der Index vom TopItem passt.

[Sir Rufo]

Zitat von Dejan Vu:

Izmir schon klar, das man das Item nicht zuweisen kann. Mich hätte nur interessiert, wie ich die zweite Listview so scrollen kann, das das TopItem 'das gleiche' ist. Offenbar muss man das wohl per Hand mit ScrollBy machen, bis der Index vom TopItem passt.

Nee mit ScrollBy geht das nicht, das geht mit dem Code von Stevie (gut das TopItem wird da nicht benötigt )

[Dejan Vu]

Wieso nicht? Wenn dieses 'ScrollBy' oder einer der Scroll-Methoden es erlaubt, um ein paar Pixel in vertikaler Richtung im Report-Modus zu scrollen, sollte das doch gehen...

Delphi-Quellcode:

Procedure Synchronize (lvMaster, lvSlave : TListView);
var 
  topIndex,
  curIndex, delta : Integer;
begin
  topIndex := lvMaster.Items.IndexOf(lvMaster.TopItem);
  curIndex := lvSlave.Items.IndexOf(lvSlave.TopItem);
  
  delta := Math.Sign(topIndex-curIndex); //

  while lvSlave.Items.IndexOf(lvSlave.TopItem)<>topIndex do 
    lvSlave.Scroll(0,delta); 
End;

Wenn die Items alle gleich hoch sind, kann man auch gleich direkt dorthin scrollen, so etwa.

Delphi-Quellcode:

// Ich weiß nicht genau, ob 'Scroll' absolut oder relativ scrollt. Relativ wäre so
lvSlave.Scroll (0, lvSlave.ItemHeight*(topIndex - curIndex));
// Absolut so
lvSlave.Scroll (0, lvSlave.ItemHeight*topIndex);

Habs abern nicht probiert, nur gelesen.

Die Methode kann man per Timer aufrufen oder im OnIdle.