Text farbig darstellen

[stahli]

Ich erzeuge Quelltext und will einzelne Abschnitte zur besseren Übersicht farbig markieren.
Vermutlich nur mit Hintergrundfarben, vielleicht aber auch mal mit kompletten Fonts.

Mit HTML-Styles und Darstellung im TWebBrowser kriege ich das schon hin, aber das ist mit den Zeilenumbrüchen und führenden Leerzeilen nicht so optimal.

Jetzt dachte ich an TRichEdit. Mit "Einfach mal so Farbtags in den Text setzen" wird das aber wohl nichts.
Das Dateiformat erschließt sich mir nicht wirklich.

Mein Text sähe - mit eigenen RTF-Tags - so aus:

Code:

(***************************)
(* Test-Unit for Optimizer *)
(***************************)

unit Unit2;

interface

uses
  System.Classes, Vcl.Graphics, System.Types, System.UITypes;

const
  aConst = 100;

type

  IIntf1 = interface;
[RTF FontName=arial; fcolor=#000000; bcolor: #ffffff"]  TClass1 = class;[RTF/]

  IIntf1 = interface
    procedure Execute(NewVal: String); virtual;
    function TestFunc(var Val1: Integer): Boolean;
    prop PropString: string;
    prop PropInteger: Integer rf;
    prop PropBoolean: Boolean v ws vi;
    prop PropByte: Byte s;
    prop PropWord: Word c w rf;
    prop PropString2: string c vi;
  end;

[RTF FontName=arial; fcolor=#000000; bcolor: #ffffff"]  TClass1 = class(TInterfacedObject, IIntf1)
  private
[RTF FontName=Courier New; fcolor=#ff0000; bcolor: #ffffff"]    procedure PrivProc; virtual;  [RTF/]
  public
    constructor Create; virtual;
    destructor Destroy; override;
    prop XXX: string;
  end;
[RTF/]
implementation

end.

(***************************)
(* Test Unit for Optimizer *)
(***************************)

Der Text muss also verschachtelte Formatierungsanweisungen enthalten.
Das geht nicht anders, da der Gesamttext dynamisch blockweise erzeugt wird.

Ich würde also nochmal einen Parser bauen, der die Formatierungen heraussucht, dann das Ende zum passenden Anfang (also eingebette Blöcke überspringt), die Tags löscht und MyRichEdit.SelText den Font zuweist. Dann das Gleiche für die eingebetteten und nächsten Blöcke.

Gibt es da vielleicht eine einfachere/fertige Lösung?


Oder ist doch HTML und z.B. Leerzeichenwandlung in

Code:

&nbsp

die bessere Lösung? Plaintext bräuchte ich aber dann auch.