Plusieurs couleurs dans un TRichedit
Résolu
OcHre
Messages postés
44
Date d'inscription
mercredi 23 mars 2005
Statut
Membre
Dernière intervention
26 avril 2008
-
20 déc. 2006 à 13:29
OcHre Messages postés 44 Date d'inscription mercredi 23 mars 2005 Statut Membre Dernière intervention 26 avril 2008 - 20 déc. 2006 à 15:33
OcHre Messages postés 44 Date d'inscription mercredi 23 mars 2005 Statut Membre Dernière intervention 26 avril 2008 - 20 déc. 2006 à 15:33
2 réponses
WhiteHippo
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
3
20 déc. 2006 à 14:32
20 déc. 2006 à 14:32
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.
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.
OcHre
Messages postés
44
Date d'inscription
mercredi 23 mars 2005
Statut
Membre
Dernière intervention
26 avril 2008
20 déc. 2006 à 15:33
20 déc. 2006 à 15:33
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.
Merci encore.
