Forum: Sonstige Fragen zu Delphi
Delphi
by Dani,
20. Nov 2004
So, ich glaube, es funktioniert jetzt. TCanvas.TextWidth scheint Zeilenumbrüche zu ignorieren, diese werden aber in "sWord" mitgespeichert.
Folgender grausamer Code ist nicht zum Nachmachen empfohlen :mrgreen:
function TextWidthEx(aCanvas: TCanvas; sText: String): Integer;
var sList: TStringList;
arr: array of Integer;
i: Integer;
begin
Result := -1;
Forum: Sonstige Fragen zu Delphi
Delphi
by Dani,
19. Nov 2004
Nein, das geht nicht, da die Buchstaben unterschiedliche Breiten haben können :? . Ausserdem sollten Wörter, die nicht in eine Zeile passen, getrennt werden (ohne irgendwelche Trennungsregeln, einfach nur einen Zeilenumbruch einfügen)
Forum: Sonstige Fragen zu Delphi
Delphi
by Dani,
19. Nov 2004
Gibt es keine Möglichkeit, an den formatierten Text (String) zu kommen?
Edit: Merke gerade, dass DrawText den Text ziemlich besch...eiden formatiert...
Forum: Sonstige Fragen zu Delphi
Delphi
by Dani,
19. Nov 2004
Hallo,
bin am verzweifeln. Seit Wochen versuche ich eine Funktion zu schreiben, die mir einen Text so formatiert, dass man diesen Text dann Zeile für Zeile auf ein Bitmap zeichnen kann. Aber es will nicht funktionieren :(
Entweder es wird ein Wort zu viel in die Zeile geschrieben oder es sind zu viele Zeilenumbrüche darin, ich blicke den eigenen Code nicht mehr durch... besonders elegant...