Scrollen in Listview

[bluescreen25]

Hallo, wir haben vorgesehen zum scrollen in der ListView Buttons zu nutzen.
Das Problem besteht darin, das beim letzten Item noch ein Scroll möglich ist und somit die Scrollweite
um ein paar Pixel verschoben ist.
Wie bekomme ich das letzte Item beim Scollen abgefangen?

Delphi-Quellcode:

///noch zu verbessern, der Scroll darf nicht über das letzte Item hinaus !
 if TImgBtn(Sender).HelpKeyword = 'listview_down' then
  begin
    ListMedia.Scroll(0,IL.Height + 1); //Scrollweite IconHöhe
    Exit;                              //   +1 Pixel (3D-Abschrägung)
  end;

 if TImgBtn(Sender).HelpKeyword = 'listview_up' then
  begin
    ListMedia.Scroll(0,-(IL.Height + 1));
    Exit;
 end;

PS: Die eigendlichen Scollbalken haben für über einen TIPP verstecken können.

Viele Grüße, bluescreen25

[marabu]

Hallo,

hier noch ein anderer Ansatz zum Scrollen ohne ScrollBar. Du verschiebst den viewport über die ItemHeight, ich mache es über TopItem. Du kannst die Actions-Technik übernehmen und das Kriterium anpassen, wenn du deinen Weg weiter gehen willst.

Grüße vom marabu

[bluescreen25]

Zitat von marabu:

Hallo,

hier noch ein anderer Ansatz zum Scrollen ohne ScrollBar. Du verschiebst den viewport über die ItemHeight, ich mache es über TopItem. Du kannst die Actions-Technik übernehmen und das Kriterium anpassen, wenn du deinen Weg weiter gehen willst.

Grüße vom marabu

auch hier erstmal danke für den Ansatz , aber ich glaube das TopItem nicht geht weil ViewStyle := vsSmallIcon , meine das in der Hilfe gelesen zu haben.

Grüße bluescreen25