Fehler in TPageScroller? (Er verliert Scroll-pfeile)

[ralfiii]

Hallo!

Ich hab hier ein echt blödes Problem mit der TPageScroller-Komponente.
Wenn der Inhalt eines PageScrollers vergrössert wird während Pagescroller.Position nicht auf 0 steht verliert der Pagescroller den Scrollbutton und enthaltene Elemente werden unerreichbar.

Demoapp hab ich angehängt.

Zum reproduzieren:

* Launch the app,
* Click on Button 1 - a scroll-arrow appears
* Click the scroll-button to scroll to the right
* Click Button2 - 2 scroll buttons appear
* Click the scroll-right-button

BANG!

Beide scroll-buttons verschwinden!


Ist der Pagescroller tatsächlich so blöd oder mach ich da was falsch?
Ideen für einen Workaround?

Danke!

[toms]

Hallo

Folgendes Workaround funktioniert bei mir:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Panel2.Width := 700;
  Button3.Width := 690;
  PageScroller1.AutoScroll := True;  //<---hinzufügen
  PageScroller1.AutoScroll := False; //<---hinzufügen
end;