RichEdit Wort finden, Farbig und Fett markieren

[Nils_13]

Zitat von Ultimator:

Zitat von Nils_13:

Die Beschimpfung ignoriere ich jetzt mal einfach. Danke, dass du mir eine lustige Minute gegönnt hast.

Hm. Wenn du das, was du als Beschimpfung empfindest, ignorierst, wieso sollte dann mein ansonsten sachliches Posting lustig sein?

Ich habe Delphi 7 Personal mit keinen zusätzlich installierten Komponenten, also müsste das bei dir auch vorhanden sein.

//edit: Oha, da hat jemand oben editiert.

Ich benutze weil alle anderen Delphi-Versionen zu langsam sind auf einfach Delphi 7 Personal. Ist aber irgendwie nicht das selbe

Zitat von jim_raynor:

Zitat von Nils_13:

Die Beschimpfung ignoriere ich jetzt mal einfach.

Das ist ein Beispiel mit dem FindDialog. Aber du kannst sehr wohl auch FindText ohne FindDialog einsetzen. Einfach statt FindDialog1.FindText deinen eigenen Text nehmen ...

Also in etwa so ?

Delphi-Quellcode:

  if  FindDialog1.FindText = 'START' then
  begin
    with Memo1.SelAttributes do
    begin
      Color := clRed;
      Height := Height + 5;
    end;
  end;

oder so ?

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
    with Memo1.SelAttributes do
    begin
      Color := clRed;
      Height := Height + 5;
    end;
end;