TScrollBox, VerticalScrollbar, Range

[Alex_ITA01]

Habe ich versucht, sieht aber meiner Meinung nach falsch aus.
Als Result wird mir 13 geliefert (=Bottom). Right sieht entsprechend lang aus aber auch keine 25k Pixel...

Edit:

Als String habe ich mal testweise folgendes übergeben:

Delphi-Quellcode:

'Hallo Welt #13#10 Hallo Welt #13#10 Welt #13#10 Hallo Welt Hallo Welt Hallo Welt #13#10 Hallo Welt Hallo Welt Hallo Welt #13#10 Hallo Welt Hallo Welt Hallo Welt #13#10 #13#10 Hallo Welt Hallo Welt Hallo Welt #13#10 Hallo Welt Hallo Welt'

TMyPanel(aPanel).Canvas.TextRect(R, aText, [tfCalcRect]);
Result := R.Height;

Result := TMyPanel(aPanel).Canvas.TextHeight(aText);

Result := TMyPanel(aPanel).Canvas.TextExtent(aText).Height;

Alle 3 Results liefern 13.
Sieht man aber sofort, dass es nicht nur 13 Pixel sein können