VPF::Делаю подсветку синтаксиса html но где-то бага!!

Sniper

Дата 4.2.2004, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

Для начала код:

Код


 var Text: String;
     I, From: Integer;
begin
 RichEdit1.Update;
 Text := RichEdit1.Text;
 From := -1;
 for I := 1 to Length( Text ) do
 begin
   if Text[ I ] = '<' then From := I
   else if (Text[ I ] = '>') and (From > 0) then
   begin
     RichEdit1.SelStart := From-1;
     RichEdit1.SelLength := I-From+1;
     RichEdit1.Font.Color := clRed;
     From := -1;
   end;
 end;
RichEdit1.Update;

почему-то красным подсвечивается всё!? а не только то что между скобками "<>"

--------------------

"Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный".
Кен Томпсон, создатель Unix

<Spawn>

Дата 4.2.2004, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Код

RichEdit1.SelAttributes.Color := clRed;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Sniper

Дата 4.2.2004, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

Цитата

Код

RichEdit1.SelAttributes.Color := clRed;

И что? %-)

--------------------

<Spawn>

Дата 4.2.2004, 23:15 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

За место RichEdit.Font.Color поставь. Уж можно было догадаться)

--------------------

Sniper

Дата 4.2.2004, 23:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

Да да я туплю я знаю...

--------------------

Vit

Дата 4.2.2004, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

На самом деле ничего хорошего из этого не получится, так как при каждом изменении текста прийдётся его раскрашивать заново, а если текст HTML на хотя бы на 50-100 кило то выгладеть это будет как - нажал на клавишу, подождал минутку...

Посмотри пакет компонентов SynEdit:

http://synedit.sourceforge.net

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Sniper

Дата 5.2.2004, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

Vit
Я бы рад... но пишу то я под KOL!!!!! %-)

--------------------

Vit

Дата 5.2.2004, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Цитата

Я бы рад... но пишу то я под KOL!!!!!

Дык я что, мне всё равно, я просто предупреждаю что толку от этой подсветки не будет, RichEdit очень тормознутый компонент, в сочетании со сверхтормознутым методом получится, что даже текст в 5-10 килобайт можно будет редактировать минимум на PII-500, а если текст будет размером в пол мегабайта то даже на самом навороченном пентиуме будет тормозить так как Windows 95 на 386 копьютере с 2 мегабайтами памяти... Я не теоретизирую - я пробовал и знаю...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »