Нормальная подсветка синтаксиса.

[Simply-Art]

Сразу для модеров и всяких умников: темы я смотрел на форуме и это самое большое что я нашол

http://www.programmersforum.ru/showthread.php?t=16814
const
word: array[1..18] of string[9] = ('if','then','else','begin','end',' for','to',
'do','while','repeat','until','case ','of','type','var','const','proced ure',
'function');
var
k,i: integer;
begin
for i:=1 to length(word) do
begin
k:=-length(word[i]);
repeat
k:=RichEdit1.FindText(word[i],k+length(word[i]),
length(RichEdit1.Text)-k-length(word[i]),[stWholeWord]);
RichEdit1.SelStart:=k;
RichEdit1.SelLength:=length(word[i]);
RichEdit1.SelAttributes.Color:=clBl ue;
until k < 0;
RichEdit1.SelAttributes.Color:=clBl ack;
end;
end;

Далее для тех же умников: да я такой, и хочу изобритать велик с квадратными колесами, поэтому на компонента типа SynEdit'а не пишите ссылки.
Теперь перейду к сути темы. Мне надо сделать приемлимо норамльную подсветку синтаксиса в компоненте RichEdit. Я подредактил код, но все равно выглядит глупо

procedure TForm1.RichEdit1Change(Sender: TObject);
const
  word: array[1..2] of string[9] = ('if','then');
var
  i,c:Cardinal;
  k: integer;
begin
c:=RichEdit1.SelStart;
RichEdit1.ReadOnly:=true;
  for i:=1 to length(word) do
    begin
      k:=-length(word[i]);
      repeat
        k:=RichEdit1.FindText(word[i],k+length(word[i]),
           length(RichEdit1.Text)-k-length(word[i]),[stWholeWord]);
        RichEdit1.SelStart:=k;
        RichEdit1.SelLength:=length(word[i]);
        RichEdit1.SelAttributes.Color:=clBlue;
        Application.ProcessMessages;
      until k < 0;
      RichEdit1.SelAttributes.Color:=clBlack;
    end;
RichEdit1.SelStart:=c;
RichEdit1.ReadOnly:=false;
end;

Первое что косячено это то когда написал например then и начинаешь его удалять, то the все еще светится синим.
Вотрое это моргание. Помогите сделать нормальный код.
Да и забыл сказать самое главное, отмена перестает работать.

[mihali4]

1. Ваша процедура годится для первоначальной подсветки ВСЕГО текста (после загрузки текста в RichEdit) с таким изменением:
k:=RichEdit1.FindText(word[i],k+length(word[i]),
length(RichEdit1.Text) {-k-length(word[i])} ,[stWholeWord]);
(конечно, procedure TForm1.RichEdit1Change(Sender: TObject) на это время нужно отключить)
2. В procedure TForm1.RichEdit1Change(Sender: TObject); нужно просматривать ТОЛЬКО КУСОК текста перед и после курсора, равный длине слова из словаря.

[KiDoki]

Сообщение от mihali4

2. В procedure TForm1.RichEdit1Change(Sender: TObject); нужно просматривать ТОЛЬКО КУСОК текста перед и после курсора, равный длине слова из словаря.

Нет представления как это можно сделать, подскажите пожалуйста.

[NieL]

Смотри здесь: http://prdownloads.sourceforge.net/p...x.zip?download. Когда реализовывал аналогичную возможность брал многое из данного компонента.

[KiDoki]

Сообщение от NieL

Смотри здесь: http://prdownloads.sourceforge.net/p...x.zip?download. Когда реализовывал аналогичную возможность брал многое из данного компонента.

Спасибо =)