| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Claudio N. Lt JG

Registrado: 24 Sep 2002Mensajes: 53Ubicación: CHILE
|
Publicado: Jue 14 Nov, 2002 12:40 pm Asunto: Editor Bàsico de SQL |
|
|
que tal amigos, estoy haciendo una aplicacion en la cual tengo un modulo de SQL, mi pregunta es la siguiente, si tengo un RichEdit, ¿le puedo cambiar el color a ciertas palabras "reservadas", mientras voy escribiendo y como? si es posible Grax a todos.-  |
|
| Volver arriba |
|
 |
_Leo Site Admin

Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
|
| Volver arriba |
|
 |
Alfredo Invitado
|
Publicado: Lun 18 Nov, 2002 11:20 pm Asunto: Destacar Palabras Clave |
|
|
Hola, esto esta un poquillo crudo todavia pero funciona, lo publico con la condicion de que sia alguien lo mejora a su vez publique dichas mejoras.
Poner un ListBox con la lista de palabras Claves y Llamarlo Claves
en el evento OnKeyUp del Memo:
void __fastcall TMDIChild::MemoKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==VK_SPACE )
Destaque2(this);
}
void __fastcall TMDIChild::Destaque2(TObject *Sender)
{
String Palabra;
int Van = 0;
for(int i = 0;i<=Memo->Text.Length();i++)//for(int i = 0;i<=Memo->Text.Length();i++)
{
Memo->SelStart = i;
Memo->SelLength = 1;
Palabra = Palabra + Memo->SelText;
if(Memo->SelText == " " ||i==Memo->Text.Length() )//si espacio o fin de texto
{
if(i<Memo->Text.Length())
Palabra.Delete(Palabra.Length(),1);//Quitamos el espacio
for(int j=0;j<Claves->Items->Count;j++)
if(Claves->Items->Strings[j] == UpperCase(Palabra))
{
Memo->SelStart = i - Palabra.Length();//por el espacio
Memo->SelLength = Palabra.Length();
//Memo->SelText = Claves->Items->Strings[j];
CurrText()->Style = CurrText()->Style << fsBold;
CurrText()->Color = clRed;
}
Palabra = "";
}
}
}
//--------------------------------------------
Cualquier duda Repostear aqui... |
|
| Volver arriba |
|
 |
Claudio N. Lt JG

Registrado: 24 Sep 2002Mensajes: 53Ubicación: CHILE
|
Publicado: Mar 19 Nov, 2002 2:30 am Asunto: Grax, miles de codigos para ustedes |
|
|
Grax a ambos, lo voy a probar y les cuento.-
shiaop
PD: bien interesantes las paginas.- |
|
| Volver arriba |
|
 |
|