Thema: Delphi Text drehen

Einzelnen Beitrag anzeigen

Root2k

Registriert seit: 7. Jun 2011
Ort: Ulm
49 Beiträge
 
Delphi XE Enterprise
 
#1

Text drehen

  Alt 11. Jul 2011, 16:28
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.

Geändert von Root2k (11. Jul 2011 um 16:36 Uhr)
  Mit Zitat antworten Zitat