Plusieurs couleurs dans un TRichedit [Résolu]

Signaler
Messages postés
44
Date d'inscription
mercredi 23 mars 2005
Statut
Membre
Dernière intervention
26 avril 2008
-
Messages postés
44
Date d'inscription
mercredi 23 mars 2005
Statut
Membre
Dernière intervention
26 avril 2008
-
Bonjour, j'ai un probleme pour mettre plusieurs couleurs differentes sur une meme ligne dans un Richedit. Cela marche pour la premiere ligne mais ensuite toutes les lignes sont de la meme couleur et ont la meme font (noir,MS sans serif)...Voila mon code actuellement:

procedure TForm1.Button1Click(Sender: TObject);
begin
with richedit1 do
begin
SelAttributes.color:=couleur.Color;
SelAttributes.Name:=font.Font.Name;
SelAttributes.Size:=font.Font.Size;
SelAttributes.Style:=font.Font.Style;
lines.Add('<'+monsn+'>'+edit1.text);
SelStart:=0;
Sellength:=1;
SelAttributes.Name:='MS sans serif';
SelAttributes.size:=11;
SelAttributes.Color:=clblack;
SelStart:=1;
Sellength:=length(monsn);
SelAttributes.Name:='MS sans serif';
SelAttributes.size:=11;
SelAttributes.Color:=clnavy;
SelStart:=length(monsn)+1;
Sellength:=1;
SelAttributes.Name:='MS sans serif';
SelAttributes.size:=11;
SelAttributes.Color:=clblack;
edit1.Text:='';
end;
end;

En esperant avoir été assez clair et que quelqu'un pourra me répondre, merci d'avance.

2 réponses

Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
2
Bonjour,

procedure TForm1.Button1Click(Sender: TObject);
var
 i, NoLigne : integer ;
 DebutLigne : Integer ;
begin
  with richedit1 do
  begin
    // Stockage du numéro de ligne 
    // La sélection du richEdit est une sélection absolue
    // c'est à dire qu'elle ne redémarre pas à chaque nouvelle ligne.
    NoLigne := lines.Add('<'+monsn+'>'+edit1.text );
    DebutLigne := 0 ;
    // Parcours des lignes pour ajouter la taille de chacune des chaines
    // Et obtenir le début "absolu" de la nouvelle chaine ajoutée
    for i := 0 to NoLigne-1 do
    begin
      // Ne pas oublier le CR LF de fin de ligne, d'où le plus 2
      DebutLigne := DebutLigne + Length( Lines[i] ) + 2 ; 
    end ;

    //  <
    SelStart:=DebutLigne;
    Sellength:=1;
    SelAttributes.Name:='MS sans serif';
    SelAttributes.size:=11;
    SelAttributes.Color:=clblack;

    // monsn
    SelStart:=SelStart+1;
    Sellength:=length(monsn);
    SelAttributes.Name:='MS sans serif';
    SelAttributes.size:=11;
    SelAttributes.Color:=clnavy;

    // >
    SelStart:=SelStart+length(monsn);
    Sellength:=1;
    SelAttributes.Name:='MS sans serif';
    SelAttributes.size:=11;
    SelAttributes.Color:=clblack;
    
    // Reste du texte
    SelStart:=SelStart+1;
    Sellength:=Length(Lines[i])-length(monsn)-1;
    SelAttributes.color:=couleur.Color;
    SelAttributes.Name:=font.Font.Name;
    SelAttributes.Size:=font.Font.Size;
    SelAttributes.Style:=font.Font.Style;

    edit1.Text:='';
  end;

end;





Cordialement.



<hr />

L'imbécile prétentieux est celui qui se croit plus intelligent que ceux qui sont aussi bêtes que lui.
Messages postés
44
Date d'inscription
mercredi 23 mars 2005
Statut
Membre
Dernière intervention
26 avril 2008

Merci beaucoup pour cette réponse, je me doutais que ca venait de la sélection mais je ne voyais pas vraiment comment resoudre le problème, les subtilités du Richedit...
Merci encore.