TControlScrollBar.range berechnen / setzen

[stalkingwolf]

Moin,

ich habe das Problem das in der GMPrintSuite welches auf TScrollingWinControl aufsetzt nicht die Scrollbalken der Thumbnails mehr korrekt berechnet werden.
Beim Updaten der Thumbnails ruft es DisableAutoRange und EnableAutoRange auf. Aber das bewirkt gar nichts mehr. Funktioniert in Delphi 6 und ab unseren XE4 bis nun Delphi 11 Programm passiert nichts.

Nun versuche ich die Range selber zu berechnen, steige aber nicht ganz durch wie die berechnet wird.
Klar ist wenn die Range kleiner die Breite des TScrollingWinControl ist, dann wird nichts angezeigt.

Jemand schon einmal dies selber berechnet?

Edit : ok gefunden.
Was mir aufgefallen ist. Kann es sein das FAutoRangeCount in TScrollingWinControl nicht korrekt initialisiert ist?
Ich verstehe auch nicht warum in Delphi 6 das berechnen korrekt war und ab XE4 scheinbar keine Auswirkung hat.