Ver Mensaje Individual
  #2  
Antiguo 30-09-2008
Avatar de DarkMan
DarkMan DarkMan is offline
Miembro
 
Registrado: jul 2006
Posts: 102
Reputación: 18
DarkMan Va por buen camino
En un richedit existe una propiedad llamada "SelAttributes" con la que puedes alterar la fuente y otras opciones del texto seleccionado.
Para seleccionar un texto por código puedes usar las propiedades SelStart y SelLength en las que se indica el caracter de comienzo y la longitud de caracteres seleccionados, respectivamente.
Para que lo veas con un ejemplo, mete un richedit en un form nuevo y un botón:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.Text:='Hola esto es una prueba'+#13+
                 'en la que se va a alterar el color del texto';

 {Seleccionamos 'esto es una' = posicion 5}
 RichEdit1.SelStart:= Pos('esto es una', RichEdit1.Text)-1;
 RichEdit1.SelLength:= Length('esto es una');

 {Alteramos su fuente}
 RichEdit1.SelAttributes.Color:= CLBlue;
 RichEdit1.SelAttributes.Name:= 'Impact';

 {Quitamos selección}
 RichEdit1.SelLength:=0;
end;
__________________
"La recompensa de una buena acción está en haberla hecho"
Responder Con Cita