Scrollen mit eigener Scrollbar bei TListView

[s.h.a.r.k]

Hallo!

Wie der Titel schon sagt steh ich grad auf dem Schlauch... und zwar hab ich ein TListView, bei der ich mit diesem Tip die Standard-Scollbars unsichtbar gemacht habe, da ich ein eigenes Desgin dafür haben will! Daher habe ich mir eine andere Scrollbar geschnappt und will nun damit durch die TListView scrollen - kleine Beschränkung: nur vertikales Scrollen nötig!

Ich hoffe ihr könnt mir bei meinem Problem weiterhelfen! Danke schon mal!

mfg shark

[s.h.a.r.k]

Hat wirklich keiner einen Tip für mich?!

[xaromz]

Guten Morgen!

Wie wäre es mit

Delphi-Quellcode:

var
  OldPos: Integer;
  
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  ListView1.Scroll(0, ScrollBar1.Position - OldPos);
  OldPos := ScrollBar1.Position;
end;

Du must nur den maximalen Wert der Scrollbar errechnen. Das ist allerdings bei einem ListView nicht ganz einfach, da es ja mehrere Ansichten gibt. Prinzipiell musst Du aber nur die Itemhöhe mit der Item-Anzahl multiplizieren und in Relation zur Größe Deines ListViews setzen.

Gruß
xaromz