hab ich mit
TAdSimpleTypeSetter(Font.TypeSetter).CharHeight := 45.0 / Font.TextHeight(Caption);
probiert.
Aber es scheint so, als ob oben und unten noch extra platz reserviert wird ... kann man den auch irgendwie abstellen?
Mein ziel ist es, ich habe eine Rechteck, das mal mit Gradient gefüllt werden soll siehe andere Frage
)
In dieses Rechteckt möchte ich genau in der Höhe des Rechteckes, ein schwarzes Rechteck drüber legen, und dann genau in der Höhe dieses Rechteck dann die Caption schreiben
momentan mache ich es so
Delphi-Quellcode:
TAdSimpleTypeSetter(Font.TypeSetter).CharHeight := 70.0 / Font.TextHeight(Caption);
Font.Color := Color;
Font.TextOut(ClientWidth-40-Font.TextWidth(Caption)-20, -14, Caption);
Allerdings finde ich es komisch, das wenn die Schrift 45 Pixel hoch sein soll, ich mit dem Faktor 70 und einem Offset von -14 arbeiten muß ... oder gehts nicht anders?