Discussion :

[chekkal]

Bonjour à tous ,

Tout est dans le titre, je voudrais ajouter du texte en couleur sans créer une ligne.

[ShaiLeTroll]

Vous avez un début de code ?
Avez-vous trouver un exemple non fonctionnel sur lequel nous baser ?
Par exemple la FAQ : Comment écrire en couleur dans un TRichEdit ?

Donc comme écrit dans la FAQ, il faut utiliser SelAttributes pour modifier un texte déjà existant ente SelStart sur SelLength

les fonctions GetCaretPos et les messages EM_GETFIRSTVISIBLELINE, EM_LINEFROMCHAR, EM_LINEINDEX, EM_POSFROMCHAR... sont utiles pour calculer SelStart

Lancez-vous, c'est extrêmement trivial !

[chekkal]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
richedit1.Text:='NOM ET PRENOM:';
      richedit1.SelAttributes.Color:=clblue;
      richedit1.Text:=r1.text+'JEAN MICHEL JARR';

[blonde]

Tu veux insérer du texte avec une couleur spécifique si j'ai bien compris ?

Tu peux essayer ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
  oldColor: TColor;
begin
  oldColor := RichEdit1.SelAttributes.Color;
 
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelLength := 0;
  RichEdit1.SelText := 'Le texte à ajouter';
 
  RichEdit1.SelAttributes.Color := oldColor;
 
end;

l'insertion aura lieu à la position du curseur

[SergioMaster]

Je suis sûr que JEAN MICHEL aimerait que son nom soit orthographié correctement JARRE

Déjà même si la question est dans le titre, un rappel de la version de Delphi que vous utilisez est toujours un plus.

Sinon, une question en passant car cela fait longtemps que je n'ai pas utilisé Richedit (depuis mon passage à FMX en fait), celui-ci accepte t-il, et interprète t-il des balises HTML ? (à moins que je n'ai pris de mauvaises habitudes avec les composants TMS ).

[chekkal]

BONJOUR,
avec une petite modification sur le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
richedit1.lines.Add('');
      richedit1.seltext:='NOM ET PRENOM:';
      richedit1.SelAttributes.Color:=clblue;
      richedit1.SELText:='JEAN MICHEL JARRE';
     richedit1.SelAttributes.Color:=clblack;
      richedit1.seltext:='NOM ET PRENOM:';
      richedit1.SelAttributes.Color:=clblue;
      richedit1.SELText:='MATOUB LOUNES';

ça marche merci,

pour la version de delphi xe2