"Kreisberechnung" - Hülfe gesucht...

[Neutral General]

Zitat von Satty67:

Zitat von Neutral General:

@Satty: Schau dir doch mal die angezeigten Werte im Label an. Die stimmen nicht.

Die Werte des Labels werden ja nicht angepasst, hat also mit der Lösung wenig zu tun.

Doch werden sie:

Label1.Caption := format('Winkel: %d°'#13'Textlänge: %d, Texthöhe: %d (in Pixel)', [Winkel, ts.cx, ts.cy]);

[Satty67]

ts.cx und ts.cy sind nicht die Koordinaten des roten Rechteckes, das ich zeichne!

Somit sind die Werte nicht an das neu ermittelte Rechteck angepasst. Die neuen Werte für TextLänge/Höhe liegen in RectTotal.

Soll der TS entscheiden, ob die Lösung wie gesucht aussieht. Er sucht ja nicht die Textlänge, sondern das umgebende Rechteck bei jedem Winkel!

[turboPASCAL]

Weiter geht es.. immer diese Unterbrechungen.

Zitat:

@Satty: Schau dir doch mal die angezeigten Werte im Label an. Die stimmen nicht.

Doch die stimmen. TextExtent und Co geben wirklich nur Länge und Höhe eines Wage.- bzw. Senkrechten Strings an.


@Satty, Das passt. Auf die Idee mit Min / Max wäre ich nicht gekommen.

Danke.

[Neutral General]

Zitat von turboPASCAL:

Weiter geht es.. immer diese Unterbrechungen.

Zitat:

@Satty: Schau dir doch mal die angezeigten Werte im Label an. Die stimmen nicht.

Doch die stimmen. TextExtent und Co geben wirklich nur Länge und Höhe eines Wage.- bzw. Senkrechten Strings an.

Ja genau deswegen sind sie ja falsch x_x

[Satty67]

Die meiste Arbeit hattest Du ja schon erledigt...

Den Umweg über die Rect1-3 kannst Du auch sparen und aus den 3 Punkten (p2) direkt RectTotal berechnen. Ich wollte halt nur erst mal sehen, ob es auf den ersten Blick passt.

Zitat:

Ja genau deswegen sind sie ja falsch x_x

Ja, die Werte sind falsch, aber das ist völlig irrelevant. Die zeigen nicht die Werte der Lösung (umgebendes Quadrat). Deshalb ist die Anzeige/Codezeile irrelevant, kann gelöscht, vernichtet, vergessen werden.

PS: Wenn der Text sauber gedreht wird, darf sich ja Texthöhe/Länge bei keinem Winkel ändern, bezogen auf die Grundlinie des Textes. Ist halt Definitionssache, ob bei um 45° gedrehtem Text der senkrechte Platzbedarf die Texthöhe ist.

[turboPASCAL]

Eigentlich müsste sich dieser Sch.....nee aber auch anders / einfacher errechnen lassen.

Wenn ich vor Jahrzehnten besser aufgepasst und den Rest nicht vergessen hätte, würde ich sagen:
"Einfach die Hyponuse in der dritten Wurzel Quartieren, davon das halbe Bogenmass zur Tangente multiplizeren minus 24 und ferdisch"

[Satty67]

Aphton hat in Post #9 eine Formel aufgestellt. Die hatte ich nicht getestet, weil mit dem vorhandenen Code ohne viel denken die "Praktiker-Lösung" schnell machbar war.

Evtl. die mal genauer anschauen und testen...

[Luckie]

Bitte vermeide absichtliche Rechtschreibfehler im Beitragstitel.