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