gebogendes Label (Text) gesucht

[Helmi]

Hallo,

kennt jemand ein Label das gebogene Texte darstellen kann?

Oder gibt es die Möglichkeit auf einem Shape einen gebogenen Text (z. B. via Canvas) zu zeichnen?

[mkinzler]

Das sollte auf jeder Komponente mit canvas möglich sein

[Helmi]

Zitat:

Zitat von mkinzler (Beitrag 1106184)

Das sollte auf jeder Komponente mit canvas möglich sein

Shapes haben leider kein Canvas.

[mkinzler]

Aber Komponenten mit Canvas haben einen

[Helmi]

Zitat:

Zitat von mkinzler (Beitrag 1106186)

Aber Komponenten mit Canvas haben einen

Sei mir nicht böse, aber den Kommentar hättest dir schenken können!
Natürlich haben Komponenten mit Canvas einen Canvas :roteyes:

Aber ich habe nunmal ein Shape und würde gern da drauf einen Text abbilden - das Ganze muss gebogen sein - deswegen eben meine (eigentliche) Frage ob es nicht vielleicht ein Label gibt das gebogenen Text darstellen kann. Bei Torry hab ich schon gesucht, leider nichts gefunden.

[lbccaleb]

Da mal nachgesehen??

http://www.vclcomponents.com/

[blackfin]

Ich bin mir nicht 100% sicher, aber ich glaube, TEllipsLabel ist so etwas.

Edit:
Nein, scheint nicht so etwas zu sein. Danke für den Hinweis, CCRDude!

[Morphie]

Das könnte dich interessieren:
http://support.microsoft.com/kb/128091/en-us

Wenn du nun weißt, dass man z.B. nach BeginPath suchen sollte, wirst du bestimmt was finden.

[CCRDude]

@blackfin: Ellipsis hat in diesem Fall nichts mit der Form zu tun, sondern mit den drei Punkten am Ende von Texten, die zu lang sind, innerhalb einer Komponente angezeigt zu werden. Unter Delphi XE (ab welche Version davor habe ich gerade nicht parat) hat TLabel etwa auch eine Property EllipsisPosition...

[blackfin]

Wenn du dir selbst so eine Komponente zusammenbasteln willst, schau mal hier, mit den dort vorgestellten Funktionen müsste das recht einfach möglich sein.

Du brauchst eigentlich nur die Funktionen aus der dort vorgestellten unit und bastelst dir daraus eine eigene Komponente.
Dazu leitest du dir eine Komponente mit einem Canvas ab (z.B. ein TImage) und berechnest die Punkte, die die Funktion TextAlongBezier() braucht anhand einer "Punkte auf Halbkreis"-Berechnung, bei der Breite und Höhe des Canvas einbezogen werden (Mittelpunkt des Kreises liegt unten in der Mitte, Radius ist die Höhe des Canvas), wenn du einen exakt "runden Bogen" willst.
Ansonsten brauchst du eine Berechnung für "Punkte auf einer Ellipse", das wird dann etwas komplizierter, aber dennoch denke ich machbar :-)