Cita:
Empezado por morfeo21
Gracias por su pronta respuesta.
De ser el componente TRichEdit es posible realizar esta operacion. y si no es molestia que propiedad deberia utilizar para este efecto
|
Hola.
Te pongo un ejemplo por que creo que va a ser más fácil de entender. Agregá un componente
TRichEdit (RichEdit1) y desde el
Object Inspector, en su propiedad
Lines escribí la expresión:
Los paréntesis se encuentran en este caso en RichEdit1.Text[5] y RichEdit1.Text[15] por lo que para ponerlos en rojo y negrita basta con hacer:
Código Delphi
[-]
procedure TForm1.btnResaltarParentesisClick(Sender: TObject);
begin
with RichEdit1 do
begin
SelStart:= 4;
SelLength:= 1;
SelAttributes.Color:= clRed; SelAttributes.Style:= [fsBold]; SelStart:= 14;
SelLength:= 1;
SelAttributes.Color:= clRed; SelAttributes.Style:= [fsBold]; end;
end;
Un saludo.