Verschiedene Farben im ListBox-String

[delphi10]

Hi

Ja, gut. Das erreiche ich natürlich auc.
Aber wie auch immer. Ich habe mir jetzt ein Hilfesystem aufgebaut, das genau auf die Bedürfnisse meiner
Anwender zugeschnitten ist. Es ist, zugegeben, sehr propietär.
Meine Ursprüngliche Version habe doch noch auf RichEdit umgestrickt. Geht auch relativ einfach:

Delphi-Quellcode:

//Habe ich irgendwo im Netz gefunden. Wenn jemand weiß, wer der Autor ist, will ich ihn gern erwähnen.
Procedure AddStyledText(s:string; style1,Style2:TFontStyles;c: TColor; var aRtf:TRichEdit);
begin
  artf.SelStart := strlen(pchar(artf.text));
  artf.SelAttributes.Style := style1+style2;
  artf.SelAttributes.Color := c;
  artf.SelText := s;
end;

//Alles vorhergehende ist wie in der ersten Version
If (Pos('§',tASt) >= 1) then
begin  //Für fett, unterstrichen und Blau
  Delete(tASt,Pos('§',tASt),1);
  Insert('>',tASt,1);  //Muß nicht sein, verdeutlicht aber, dass weitere Info's verfügbar sind
  AddStyledText(tASt+' ',[fsbold],[fsunderline],clBlue,Form10.Richedit1);
end;
If (Pos('#',tASt) >= 1) then
begin  //Für fett und Blau
  Delete(tASt,Pos('#',tASt),1); //Steuerzeichen wieder löschen  
  AddStyledText(tASt+' ',[fsbold],[],clBlue,Form10.Richedit1);
end;
//Alles folgende ist wie in der ersten Version

Das was ich wollte und wie ich es realisiert habe, habe ich als JPG und TXT mit hochgeladen.
Hilfesystem und Hilfetext(Steuer)Datei sind so konstruiert, dass der Anwender den Umfang und Inhalt
der Textdatei beliebig erweitern kann, ohne das ich das Programm ändern müßte.
Möglicherweise ist das mit BBCode einfacher zu realisieren, ich werde mal versuchen da einzusteigen.
cu delphi10

ach so, bevor sich jemand berufen fühlt - für Uli Stein habe ich eine Lizenz.

Edit: Ich krieg die Textdatei nicht als Anlage dran. Nochmal versuchen