FMX Wie finde ich heraus, ob eine Scrollbar sichtbar ist?

[Sherlock]

Ich habe eine FMX.THorzScrollBox auf einem Formular variabler Breite. Sobald das Formular groß genug ist, wird die horizontale ScrollBar dieser ScrollBox automatisch ausgeblendet. Es wird dann auch weniger Höhe benötigt (wie hoch diese Scrollbar im Anzeigefall ist, wäre übrigens noch eine Frage). Im OnResize der ScrollBox würde ich gerne korrekt reagieren, es gibt aber leider nichts äquivalentes zum VCL IsScrollBarVisible. Wer weiß Rat?

Grüßle,
Sherlock

[Rollo62]

Hallo Sherlok,

ja das ist Schade das immer die rudimentärsten Zugriffe fehlen, und man sich etwas drumherumbauen muss was eigentlich schon da sein müsste.
Ich habe das auch einige Workarounds machen müssen, aber ich setze den TImageViewer ein, welcher auf der ScrollBox basiert.

Schau mal ob dir dies hier weiterhilft:

http://docwiki.embarcadero.com/Libra...ewportPosition
http://docwiki.embarcadero.com/Libra...cContentBounds
http://docwiki.embarcadero.com/Libra...PositionChange
http://docwiki.embarcadero.com/Libra...nHScrollChange
http://docwiki.embarcadero.com/Libra...nVScrollChange

Rollo

[Sherlock]

Nunja, nach einer guten Mütze voll Schlaf habe ich mir gedacht, daß es ja nun nicht wirklich so schwer ist - zumindest in meinem konkreten Fall. Wenn der Inhalt breiter ist, als die ScrollBox wird naturgemäß der ScrollBar eingeblendet. Also muss ich eine simple Breitenabfrage durchführen. Ich weiss zwar immer noch nicht, wie hoch ein horizontaler TScrollBar ist, aber...im Moment tun 23 Pixel ganz gut. Vermutlich muss ich eine unsichtbare TScrollBar irgendwo einbinden, nur um deren Höhe zu ermitteln.

Sherlock

[Rollo62]

Komt drauf an was du in der ScrollBox machen willst.
Wenn du nur "normale" Komponenten drinhast die nur feste Breite haben mit z.B. Align := Client oder Horizontal, dann sollte das einfach sein.
Aber willst du ach Pannen und Zoomen, am Besten mit den schönen Animationn ?

Ich habe in dem TImageViewer leider ein TImage und noch ein TLayout als Overlay für Zeichenelemente,
was sich mit Zoom und Pan beliebig positionieren kann.
Da fängt es dann an lustig zu werden, wenn alle Positionen und Skalierungen passen sollen.

Der Trick ist dabei das man auf das integrierte TImage zugreifen kann, man kann das als ChildControl zurückbekommen.
Und mein TLayout lege ich dann einfach darüber auf den gleichen Parent.

Rollo