Discussion :

[JoseF]

Bonjour,

Sans doute simple mais je ne trouve pas. je débute avec richedit et sur les FAQs je ne trouve pas trop ce que je veux faire.

Je lis un richedit1 et je l'affiche dans un richedit2 lettre par lettre en voulant mettre en évidence un mot.

voici un bout de code mais je pense qu'il y a bcp mieux. car là (forcément... allez vous me dire...) il y a des retours à la ligne entre chaque lettre.. et question optimisation c'est sans doute pas terrible.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
  var i:integer;
begin
  for i:=1 to length(richedit1.text) do
  begin
    if (i>=3) and (i<=6) then
      RichEdit2.SelAttributes.Color := clRed
      else
      RichEdit2.SelAttributes.Color := clBlack;
 
    Richedit2.Lines.add(richedit1.text[i]);
  end;
end;

merci

[J-P-B]

Salut

Code :

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

Richedit2.Lines.add(richedit1.text[i]);

le Add ajoute forcément une ligne (c'est un TStrings). si tu veux concaténer à la dernière ligne, il faut écrire un truc du style

Code :

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

richedit2.Lines[richedit2.lines.count - 1] := richedit2.Lines[richedit2.lines.count - 1] + richedit1.text[i]

On doit pouvoir en effet optimiser la recherche des mots ...
JP

[J-P-B]

C'est marrant la concaténation marche bien, mais c'est la coloration qui marche plus ... on dirait que la modification de lignes existante n'utilise pas le SelAttributes ... c'est navrant
je me rappelle que je m'y était cassé les dents à une époque !

[SergioMaster]

C'est marrant la concaténation marche bien, mais c'est la coloration qui marche plus ... on dirait que la modification de lignes existante n'utilise pas le SelAttributes ... c'est navrant
je me rappelle que je m'y était cassé les dents à une époque !

effectivement ça ne marche qu'a la ligne

pour travailler sur les mots regarde par ici http://www.developpez.net/forums/sho...18&postcount=6

[Gilbert Geyer]

T'es pas le seul à t'être cassé les dents là-dessus.
En fait la réponse est inscrite dans le libellé même de SelAttributes : Toute modification apportée aux proprétés (Color, etc) n'ont d'effet que sur la partie de texte sélectionnée et cette partie de texte sélectionnée se réduit en l'absence de sélection au caret ce qui a comme conséquences "qu'un coup ça marche et un coup ça marche pas" selon qu'il y a ou pas sélection et selon la position du caret.

Pour éviter ceci il est préférable d'utiliser des séquences du type :

Code :

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

1
2
3
4
5
6
7
8
9
10
      var selFin : integer;
      ...
      RichEdit2.SelAttributes.Color := clRed;
      Richedit2.Lines.add('Mon titre de paragraphe');
      selFin:=Richedit2.SelStart; //récupère la position du caret à la fin du Add
      //Et si je veux que le rouge ne s'applique que sur le mot 'titre' de 'Mon titre de paragraphe' :
      SelFin:=selFin-length(' de paragraphe');
      Richedit2.SelStart:=selFin-length('titre');
      Richedit2.SelLength:=SelFin-Richedit2.SelStart; // à ce stade le mot 'titre' est sélectionné et le rouge s'y applique

:
... bien entendu on peut transformer ce bout de code par une petite procédure réutilisable du type :
procedure redAjouterEnEvidence(red : tRichEdit; ligne : string; motEnEvidence : shortString; color : TColor);
A+