Text drehen

[Root2k]

Hallo,

ich habe ein Problem damit verschiedene Texte zu drehen (in Label, StaticText, etc.).
Wenn ich beispielsweise ein TJvStaticText-Feld anlege und das dann unter Eigenschaften -> Font -> Orientation die Ausrichtung ändern will, wird der Text an bestimmten Stellen abgeschnitten (siehe Bild).

Screenshot

Allerdings hat das Ganze schon mal bei einem Kollegen von mir funktioniert. Damals hat er allerdings eine ältere Delphi-Version und ein TStaticText-Feld verwendet. Mit einen TStaticText-Feld schaffe ich die Drehung aber auch nicht.
Das gleiche Problem hab ich beispielsweise auch bei Labels, Buttons, etc.

Wenn ich allerdings das TStaticText-Feld von meinem Kollegen aus dem Projekt kopiere und bei mir einfüge funktioniert alles wunderbar.
Aber ich will nicht TStaticText, sondern TJvStaticText verwenden.

Das sind die Properties meines TJvStaticText-Feldes

Delphi-Quellcode:

object stxUeberschrift: TJvStaticText
      Left = 816
      Top = 555
      Width = 182
      Height = 53
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Alignment = taRightJustify
      Caption = 'OP-Bericht'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -38
      Font.Name = 'Tahoma'
      Font.Orientation = 120
      Font.Style = []
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -38
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentFont = False
      TabOrder = 4
      TextMargins.X = 0
      TextMargins.Y = 0
      WordWrap = False
    end

Kopiertes Feld

Delphi-Quellcode:

object StaticText1: TStaticText
    Left = 1180
    Top = 32
    Width = 276
    Height = 252
    Margins.Left = 4
    Margins.Top = 4
    Margins.Right = 4
    Margins.Bottom = 4
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'OP-Bericht'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = cl3DDkShadow
    Font.Height = -38
    Font.Name = 'Tahoma'
    Font.Orientation = -900
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end

Kann von euch vielleicht einer erkennen woran das liegen kann?
Mein Kollege weiß leider auch nicht weiter.

Gruß,
Root2k


-----------------------------------------------------------------------------------
EDIT: Kann mögliche Antworten leider erst wieder morgen lesen/ausprobieren.
Also bitte nicht wundern wenn ich heute nichts mehr schreibe.

[himitsu]

Ändere mal die Hintergrundfarbe der Labels (ohne Transparenz), dann siehst du wo das Label zuende ist und ob du es vergrößern müßtes.
Bzw. im OI einfach mal das Label markieren, dann sieht man es auch.

Eventuell hilft auch AutoSize=True.

PS: Warum müssen ständig Leute die Bilder sonstwo hochladen und nutzen nicht die Möglichkeiten des Froums?
Wenn irgendwann mal wieder einer soein Problem hat, möchte er/sie bestimmt auch gerne noch ein Bild sehn,
aber was ist, wenn es dort nicht mehr existiert, wohin es nur verlinkt wurde?

[jaenicke]

Naja, der Unterschied ist, dass du eine Orientation von 120 benutzt und er -900. Mit den gleichen Werten würden wohl auch die selben Ergebnisse herauskommen.

Damit alles sichtbar ist, wäre dann wohl selbst zeichnen sinnvoller, z.B. in eine TPaintBox oder ein eigenes Control...

[Root2k]

Danke erstmal für alle Antworten.

Kurzer Hinweis:
Mit TStaticText funktioniert die Drehung in "negativer" Richtung (z.B. Orientation := -900). In positiver Richtung wird der Text immer an der oberen Grenze des TStaticText-Feldes abgeschnitten. Wenn man allerdings den Text innerhalb des Feldes nach unten verschieben kann, könnte der Text wieder sichtbar werden.

Bei TJvStaticText funktioniert das Ganze allerdings nicht.

Zitat von himitsu:

Ändere mal die Hintergrundfarbe der Labels (ohne Transparenz), dann siehst du wo das Label zuende ist und ob du es vergrößern müßtes.
Bzw. im OI einfach mal das Label markieren, dann sieht man es auch.

Eventuell hilft auch AutoSize=True.

AutoSize hilft da leider nichts.
Schaut euch mal bitte den folgenden Screenshot an... da sieht man gut wo das Problem liegt.


Das Grau ist übrigens nicht die Hintergrundfarbe eines Panels oder so, sondern die Farbe des TJvStaticText-Feldes.

Zitat von himitsu:

PS: Warum müssen ständig Leute die Bilder sonstwo hochladen und nutzen nicht die Möglichkeiten des Froums?
Wenn irgendwann mal wieder einer soein Problem hat, möchte er/sie bestimmt auch gerne noch ein Bild sehn,
aber was ist, wenn es dort nicht mehr existiert, wohin es nur verlinkt wurde?

Da hast du natürlich Recht... hab hier die Upload-Funktion genutzt.

Zitat von jaenicke:

Naja, der Unterschied ist, dass du eine Orientation von 120 benutzt und er -900. Mit den gleichen Werten würden wohl auch die selben Ergebnisse herauskommen.

Damit alles sichtbar ist, wäre dann wohl selbst zeichnen sinnvoller, z.B. in eine TPaintBox oder ein eigenes Control...

Den Wert 120 habe ich gewählt da diese Ausrichtung der im Screenshot entsprochen hat.
Bei -900 sieht man dann nichts mehr von der Schrift. Natürlich auch nicht wenn ich die Größe des Feldes ändere.

Ich kann jetzt natürlich ein TStaticText-Feld verwenden (weils jetzt ja klappt), aber ich würde trotzdem gerne wissen wie ich das Problem lösen kann.

[Bummi]

Hm meine letzte Antwort ist verschwunden, vielleicht willst Du folgendes in eine Komponente gießen

[Root2k]

Danke für deine Antwort aber das hilft mir leider nicht weiter.
Das Drehen von Texten ist nicht das eigentliche Problem, sondern dass ein TJvStaticText-Feld scheinbar keine Rotation ermöglicht.
Ich will nur die Properties des Feldes bearbeiten.

Sollte hier eine Drehung wirklich nicht möglich sein, so sollte man dies in den Jedi-Komponenten verbessern.

[jaenicke]

Zitat von Root2k:

Sollte hier eine Drehung wirklich nicht möglich sein, so sollte man dies in den Jedi-Komponenten verbessern.

Dann mach das doch.

[Root2k]

Habe mich mal mit jemand in Verbindung gesetzt, der an den Jedi-komponenten mitentwickelt hat.
Der kennt das Problem schon. Habe also keine Ahnung ob/wann das behoben wird.