TScrollBox, VerticalScrollbar, Range

[itblumi]

Zitat von 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

Um die Zeilenumbrüche musst du dich selbst kümmern, das TCanvas macht dies nicht automatisch für dich.
Das könnte dir dabei helfen: https://shrimpworks.za.net/2006/05/2...-on-a-tcanvas/

Edit: ok hatte nicht gedacht das es dies macht. Mein Fehler.