Text farbig darstellen

[Delphi.Narium]

Kennst Du SynEdit? https://github.com/SynEdit/SynEdit

Kennt die Farbhervorhebung für viele Programmiersprachen ..., die Farbgestaltung ist vielfältig anpassbar.

Kann u. a. nach HTML, RTF, Tex exportieren, dabei bleibt dann die Farbgestaltung erhalten. Der Export sieht so aus, wie im Editor. Führende Leerzeichen ... bleiben erhalten.

Für eigene "Sprachen" kann man auch eigene Highlighter bauen.

[stahli]

Vielen Dank. Ihr hattet das schon richtig verstanden.

Ich habe mir aber doch lieber einen eigenen Formatierer gebaut, da ich so flexibler bin und später auch formatierte Darstellungen auf einem Canvas leichter realisieren kann.

Anbei mal als Anregung ein paar Codeschnipsel, falls das jemandem hilft.
Aktuell wird erst mal nur BackColor übernommen.
Ich werde das nach und nach weiter ausbauen. Falls Interesse besteht, werfe ich einen späteren Stand auch gern hier rein.

Delphi-Quellcode:

uses
  ..., Vcl.ComCtrls, Winapi.RichEdit;

procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
  Format: TCHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := CFM_BACKCOLOR;
    crBackColor := AColor;
    RichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
  end;
end;

procedure RichFormat(const aRichEdit: TRichEdit);
var
  SearchStartPos, SearchLength: Integer;
  P1, P2, PE: Integer;
  P_, C_: Integer;
  sFormat: string;
  lSL: TStringList;
  lS: string;
  lColor: TColor;
begin
  SearchStartPos := 0;
  SearchLength := (Length(aRichEdit.Text) - SearchStartPos);
  aRichEdit.Lines.BeginUpdate;
  repeat
    sFormat := '';
    C_ := 0;
    P1 := aRichEdit.FindText('[RTF ', SearchStartPos, SearchLength, [stMatchCase]);
    if (P1 >= 0) then
    begin
      PE := aRichEdit.FindText(']', SearchStartPos, SearchLength, [stMatchCase]);
      aRichEdit.SelStart := P1;
      aRichEdit.SelLength := (PE - P1 + 1);
      sFormat := aRichEdit.SelText;
      aRichEdit.ClearSelection;
      SearchStartPos := P1;
      SearchLength := (Length(aRichEdit.Text) - SearchStartPos);
      repeat
        P2 := aRichEdit.FindText('[RTF/]', SearchStartPos, SearchLength, [stMatchCase]);
        if (P2 > P1) then
        begin
          P_ := aRichEdit.FindText('[RTF ', SearchStartPos, SearchLength, [stMatchCase]);
          if (P_ >= 0) and (P_ < P2) then
          begin
            Inc(C_);
            SearchStartPos := (P_ + 1);
            SearchLength := (Length(aRichEdit.Text) - SearchStartPos);
          end
          else
          begin
            Dec(C_);
            SearchStartPos := (P2 + 1);
            SearchLength := (Length(aRichEdit.Text) - SearchStartPos);
          end;
        end;
      until (C_ < 0);
      if (P2 > P1) then
      begin
        aRichEdit.SelStart := P2;
        aRichEdit.SelLength := (Length('[RTF/]'));
        aRichEdit.ClearSelection;
        aRichEdit.SelStart := P1;
        aRichEdit.SelLength := (P2 - P1);

        sFormat := StringReplace(sFormat, '[RTL ', '', [rfReplaceAll]);
        sFormat := StringReplace(sFormat, ']', '', [rfReplaceAll]);
        sFormat := StringReplace(sFormat, '; ', #13#10, [rfReplaceAll]);
        lSL := TStringList.Create;
        lSL.Text := sFormat;
        lS := lSL.Values['BackColor'];
        lColor := StrToInt(lS);
        FreeAndNil(lSL);

        RE_SetSelBgColor(aRichEdit, lColor);
        SearchStartPos := P1;
        SearchLength := (Length(aRichEdit.Text) - SearchStartPos);
      end
      else
        Break;
    end;
  until (P1 < 0);
  aRichEdit.Lines.EndUpdate;
end;

//

  Text := '-> [RTF FontName=Arial; FontColor=$0000ff; BackColor=$ff7777]hellblauer [RTF FontName=Arial; FontColor=$0000ff; BackColor=$7777ff]und dazwischen hellroter[RTF/] Text[RTF/]';
  RichEdit.SelText := Text;
  RichFormat(RichEdit);

[Uwe Raabe]

Funktioniert das auch z.B. bei 3-facher Schachtelungstiefe?

[stahli]

Ja

Delphi-Quellcode:

 Text := '-> [RTF FontName=Arial; FontColor=$0000ff; BackColor=$ff7777]hellblauer [RTF FontName=Arial; FontColor=$0000ff; BackColor=$7777ff]'
    + 'und dazwischen [RTF FontName=Arial; FontColor=$0000ff; BackColor=$77ffff]gelb-[RTF/] hellroter[RTF/] [RTF FontName=Arial; FontColor=$0000ff; BackColor=$77ffff](nochmal gelb)[RTF/] Text[RTF/]';

[Ghostwalker]

Wie Fukiszo schon sagte, würde auch ich das lieber über HTML/CSS lösen. Damit bist einfach flexibler.

Leerzeichen kannst du einfach mit &nbsp; ersetzen. Zeilenumbrüche einfach mit einem <br/> und jut.

Außerdem hättes du die Möglichkeit (spätere Erweiterung), das du über CSS-Klassen das ganze von "Außen" beinflussen kannst, ohne den Code anzufassen.

[Fukiszo]

Also ich hatte die aufgabe doch falsch verstanden.
Ich dacht dein endresultat soll deine "Text:=" konstante werden und nicht andersrum.
Also das Text reinkommt und du auf bestimmte wörter/symbole reagiesrt um sie zu färben. (wie SynEdit o.ä.)

Aber solange du happy bist bin ich es auch

[stahli]

Ach so, dann hatte ich falsch verstanden, dass Du mich richtig verstanden hattest.

So bin ich jetzt sehr zufrieden mit dem Ergebnis.

HTML wäre auch gegangen, aber so ist es für mich übersichtlicher.
Ich kann selbst benötigte Tags definieren und dann die entsprechenden Abschnitte über das RichEdit formatieren lassen (oder entsprechend in anderen Szenarien in anderer Form).

Keine Ahnung, warum RTF so kompliziert gestaltet ist. Das erscheint mir unnötig unübersichtlich.
Aber wenn das das alles intern im RichEdit abgewickelt wird, kann es mir egal sein.

Eine HTML-Datei mit Formatierungen zu erzeugen ist relativ einfach möglich, aber eine RTF erscheint mir zu komplex dafür.

Für mich passt es jetzt so super und der Aufwand ist ja auch nicht so hoch gewesen.

[himitsu]

RTF manuell ist nicht unbedingt empfehlenswert, aber wie bei HTML/DOC/usw. kann man auch Komponenten verwenden, welche als Schnittstelle dienen.

z.B. ganz billig ein TRichEdit, darüber den Text formatieren und dann den RTF-Code auslesen,
oder ein DOM wie bei JSON/XML/HTML, um darüber den HTML-Code zu generieren.