Astuces
- Divers - Mettre
la moitié d'un texte d'un RichEdit en couleur en Delphi
Ajouter un composant
TButton et TRichEdit.
procedure
TForm1.Button1Click(Sender: TObject); begin
RichEdit1.Selstart:=0;
RichEdit1.SelLength:=Length(RichEdit1.Text) div
2;
RichEdit1.SelAttributes.Color:=clRed; end;