![]() |
3 Labels mit unterschiedlichen Font.Size an der Unterkante ausrichten
Hallo,
3 Labels Label1: Font.Size=20 Label2: Font.Size=40 Label2: Font.Size=70 Wie muss ich die Tops per Code für die Labels setzen, damit alle drei an der Unterkante ausgerichtet sind. Dazu müsste ja das Top der kleineren Labels vom Wert her etwas größer sein. Egal, was ich hier probiere, ich bekomme das nicht hin ;( Hilfe !!! Danke Heiko |
AW: 3 Labels mit unterschiedlichen Font.Size an der Unterkante ausrichten
Align sie doch einfach irgendwo drauf.
|
AW: 3 Labels mit unterschiedlichen Font.Size an der Unterkante ausrichten
Was ist die Unterkannte?
Unterkannte der Labels, dann Align/Anchor. Unterkannte der Buchstaben? Die untere Linie der Buchstaben, wo sie drauf stehen oder der unterste Punkt von z.B. g und y ... egal wie, da mußt du die Position selber ausrechnen und die Labels manuell positionieren. |
AW: 3 Labels mit unterschiedlichen Font.Size an der Unterkante ausrichten
Hallo,
erst ausprobieren, dann schlaue Sprüche !!! ... ;) Nein, im Ernst, probier mal aus, klappt nicht. Je größer der Font, desto mehr Abstand hat der Label-Text nach unten. Einfach mal 2 Labels, eines mit Font-Size 40, eines mit 20 nehmen. Ich habe hier CN-Pack, das erkennt, dass die Labels unten passen, und zeigt das mit einer Hilfsline an. himitsu: Es sind nur die drei Zahlen 1,2,3. Wie berechne ich denn die Position, dass ist ja mein Problem. Ah so, eines noch Die Höhe der Labels ist abhängig von der Fensterhöhe, ist also dynamisch. Zur Not zeichne ich die selber in ein Canvas, dass will ich aber vermeiden. #Update#: Der gute Buchheit. tmExternalLeading (GetTextMetrics) muss ich wohl ermitteln und berücksichtigen. Heiko |
AW: 3 Labels mit unterschiedlichen Font.Size an der Unterkante ausrichten
Zitat:
Und es gab ja grade erst einen Thread zum Thema Schriftgröße, wo man raunschauen könnte und jemand hatte da sogar ein Beispielprogramm gepostet. |
AW: 3 Labels mit unterschiedlichen Font.Size an der Unterkante ausrichten
Hallo,
Delphi-Quellcode:
liefert mir immer 0 zurück ;(
procedure TForm1.Button1Click(Sender: TObject);
var TM: TextMetric; DC: HDC; SaveFont: HFont; begin DC := GetDC(0); SaveFont := SelectObject(DC, Label.Font.Handle); GetTextMetrics(DC, TM); SelectObject(DC, SaveFont); ShowMessage(' = ' + IntToStr(TM.tmExternalLeading)); ReleaseDC(0, DC); end; Auch ein Self.Font.Handle (Self=Form) klappt nicht. Heiko |
AW: 3 Labels mit unterschiedlichen Font.Size an der Unterkante ausrichten
Ich wusste doch, dass ich so ein ähnliches Anliegen hier schon mal gelesen habe und bin hierauf gestoßen, evtl. hilfts dir ja :
![]() |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:46 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz