void __fastcall TForm1::sel(int from,int l,TColor c)
{
RE1->SelStart=from;
RE1->SelLength=l;
RE1->SelAttributes->Style=RE1->SelAttributes->Style << fsBold;
RE1->SelAttributes->Color=c;
return;
}
Php редактор
ОК. Я выкинул TMemo и вставил RichEdit. Так как же можно сделать так, чтоб слово echo подсвечивалось красным?
Цитата:
Originally posted by miklash90
ОК. Я выкинул TMemo и вставил RichEdit. Так как же можно сделать так, чтоб слово echo подсвечивалось красным?
ОК. Я выкинул TMemo и вставил RichEdit. Так как же можно сделать так, чтоб слово echo подсвечивалось красным?
Разбиваешь неформатированный текст соответствующим образом на лексемы, смотришь, где зарезервированные слова, и делаешь соответствующий rtf-текст, который и пихаешь назад в RichEdit вместо неформатированного текста.
искал в тексте маты по словарю и подсвечивал их красным (функция sel(откуда,сколько,цвет);)
Код:
,где RE1 это RichEdit1.
а вызывал как-то вот так
Код:
...
for(i=1;i<slov;i++){
slovo=Slova->Lines->Strings;
lens=slovo.Length();
from=1;
do
{
res=RE1->FindText(slovo,from,len,TSearchTypes() >> stWholeWord);
if(res==-1)break;
sel(res,lens,clRed);
from=res+lens;
}
while(from<len);
}
return;
}
for(i=1;i<slov;i++){
slovo=Slova->Lines->Strings;
lens=slovo.Length();
from=1;
do
{
res=RE1->FindText(slovo,from,len,TSearchTypes() >> stWholeWord);
if(res==-1)break;
sel(res,lens,clRed);
from=res+lens;
}
while(from<len);
}
return;
}
смотри,может поможет :)