SoloCodigo
Programación General => C/C++ => C++ Builder => Mensaje iniciado por: scarlet en Viernes 5 de Mayo de 2006, 04:16
-
Hola Comunidad.
La verdad es que estoy haciendo un pequeño interprete para un proyecto de mi carrera y me esta dando problemas la parte en qeu tengo que escribir las palabras reservadas en negritas en Pbjeto RichEdit porque no tengo ideas de como hacerlo.
si alguien me pudiera dar una pista.
solamente he logrado poner una letra de otro color de esta forma
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
if (Key == 'a')
{
RichEdit1->SelAttributes->Color = clRed;
}
else
{
RichEdit1->SelAttributes->Color = clBlack;
}
}
gracias de antemano
-
Prueba a buscar en la red un componente fastscript freeware
-
Bueno ya lo hice simplemente habia que hacerle un pequeño trabajo al texto
void TForm1::ResaltarPalabra(AnsiString Palabra)
{
AnsiString Texto;
int Posicion=2;
Texto = RichEdit1->Lines->Text;
while ( Posicion >0 )
{
Posicion = AnsiPos(Palabra, Texto);
RichEdit1->SelStart = Posicion -1;
RichEdit1->SelLength = Palabra.Length();
CurrText()->Style = CurrText()->Style << fsBold;
Texto[Posicion+1] = ' ';
Posicion = AnsiPos(Palabra,Texto);
}
}
:kicking:
Saludos Comunidad