richedit formatieren

[Nisbo]

gesucht im gesamten forum mit: richedit formatieren aber in den 5 ergebnissen nichts gefunden, bei google hatte ich es auch schon mal versucht genau wie in einem anderen board :D

also ich habe ein RichEdit und es geht darum die ausgabe wie syntaxhighlighting zu formatieren, schön wäre es wenn es da schon was fertiges geben würde :D aber ich gebe mich auch erstmal mit einer einfachen variante zufrieden

ich habe bis jetzt diesen code

Delphi-Quellcode:

RichEdit2.Lines.Clear;
RichEdit2.SelAttributes.Color := clgreen;
RichEdit2.Lines.Add('// START - '  + Edit4.Text) ;
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('if(' + dateiname + proficode + '){');
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('    $var_rl = "' + links_rechts + '";') ;
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('    $var_id = "' + Edit1.Text + '";');
RichEdit2.SelAttributes.Color := clblack;
RichEdit2.Lines.Add('}');
RichEdit2.SelAttributes.Color := clgreen;
RichEdit2.Lines.Add('// ENDE - ' + Edit4.Text);

in den variabeln bzw Tedits ist nur text drinn
so wie es jetzt ist kann ich ganze zeilen farbig oder fett schreiben aber nicht einzelne wörter

und genau das ist meine frage wie man z.b. sowas hinbekommt das das if blau ist, der $ zeichenauch blau, die klammern z.b. braun usw

Bsp:
if($name == "test"){

[pacman1986]

SelStart
SelLength

[Die Muhkuh]

Zitat:

Zitat von Nisbo

schön wäre es wenn es da schon was fertiges geben würde :D

SynEdit
SynEdit

[Nisbo]

Zitat:

Zitat von pacman1986

SelStart
SelLength

also ein kleines bsp an einer zeile aus meinem wäre mir da lieber um den zusammenhang besser zu verstehen, denn sowas steht auch in der delphie hilfe und in diesem ominösen demo-editor im demo-verzeichnis ;)

@ Spider

thx ich schau mal

[pacman1986]

Delphi-Quellcode:

 with richedit1 do begin
            Selstart := length(richedit1.Lines[0])+2;    //+2 Für #13 und glaub #10
            Sellength := length(richedit1.Lines[1])+2;   
            SelAttributes.Color := clGreen;
            SelAttributes.Style := [fsBold];
          end;
          richedit1.lines.add('blub')

SelStart setzt den Startpunkt
SelLength die Länge der zu Formatierenden Textes

[Nisbo]

habe es jetzt mit synedit hinbekommen, thx nochmal an Spider, synedit ist echt klasse
habe da jetzt nur noch ein problem und zwar möchte ich noch das dollarzeichen blau darstellen
also nur das dollarzeichen, der rest soll Teal bleiben

Bsp:
$name

momentan ist es noch so
$name

im anhang meine einstellungen

[user0815]

Text im RichEdit mehrfarbig und / oder Formatiert ausgeben.

Delphi-Quellcode:

  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelText := 'Text rot';
  RichEdit1.ClearSelection;

  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelText := 'Text blau';
  RichEdit1.ClearSelection;

  RichEdit1.SelAttributes.Color := clBlack;
  RichEdit1.SelText := 'Text schwarz';
  RichEdit1.ClearSelection;

  RichEdit1.Lines.Append('');

  RichEdit1.SelAttributes.Color := clGreen;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.SelText := 'Text FETT';
  RichEdit1.ClearSelection;

  RichEdit1.SelAttributes.Color := clMaroon;
  RichEdit1.SelAttributes.Style := [fsUnderline];
  RichEdit1.SelText := 'ENDE';
  RichEdit1.ClearSelection;

  RichEdit1.Lines.Append('');

[Die Muhkuh]

Ob ihn das nach vier Jahren noch interessiert? :zwinker:

[sgbSoftwareEntwickler]

Zitat:

Zitat von Die Muhkuh (Beitrag 1015908)

Ob ihn das nach vier Jahren noch interessiert? :zwinker:

Ja, interessiert.

Vielen Dank user0815

[Gonzo123]

dito 8)

auch wenns den Ursprungsposter vermutlich nicht mehr jucken wird - es gibt noch genug andere (RichEdit-)Noobs auf dieser Welt ;)