Label mit senkrechter Schrift

[Trille]

Hallo allerseits,
ich benötige ein Label, was ich dynamisch füllen kann (also zur Laufzeit die Caption setzen). Der Inhalt soll jedoch um 90° gedreht und senkrecht dargestellt werden. Hat jemand eine Idee, wie man das anstellen kann?

Trille

[cherry]

spontan fällt mir nur ein: Eine Komponente von TLabel abzuleiten und die Paint methode zu überschreiben.

[Daniel Schuhmann]

Was das Drehen allein angeht, hilft Dir vielleicht http://delphi.smartcoder.net/source/...as_drehen.html weiter.

[hincapie]

Schau Dir doch mal den OvcRotatedLabel von Orpheus an (www.turbopower.com),
vieleicht löst der Dein Problem. :gruebel:

[Trille]

Ich sehe gerade, dass Font unter TLabel auch eine Eigenschaft Orientation hat. Jedoch ist der Punkt, um den er das Bild dreht, links oben, das bedeutet, dass die Schrift immer aus dem Label oben rausrutscht. Gibt es eine Möglichkeit, dass ich dort den Drehpunkt ändere?

[RavenIV]

torry.net ist immer ein guter Ausgangspunkt, wenn man Komponenten sucht.
Dort gibt es freie und kommerzielle Angebote.

[Trille]

Das Problem ist, ich DARF keine neue Komponente nutzen. Ich muss quasi mit dem altbekannten TLabel klarkommen.

[turboPASCAL]

Und was ist daran das Problem ? Hinter jeden Buchstaben kommt ein Enter und der Text ist

s
e
n
k
r
e
c
h
t

:stupid:

[Trille]

Das währe schön, nur müssen die Buchstaben ja auch gedreht sein :)

[turboPASCAL]

Zitat:

Zitat von Trille

Das währe schön, nur müssen die Buchstaben ja auch gedreht sein :)

Ah, also auf dem Kopf sehend oder ? :gruebel:

Das ist mit einem normalen 0815 TLabel nicht möglich. Ein Label dient nur zur normalen formateirten Textdarstellung. Ohne ein überschreiben der Komponente läuft da nix.

[Trille]

Also nochmal: Ich brauche Text, der genau um 90° bzw 270° gedreht ist. Beim TLabel kann ich unter Font schon einen Wert Orientation angeben, der dreht den auch schön, nur setzt er den Drehpunkt irgendwie falsch, so dass ich bei Drehungen nicht mehr den gesamten Text lesen kann. Gibt es da irgendeine Möglichkeit, das zu ändern?

[mkinzler]

Wenn du die JVCL einsetzt kannst du beim TJvLabel den Winkel der Schrift (.Angle) einstellen

[turboPASCAL]

Zitat:

Zitat von Trille

... unter Font schon einen Wert Orientation angeben, der dreht den auch schön ...

Das ist mir neu das dass TLabel in der Eigenschaft Font einen Punkt Orientation hat.
Welche Delphiversion hast du denn ?

[RavenIV]

Zitat:

Zitat von turboPASCAL

Zitat:

Zitat von Trille

... unter Font schon einen Wert Orientation angeben, der dreht den auch schön ...

Das ist mir neu das dass TLabel in der Eigenschaft Font einen Punkt Orientation hat.
Welche Delphiversion hast du denn ?

Auch Du kannst noch etwas dazulernen.
Bei meinem Delphi 2007 gibt es diese Property auch.

[turboPASCAL]

Bei meinem Delphi 2007 - 2001 = 6 noch nicht. ;)

[alzaimar]

Hi

Gedrehte Schrift funktioniert nur mit Fonts, die das unterstützen, also TrueType o.ä.
Mit MS SansSerif (Bitmap Font) geht das nicht.

[Trille]

Ich habe jetzt das OvcRotatedLabel wie empfohlen verwendet, da es offenbar wirklich nicht anders geht. Da taucht schonwieder ein neues Problem auf. Ich habe die Schrift nun um 90° nach links gedreht (also wenn man den Kopf nach links legt, kann man es lesen *g*). Wie kann ich jetzt einstellen, dass die Schrift am oberen Rand beginnt, egal wieviel Text drinsteht? Das Alignment funktioniert irgendwie nur horizonal. Wenn ich momentan einen kurzen Text eingebe, dann beginnt der am unteren Rand. Ich möchte aber, dass kurze Texte am oberen Rand ausgerichtet sind, also dass der letzte Buchstabe am oberen Rand des Labels ist. Hat jemand eine Idee.

[jottkaerr]

Hallo,

hilft Dir das Property AutoSizeHeight weiter?

jkr

[patti]

Ich hab mir mal eine eigene Komponente geschrieben die das alles kann. Wenn du interesiert bist, kann ich sie dir schicken (lieber nicht direkt ins Forum - ist nämlich weder kommentiert, noch perfekt). Die Komponente berechnet ihre Größe selbst (z.B. bei nem 135° Winkel), außerdem wird der Text wenn AutoSize=false und Winkel=90° am oberen Rand der Komponente platziert. Weitere Features sind Umrandung und eine Art Schatten.

P@Tti

[Trille]

Das ist super lieb gemeint, das geht aber leider nicht. Ich muss mit dem auskommen, was hier bereits installiert ist. Trotzdem tausend Dank für das Angebot.

[Trille]

Zitat:

Zitat von jottkaerr

Hallo,

hilft Dir das Property AutoSizeHeight weiter?

jkr

Hmm, die Property habe ich noch garnicht gefunden....bei mir ist das irgendwie nicht drin.

[patti]

Kein Problem ;-)

[jottkaerr]

Hallo,

Zitat:

Zitat von Trille

Zitat:

Zitat von jottkaerr

Hallo,

hilft Dir das Property AutoSizeHeight weiter?

jkr

Hmm, die Property habe ich noch garnicht gefunden....bei mir ist das irgendwie nicht drin.

in der aktuellen Version 4.06, die Du bei http://sourceforge.net/projects/tporpheus/
finden kanst, ist es enthalten. Ältere Versionen kenne ich nicht.

jkr