|
Registriert seit: 27. Mai 2011
83 Beiträge
Delphi XE2 Professional
|
TStringgrid mehrzeiliger vertikaler Text
14. Sep 2012, 06:31
Hallo,
Ich möchte den Text in einzelnen Zellen vertikal anzeigen. Da der Text teilweise sehr lang ist, möchte ich aber mehrere Zeilen
anzeigen.
Ich fülle die Zellen zum Beispiel so:
Cells[0,0] := 'Hallo' + sLineBreak + 'Hans';
Im OnDraw des Stringgrid gebe ich den Text folgendermaßen aus:
Canvas.TextRect(Rect, Cells[0,0], [tfCenter])
So werden die Zeilenumbrüche dargestellt, jedoch ist der Text horizontal. Wenn ich im OnDraw die Font.Orientation auf 900 setze dann
wird mir der Text zwar vertikal angezeigt jedoch verliere ich die Zeilenumbrüche.
Wie löse ich das am besten?
MfG.
pHL
|