Pagecontrol Registerbeschriftung Horizontal schreiben

[Deliverenc]

Hi

Sory wenn das schon mal Thema wahr, dann habe ich das leider nicht gefunden.

Ich würde gerne wissen wie ich bei Pagecontrol die TabSheets die Caption horizontal schreiben kann.
Die Option Orientation funktioniert nicht.

hier auch mal ein Bild zur Ansicht

http://www.bilder-upload.eu/thumb/065fe2-1450204510.jpg

Falls die Delphiversion wichtig ist, ich habe Delphi XE2

[Perlsau]

Eine Eigenschaft orientation gibt es meines Wissens nach nicht in TPageControl. Es gibt aber die Eigenschaft TabPosition, die bestimmt, wo der Tabulator dargestellt werden soll: rechts, links, oben oder unten. Die Beschriftungen werden je nachdem anders dargestellt. Hast du tlLeft oder tlRight eingestellt (vertikale Darstellung), werden selbstverständlich auch die Captions vertikal dargestellt, anders würden sie ja gar nicht reinpassen.

Dein verlinktes Bild ist so unscharf und winzig, ich kann darauf leider nichts erkennen. Zur Veranschaulichung stelle ich daher ein Screenshot von einem meiner Projekte zur Verfügung.

[Deliverenc]

Das habe ich heraus gefunden.

Wenn sie wie bei mir links sind möchte ich die tabs nicht Hochkant sondern untereinander und länglich,
wie auf dem Bild zusehen. Wie die Tabs länglich werden weis ich aber die schrift bleibt hochkant die muss nur noch
horizontal werden.

[Perlsau]

Wie bereits erwähnt kann man in deinem Bild nichts erkennen.

Wenn du statt eines TPageControl ein TjvPageControl aus der Jedi-Komponentensammlung verwendest, dann kannst du diesem ein TJvTabDefaultPainter zuweisen, in welchem du die Fonteigenschaften der Register-Captions unabhängig von den sonstigen Fonts im PageConrol einstellen kannst. Hier gibt es selbstverständlich auch die Font-Eigenschaft Orientation, die in Zehntel-Grad die Drehung des Textes angibt: Für eine 90-Grad-Drehung nach rechts mußt du dort den Wert -900 eintragen. Allerdings sind die Texte dann nur sichtbar, wenn du die Breite – die bei Rechts- oder Linkspositionierung der Register die Höhe ist – entsprechend vergrößerst. Um den Effekt wie im angehängten Bild zu reproduzieren, setzt du OwnerDraw deines TjvPageControl auf True, weist den oben erwähnten TJvTabDefaultPainter zu (den du zuvor natürlich auf dein Formular pflanzen mußt) und stellst die Orientation der Fonts für ActiveFont (die Schrift im aktiven Tabsheet-Register) DisabledFont (im disabelten) und InactiveFont (im inaktiven Register) auf -900, was einer Drehung um 90 Grad nach rechts entspricht.

Als ansprechende Lösung würde ich das allerdings nicht wirklich bezeichnen.

[Deliverenc]

Danke für die Hilfe