Wordwrap umbruch

[Delphi.Narium]

Nur so 'ne Idee zum Weiterforschen:

Ein TMemo nehmen, dessen Breite so angepasst wird, dass es die für die Label.Caption benötigte Breite bekommt. Schrifttyp, -größe ... dem Label anpassen. WordWrap = True.

Nun Label.Caption Memo.Text zuweisen.

Das Memo bricht nun den Text selbst um. Wenn Memo.Lines.Count nun größer 2 wird, dann die ersten beiden Zeilen aus dem Memo nehmen und Ellipsis Character dranhängen, Label.Caption zuweisen.

Dadurch wird dann auch die (je nach Schrifttyp) unterschiedliche Breite einzelner Buchstaben berücksichtigt und man muss da keine eigene Berechnungsroutine finden / entwickeln.

Das Memo muss / kann ja "irgendwo unsichtbar" im Programm "rumhängen".

Zugegeben: Elegant scheint mir das erstmal so noch nicht, aber eventuell kannst Du dadraus ja was machen.

[EWeiss]

Jo wäre eine alternative. Danke.
Wenn es mit den Berechnungen zu kompliziert wird genau das wollte ich mir mit dem Label ersparen
das ganze hin und her Splitten, RightTrim, Umbrechen, Font zuweisen usw..

gruss

[DeddyH]

Ließe sich da nichts mit DrawText und den entsprechenden Formaten machen?

[EWeiss]

Zitat von DeddyH:

Ließe sich da nichts mit DrawText und den entsprechenden Formaten machen?

Ich verwende ja DrawText GDI+

Delphi-Quellcode:

      gSprSession.GD_DrawTextToCtrlEx(HSprSession, PWideChar(Trim(MainClass.DeviceName)), x, y,
        ParentWidth, bh, gSprSession.GD_ARGB(255, 255, 255, 255), PWideChar(FontName), nil, 13,
        ID, GS_VISIBLE, 0, Ord(StringAlignmentCenter));

Ich möchte aber diese Funktion nicht auf WordWrap erweitern deshalb muss der String vorbereitet werden.
Er wird dann nach setzen aller benötigten Formate mit GdipDrawString gezeichnet.

gruss

[Schokohase]

*nix*

[EWeiss]

Zitat von Schokohase:

Aber sollte dieses GDI+ DrawString nicht genau alles von Haus aus bieten?

Wrapping, Ellipsis?

Laut Dokumentation soll die das machen können.

Weil ich es nicht möchte..

Zitat:

Ich möchte aber diese Funktion nicht auf WordWrap erweitern deshalb muss der String vorbereitet werden.

Das es von Haus aus geht ist mir bekannt.

Oder warum glaubst du habe ich extra ein Format dafür addiert?

Delphi-Quellcode:

      else if UseStrFormat = GD_Ellipsis then
      begin
        GdipCheck(GdipCreateStringFormat(0, 0, strformat));
        GdipCheck(GdipSetStringFormatFlags(strformat, StringFormatFlagsNoWrap));
        GdipCheck(GdipSetStringFormatAlign(strformat, StringAlignmentNear));
        GdipCheck(GdipSetStringFormatLineAlign(strformat, StringAlignmentNear));
        GdipCheck(GdipSetStringFormatTrimming(strformat, StringTrimmingEllipsisCharacter));
      end

gruss

[Schokohase]

*nix*

[EWeiss]

Zitat:

ich entschuldige mich dafür in aller Form.
Hast du nicht geschrieben

Nicht nötig.. Aber ich sagte ja vorher schon und ja habe ich geschrieben!

Zitat:

Ich möchte aber diese Funktion nicht auf WordWrap erweitern deshalb muss der String vorbereitet werden.

Das Problem ist ganz einfach.
Ich habe mehr als 50 Anwendungen mit meiner Library geschrieben und möchte jetzt nicht nur wegen dieser einzigen Konstellation
die Library anpassen und alle Programme daraufhin umschreiben müssen.

Wenn ich den String vorbereite sollte es auch so ohne jegliche Änderung meiner Funktion möglich sein.

gruss