Schriftberechnung

[Dunkelbunt27]

Hallo Delphi-Praxis,

Ich möchte für mein Programm, dessen Größe man verändern kann die Schriftgröße ausrechnen, dazu muss ich das Verhältnis der Schriftgröße ermitteln.
Vorher muss ich aber ersteinmal Schrift zum Test ausgeben(unsichtbar, ist aber nicht das Problem) und dann die Abmessungen in Pixel in X und Y Richtung ermitteln.

Der Rest (Verhältnis ausrechnen) ist dann mein Problem und dann nicht weiter schwierig.

Hat jemand einen guten Ansatz/Idee oder konkrete Lösungsvorschläge dazu?

FG Dunkelbunt

[Sir Rufo]

Man kann doch eine Form skalieren lassen ScaleBy , bringt das nicht den gewünschten Effekt?

[Dunkelbunt27]

Könntest du mir ein Beispiel geben, wie ich ein Rechteck skaliere und die Maße des Buchstaben A errechne?

[Bummi]

Meinst du etwas in der Art Canvas.Textwidth /Height oder Canvas.Textrect mit tfCalcRect ...
Wenn Du Labels hast mit Autosize kannst Du Clientrect direkt abfragen, oder meinst Du etwas ganz anderes?

[himitsu]

TForm.Font, wenn die untergeordneten Elemente dieses erben, dann änderst du auch deren Schrift.

Zitat:

Vorher muss ich aber ersteinmal Schrift zum Test ausgeben(unsichtbar, ist aber nicht das Problem) und dann die Abmessungen in Pixel in X und Y Richtung ermitteln.

ähhhhhh, wozu willst du den ausgeben, wenn du es eh nicht anzeigen willst?
z.B. http://www.delphipraxis.net/11102-la...es-string.html

[Sir Rufo]

Bei ScaleBy wird nur der Skalierungsfaktor mitgegeben und der Rest passiert von selber.
TWinControl.ScaleBy

[Dunkelbunt27]

Danke für die vielen Antworten, also:

Zitat:

ähhhhhh, wozu willst du den ausgeben, wenn du es eh nicht anzeigen willst?

Ich möchte die Schrift erst unsichtbar ausgeben um das Schriftgrößen-Formgrößen-Verhältnis auszurechnen um dann bei der "richtigen" Schrift leicht mit der FormGröße die Schriftgröße ermitteln zu können.

Zitat:

Bei ScaleBy wird nur der Skalierungsfaktor mitgegeben und der Rest passiert von selber.

<edit> Wenn man damit die Schriftgröße so einfach verändern kann/könnte wäre es super, muss ich aber erst testen </edit>

Zitat:

TForm.Font, wenn die untergeordneten Elemente dieses erben, dann änderst du auch deren Schrift.

Ich glaube das suche ich nicht...

Zitat:

Art Canvas.Textwidth /Height

Zitat:

Labels hast mit Autosize

Klingt interessant... Der Text wird zum Schluss auf einem Image gezeichnet, deshalb die Anpassung der Schrift, da man praktisch zoomen kann.
Mal schauen, ob es sinnvoll ist zum Test ein Label mit Autosize zu verwenden...

<edit> Um die Schrift zu skalieren, muss ich doch eine X-Ausdehnung und Y-Ausdehnung der Schrift als Eigenschaft haben, oder? Gibt es diese? Oder bin ich jetzt völlig falsch? </edit>


<edit2>
Ich habe im Hintergrund ein unsichtabres Panel, mit Autosize, darauf wird dann ein Zeichen (bsp: 'A') geschrieben und ich lese die Breite und Hoehe des Panels ab. Das Panel nutzt aber sein AutoSize nicht wie ich es möchte.... Es bleibt bei der von mir eingestellten Breite/Höhe....
Ein Label funktioniert hierbei besser.
</edit2>