Listview scrollen iOs

[Mavarik]

Ich hab das so gelößt:

Delphi-Quellcode:

procedure TGenKBII.ViewPortChange(Sender: TObject;const OldViewportPosition, NewViewportPosition: TPointF;const ContentSizeChanged: Boolean);
begin
  if not(FlipScroll) then
    exit;

  if MDown
    then begin
           if NewViewPortPosition.Y > OldViewPortPosition.Y
            then Runter := true
            else Runter := false;
           DoPage := false;
         end
    else begin
           if (NewViewPortPosition.Y < OldViewPortPosition.Y) and runter and not(DoPage)
             then begin
                    if Seiten.ItemIndex < Seiten.Count then
                      begin
                        Seiten.ItemIndex := Seiten.ItemIndex + 1;
                        DoPage := true;
                      end;
                  end
             else if (NewViewPortPosition.Y > OldViewPortPosition.Y) and not(runter) and not(DoPage) then
                    if Seiten.ItemIndex > 0 then
                      begin
                        Seiten.ItemIndex := Seiten.ItemIndex - 1;
                        DoPage := true;
                      end;
         end;
end;

Mavarik

[eddie11]

Zitat von Mavarik:

Ich hab das so gelößt:

Delphi-Quellcode:

procedure TGenKBII.ViewPortChange(Sender: TObject;const OldViewportPosition, NewViewportPosition: TPointF;const ContentSizeChanged: Boolean);
begin
  if not(FlipScroll) then
    exit;

  if MDown
    then begin
           if NewViewPortPosition.Y > OldViewPortPosition.Y
            then Runter := true
            else Runter := false;
           DoPage := false;
         end
    else begin
           if (NewViewPortPosition.Y < OldViewPortPosition.Y) and runter and not(DoPage)
             then begin
                    if Seiten.ItemIndex < Seiten.Count then
                      begin
                        Seiten.ItemIndex := Seiten.ItemIndex + 1;
                        DoPage := true;
                      end;
                  end
             else if (NewViewPortPosition.Y > OldViewPortPosition.Y) and not(runter) and not(DoPage) then
                    if Seiten.ItemIndex > 0 then
                      begin
                        Seiten.ItemIndex := Seiten.ItemIndex - 1;
                        DoPage := true;
                      end;
         end;
end;

Mavarik

Danke, aber das sagt mir leider garnichts - ich weiß nicht wie ich das zu interpretieren habe. Kannst Du das vielleicht erläutern?

[eddie11]

ok, habs so gelöst:

Code:

procedure TForm1.Button77Click(Sender: TObject);
var i: integer;
    Scrollbar: TScrollBar;
begin
  for i := 0 to ListView1.ControlsCount-1 do begin
    if ListView1.Controls[i] is TScrollBar then begin
      Scrollbar := TScrollBar(ListView1.Controls[i]);
    end;
  end;
  if Scrollbar.Height+ListView1.ScrollViewPos=Scrollbar.ValueRange.Max then
    unten := true // hier muss dann was gemacht werden

end;

Der Hinweis von bezüglich "ScrollviewPos" hat den richtigen Anstoss gegeben, Danke