Sehr schön. Bin eigentlich auch kein Freund von exzessiven Casts und die InflateRect Variante mit 4 Parametern kannte ich nicht. Thanx!
Man kann am Ende der function noch ergänzen (erforderlich, falls keine Scrollbars).
Delphi-Quellcode:
Result.Bottom := Min(Result.Bottom, Sender.ClientHeight);
Result.Right := Min(Result.Right, Sender.ClientWidth);