So wie du eine GetDigitWidth()-Funktion hast solltest du auch eine GetTextWidth()-Funktion erstellen.
Ausserdem willst du vielleicht ja auch mal Buchstaben darstellen; also nicht nur Digits.
Delphi-Quellcode:
function GetCharWidth(c:Char):Integer;
function GetTextWidth(const s:string; spacing:integer=0):Integer;
procedure DisplayText(const s:string; p:TPoint; spacing:integer=0);
Der Parameter "spacing" ist der Zeichenabstand in Pixel.
(könnte man auch weglassen, denn man kann die zusätzliche Breite auch aus so ausrechnen (AnzahlZeichen-1)*spacing = Totalspacing))
Der maximale Wert für "spacing" sollte nicht mehr als 60% der Buchstabenhöhe betragen; ansonsten entsteht ein S p e r r t e x t.
Ein einfacher Algorithmus wäre mit dem maximalen spacing zu beginnen und zu prüfen, ob der Text in die vorgesehene Breite passt und ausserdem ein Rand links+rechts von mindestens 4 * spacing übrig bleibt.
Falls zu wenig Rand übrig dann spacing verkleinern und erneut rechnen.
Wichtig sind auf jeden Fall die Funktionen von oben, denn erst wenn man so nützliche Hilfsfunktionen hat kann man sich auch den Algorithmus stürzen.
Zitat
Baum-Darstellung
