Größe einer Standard-Checkbox-Grafik ermitteln

[RSE]

Hallo!

Ich benötige eine Checkbox mit Autosize-Funktion in Delphi 5 (Abhängig von der Schrift). Da TCheckbox diese nicht hat, möchte ich sie selbst programmieren. So weit kein Problem, allerdings weiß ich nicht, wie ich an die Größe der Box selbst herankommen soll. Die TCheckbox hat eine Höhe von 17. Diese Höhe findet sich auch in Design-Guidelines von MS wieder (http://msdn.microsoft.com/en-us/libr...#controlsizing). Die Höhe der Box selbst ist allerdings 13. Zumindest mit meinem aktuellen Theme. Ich habe keine Win32 API Funktion gefunden, die mir diese Höhe zurückgibt.

Der einzige Workaround, der mir momentan einfällt: ich nehme als minimale Höhe 17, falls -Font.Height kleiner ist, ansonsten Height := -Font.Height.

Wer kennt eine Win32-API Funktion, mit der ich mir die tatsächliche Größe der Checkbox zurückgeben lassen kann?