Bei einem Text in RichEdit bestimmte Wörter formatieren

[Äfan]

Hi,

Wie kann man in einer RichEdit bestimmte Wörter z.B. Dick, kursiv oder andere Farbe machen ?

MFG

Äfan

[gmarts]

Ja, dazu ist das RichEdit da.

Hier ein Beispiel aus der Hilfe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('Diese Textzeile wird rot.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.DefAttributes.Color := clBlue;
  RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

Bzw.: Es gibt auch eine Demo zum RichEdit! Am besten da schauen.

[Äfan]

Gut, nur:

Ich will net das ein farbiger Text hinzugefügt wird sondern, wenn ich auf den Button klicke soll das Wort "Scheiße", das schon in der RichEdit drin ist rot und Fett formatiert werde.

[Ultimator]

Schau dir am besten man pos und posEx an :-)

[Äfan]

Habt ihr kein beispiel ? :cry:

[fkerber]

Hi!

Hast du mal in der Hilfe gesucht?
Pos gibt dir die Stelle zurück an der das Wort steht. Die Länge kennst du auch, wo ist dann das Problem?

Weitere Stichwörter
Selstart,Sellength,SelAttributes


Ciao Frederic

[Äfan]

Ja ich schaue immer erst in der hilfe, nur ich kann mir da keinen Reim drauf bilden. Mit einem Beispiel würde ichs besser verstehen :roll:

[glkgereon]

oh mann :roll:

Delphi-Quellcode:

while pos('Scheisse')>0 do
  begin
  RichEdit1.SelStart:=pos('Scheisse');
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttrbutes.Color:=clred;
  RichEdit1.SelAttrbutes.Style:=[saBold];
  end;

kapiert?

[Dani]

@glkgereon
Das wird zur Endlos-Schleife wenn das Wort auch nur einmal im Text vorkommt.

[Äfan]

Zitat:

oh mann

Ja Sorry ! Kann ja net alles wissen !

Zitat:

@glkgereon
Das wird zur Endlos-Schleife wenn das Wort auch nur einmal im Text vorkommt.

Wenn das überhaupt mal laufen würde:

Zitat:

[Fehler] Unit1.pas(29): Nicht genügend wirkliche Parameter

Das kommt bei RichEdit1.SelStart := pos('Scheisse') und while pos('Scheisse')>0 do

MFG