Как сделать подсветку синтаксиса?

[Neeter]

О_О Это как? Сам себе родитель?

Utkin, наверно, имел ввиду присвоить RichEdit'у родителем панель.

[Utkin]

Нет, родитель для TRichEdit...

[psycho-coder]

фигня получается

[uberchel]

Сообщение от psycho-coder

Прикольно. Надо будет это обмозговать

Нашел пару ошибок
1) При вводе зарезервированного слова, оно выделяется жирным. Если его начать стирать, то оно остается быть жирным.
2) Если печатать слово в перед другим, то оно сначала цвета лайма, и после нажатия пробела становится нормальным, а если не поставить пробел то они останутся двуцветными. Причем цвет зависит от места.
3) Если печатать после зарезерв. слова, то вся строка будет жирной.
4) Коменты некорректно подсвечиваются

Пока все.

Добавляем ище одну процеедуру и се, бага нету )))

procedure FormatChenge;
 var
  len: integer;
 begin
    FormatAllFlag:=true;
    len:=Length(Form1.RichEdit1.Text);
    FormatAllFlag:=false;
  end;

А здесь меняем FormatAll на FormatChange;

procedure TForm1.RichEdit1Change(Sender: TObject);
 begin
   if not FormatAllFlag then Format(RichEdit1.SelStart-1);
   FormatChenge;;
 end;

И конечно тогда переменную Len типа integer сделать глобальной )))

[psycho-coder]

неа нифига.

[Вадим Буренков]

В моей программе скрипты после редактирования сохраняются в формате RTF в таком виде(открыл блокнотом):

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Courier New;}{\f1\fnil Courier New;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\li200\cf1\lang1049\f0\fs20 0002: beep
\par 0001: end_thread
\par 0003: terminate_game
\par 0000: end_script 
\par 
\par \cf0\f1 
\par 
\par }

Как сделать чтоб текст из RichEdit сохранялся в текстовом виде(для сохранения текста использую RichEdit.Lines.SaveToFile).

[psycho-coder]

Я делал так

var
  sList: TStringList;
begin
  sList := TStringList.Create;
  sList.Text := RichEdit1.Text;
  sList.SaveToFile('file.txt');
  sList.Free;
end;

[Lime]

Сообщение от psycho-coder

Я делал так

var
  sList: TStringList;
begin
  sList := TStringList.Create;
  sList.Text := RichEdit1.Text;
  sList.SaveToFile('file.txt');
  sList.Free;
end;

Форматирование исчезает) Хотя его и не должно быть в файле с "исходником" - это удел редактора)

ПО сабжу : тоже очень интересует подстветка , но всё гораздо проще (должно быть)
Так-же циферки слева с нумерацией строк)

[psycho-coder]

Откройте исходник любой программы в блокноте и увидите что там PlainText

[Lime]

Сообщение от psycho-coder

Откройте исходник любой программы в блокноте и увидите что там PlainText

Тоесть текст без форматирования , так?
Я тоже самое сказал.