Colorier du texte dans un RTB
fabiin
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
-
12 juin 2002 à 19:36
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 - 12 juin 2002 à 22:23
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 - 12 juin 2002 à 22:23
A voir également:
- Colorier du texte dans un RTB
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Texte à compléter ✓ - Forum VBA Office (Excel, Word ...)
- Texte au kilomètre - Forum Visual Basic
- Justifier texte photoshop - Forum Graphisme/design
- Html texte défilant en boucle ✓ - Forum Javascript / DHTML
2 réponses
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
12 juin 2002 à 22:12
12 juin 2002 à 22:12
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) ---
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) ---
fabiin
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
12 juin 2002 à 22:23
12 juin 2002 à 22:23
oué exactement :)
merci :big)
@+
Fabs 8-)
merci :big)
@+
Fabs 8-)