Colorier du texte dans un RTB

Signaler
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
-
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
-
Salut
Voila, g un RichTextbox
et je voudrai colorier tous les Mots "bonjour" de celui-ci
je sais qu'il fut utiliser
SelAtribute.color
mais je c pas pour que ca y fasse a tous les mots "bonjour" du texte

Merci PAr avance :)
@+

@+
Fabs 8-)

2 réponses

Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
Tu cherches qque chose comme ça il me semble :

procedure TForm1.Button3Click(Sender: TObject);
var
StartPos,FoundAt: LongInt;
begin
with RichEdit1 do
begin
StartPos:=0;
Repeat
FoundAt := FindText('bonjour', StartPos, Length(Text)-StartPos, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length('bonjour');
SelAttributes.Color := clRed;
StartPos := FoundAt+1;
end;
Until FoundAt=-1
end;
end;

--- :sleepy) Nono du Moulin :sleepy) ---
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
oué exactement :)
merci :big)
@+
Fabs 8-)