BBCode-Parser für TRichEdit

[s.h.a.r.k]

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

// edit

Zitat:

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?! :cyclops: Hab mich bisher immer gefragt, warum diese so heißt...

[danu1104]

Zitat:

Zitat von s.h.a.r.k

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

// edit

Zitat:

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?! :cyclops: 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:

Zitat von s.h.a.r.k

Diese Abkürzung ist nicht dein Ernst?! :cyclops: 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. :angel2:

[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. :stupid:

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. :-D

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!

Delphi-Quellcode:

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

[himitsu]

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

Zitat:

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!

Delphi-Quellcode:

 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. :zwinker:
Nimm besser dieses,

Delphi-Quellcode:

{$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:

Delphi-Quellcode:

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.