Das Projekt ist zwar für Lazarus geschrieben sollte aber als "anregung" durch aus reichen.
Es geht hier auch nur um den Soruce.
Ich hänge mal das ganze Projekt dran. Nicht wundern ich habe weiter gemacht und einige neue Proceduren erstellt.
Damit ich z.b. auch Scrollen kann und auch Links unterstützen kann(aber das baue ich noch ein).
Und noch was: Er lies nur Strings ein und löscht alle Zeilenumbrüche normalerweise.
Weil um die musst du dich kümmern mit
hier mal einige beispiele:
<fg="red">Roter Text</fg>
oder
<bg="Blue">Blauer Text</bg>
oder aber auch
<bg="Black" fg="Red"> Roter text auf Schwartzen hintergrund</>
Die Units musst du ALLE anpassen für Delphi. Aber zum reinschauen dürfte es reichen.
Die UColorlist stellt über 600 Farben zuverfügung und einige Funktionen um dadrauf zuzugreifen
Die Tools.pas stellt einige Hilfe Funktionen und Proceduren bereit die gebraucht werden
Die uPlutoDrawText.pas ist die Eigentliche
Unit um die es geht.