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