BBCode-Parser für TRichEdit

[Codewalker]

Hallo zusammen.

Ich möchte hier gerne eine kleine Unit/Bibliothek/Klassemsammlung vorstellen, die im Rahmen eines Projektes entstanden ist. Hintergrund war, dass für ein Tool ein vernünftiges Logbuch mit Formatierung implementiert werden sollte. Wer sich schonmal mit TRichEdit und Formatierungen rumgeschlagen hat, wird wissen wie nervtötend das sein kann. Bei einem Glas Wein und der Idee, den einfach BBCode dafür nutzen zu wollen ist dann mein BBCodeToRichEdit entstanden.

Das ganze Funktioniert so:
Für jeden BBCode entwickelt man eine kleine Klasse. Aufwand sind ~ 20 Zeilen, von denen aber ~15 per Copy&Paste übernommen werden können. Eigene BBCodes sind so in wenigen Minuten umgesetzt. Ich habe die Klassen mittlerweile ein gutes Stück weiterentwickelt und so viele Formatierungen wie ich gefunden habe implementiert. Da das alles bisher auf der JVCL aufsetzt (die meisten Formatierungen bringt das normale TRichEdit nicht direkt mit), muss außerdem die JVCL installiert sein. Für alle, die keine JVCL nutzen möchten sei auf Beitrag #14 von himitus verwiesen.

Letzte Änderungen:

• Generics werden nur noch verwendet, wenn Delphi 2009 zur Verfügung steht, ansonsten wird eine TObjectList verwendet
• Verschachtelte Tags und Tags mit gleichen Anfängen funktionieren jetzt auch korrekt
• Deutlich mehr Tags werden unterstützt
• Beispielprogramm erweitert
• Einfache Tags ohne CloseTag werden jetzt auch unterstützt

Was noch fehlt:

• Andere Arten von Aufzählungen
• Gliederungsebenen bei Aufzählungen
• Einbinden von Grafiken
• Tabellen
• neue, vollständige Dokumentation

Bin wie immer auf Meinungen und Kommentare gespannt.

Grüße

[s.h.a.r.k]

Ohne genaue Angaben kann dir keiner helfen. Wir können im Moment nur raten...

// edit

Zitat von himitsu:

Ich denk mir mal, das soll womöglich die mißlungenste Abkürzung für Containers darstellen. Grübelnd...

Diese Abkürzung ist nicht dein Ernst?! Hab mich bisher immer gefragt, warum diese so heißt...

[danu1104]

Zitat von s.h.a.r.k:

Ohne genaue Angaben kann dir keiner helfen. Wir können im Moment nur raten...

// edit

Zitat von himitsu:

Ich denk mir mal, das soll womöglich die mißlungenste Abkürzung für Containers darstellen. Grübelnd...

Diese Abkürzung ist nicht dein Ernst?! Hab mich bisher immer gefragt, warum diese so heißt...

Ich habe die units Runtergeladen und wie in der Demo eingebunden, dazu habe ich mir ganz einfach die Main.pas angeschaut da ich das Project nicht öffnen kann (warum auch immer)


So wie du bereits in den Anderen Posts entnehmen kannst habe ich die Unit nun geändert und bekomme nicht mehr den fehler wie o.g.
So, jetzt bekomme ich aber andere Fehler und zwar:


[delphi][DCC Fehler] LibBB.pas(82): E2003 Undefinierter Bezeichner: 'TKlasse'
[DCC Fehler] LibBB.pas(97): E2003 Undefinierter Bezeichner: 'TCustomBBCode'
[DCC Fehler] LibBB.pas(112): E2003 Undefinierter Bezeichner: 'TCustomBBCode'
[DCC Fehler] Unit1.pas(8): F2063 Verwendete Unit 'LibBB.pas' kann nicht compiliert werden[/delphi

[Codewalker]

klingt alles sehr merkwürdig. Ich schaue mir das heute nachmittag an, vorher werde ich da leider nicht zu kommen.

[himitsu]

Ja, hier hat einer vergessen zu sagen, daß hierfür die JEDI installiert sein muß, da vieles auf das TJvRichEdit ausgelegt wurde und nicht nur, wie erwähnt auf das TRichEdit.

Außerdem hat derjenige wohl auch nicht die Codeteile für die Abwärtskompatibilität getestet.


Hier mal die Codes ohne TJvRichEdit.
Einige BBCodes, z.B. für die speziellen Unterstreichungen und die Hintergrundfarbe konnte ich jetzt nicht übersetzen und hab sie weggelassen.

Zitat von s.h.a.r.k:

Diese Abkürzung ist nicht dein Ernst?! Hab mich bisher immer gefragt, warum diese so heißt...

TObjectList ist zumindestens ein Container für Objekte und diese Unit ist voll mit sowas ... also das wäre schon eine gute Erklärung.

[Matze]

Ne, ich erhalte die gleichen Fehler.

Wenn ich das so ändere, parst es bei mir BBCodes. Ob die Verschachtelung etc. noch funktioniert, kann ich dir aber nicht sagen.

Original-Code:

Delphi-Quellcode:

Result := TKlasse(inherited Items[Index]); // LibBB.pas, Zeile 82
Result := inherited TCustomBBCode(First()); // LibBB.pas, Zeile 97
Result := inherited TCustomBBCode(Last()); // LibBB.pas, Zeile 112

Die Änderungen:

Delphi-Quellcode:

Result := TCustomBBCode(inherited Items[Index]); // LibBB.pas, Zeile 82
Result := TCustomBBCode(First()); // LibBB.pas, Zeile 97
Result := TCustomBBCode(Last()); // LibBB.pas, Zeile 112

Woher "TKlasse" kommt, weiß ich auch nicht.

Edit: Ok meinen Beitrag dürft ihr nun ignorieren. Der von himi ist sicher inhaltlich besser. *g*

[himitsu]

Wenn ich mich noch recht erinner, dann hab ich es so geändert.

Delphi-Quellcode:

Result := TCustomBBCode(inherited Items[Index]); // LibBB.pas, Zeile 82
Result := TCustomBBCode(inherited First()); // LibBB.pas, Zeile 97
Result := TCustomBBCode(inherited Last()); // LibBB.pas, Zeile 112

[danu1104]

Mit JEDI wird doch JCL / JVCL gemeint oder ? Wenn ja das ist eigentlich das erste was ich installieren für delphi

Der geändete code geht auch von dir mir fehlt nur das [ b ] [ /b ] :/

Edit:

Mein fehler, habe es vergessen dabei zu schreiben! Danke @all functioniert wunderbar!

 BBCodes := GenerateStdBBCodes([bbBold,bbFontColor]);

[himitsu]

Ja, JEDI = JCL (JEDI Code Library) und JVCL (JEDI Visual Code Library)

Zitat von danu1104:

Der geändete code geht auch von dir mir fehlt nur das [ b ] [ /b ] :/

Edit:

Mein fehler, habe es vergessen dabei zu schreiben! Danke @all functioniert wunderbar!

 BBCodes := GenerateStdBBCodes([bbBold,bbFontColor]);

Es fehlt "nur" das Superset, Einiges vom Underline (Style und Color) und die Backgroundcolor.


@Codewalker:
Wenn du keinen alten Compiler hast, dann ändere einfach mal die Deklarationen von {$IFDEF VER120} z.B. in {$IFDEF VER120xx}, solange du es testest, dann werden auch in deinem neuen Delphi die alten Codes zumindestens auf die "Rechtschreibung" getestet.

Und vielleicht ist es nicht schlecht, wenn in die Units sowas wie {$DEFINE UseJEDI} {$IFDEF UseJEDI} aufgenommen wird, womit der Code dann für das TJyRichEdit und etwas abgespeckt auch für's TRichEdit liefe.

PS: {$IFDEF VER120] ist nicht so praktisch, dann in Delphi 2010 (VER140) würden keine Generics verwendet.
Nimm besser dieses,
{$IF CompilerVersion >= 12} {$IFEND} oder verwende wenigstens die Versions-.INC, welche den JEDI doch irgendwo beiliegt, da gibt es sowas wie {$IFDEF Delphi2009Up} oder wie es da heißt.

[danu1104]

Kleiner verbesserungs vorschlag:

RichEdit.SelAttributes.Color := StringToColor('cl'+Data.DynamicValue); statt dieses:

Delphi-Quellcode:

RichEdit.SelAttributes.Color := StringToColor(Data.DynamicValue); 
{Hier meckert er wenn ich nur [ COLOR=red ] schreibe}

da sonst [ COLOR=clred ] statt [ COLOR=red ] steht, und nicht viele foren was damit anfangen können. Aber ansonsten ein fettes Lob.

[himitsu]

Wenn, dann bitte diese Funktion verwenden.

Delphi-Quellcode:

function MyStringToColor(const S: string): TColor;
var
  LColor: LongInt;
begin
  if IdentToColor('cl' + S, LColor) or IdentToColor(S, LColor) then
    Result := TColor(LColor)
  else
    Result := TColor(StrToInt(S));
end;

Denn sonst kann man nur noch die Farbkonstanten und keine direkten Farbwerte (aka [color=$0000FF] ) mehr verwenden.