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