|
Платные хостинги
Раскрутка сайта
Книги по программированию
Делаю подсветку синтаксиса html но где-то бага!!
- Для начала код:Код 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;highlightSyntax('delphilOGQ=','delphi');почему-то красным подсвечивается всё!? а не только то что между скобками "<>"
- Код RichEdit1.SelAttributes.Color := clRed;highlightSyntax('delphiNTQ1YT','delphi');
- И что? %-)
- За место RichEdit.Font.Color поставь. Уж можно было догадаться)
- Да да я туплю я знаю...
- На самом деле ничего хорошего из этого не получится, так как при каждом изменении текста прийдётся его раскрашивать заново, а если текст HTML на хотя бы на 50-100 кило то выгладеть это будет как - нажал на клавишу, подождал минутку...Посмотри пакет компонентов SynEdit:http://synedit.sourceforge.net
- VitЯ бы рад... но пишу то я под KOL!!!!! %-)
- Дык я что, мне всё равно, я просто предупреждаю что толку от этой подсветки не будет, RichEdit очень тормознутый компонент, в сочетании со сверхтормознутым методом получится, что даже текст в 5-10 килобайт можно будет редактировать минимум на PII-500, а если текст будет размером в пол мегабайта то даже на самом навороченном пентиуме будет тормозить так как Windows 95 на 386 копьютере с 2 мегабайтами памяти... Я не теоретизирую - я пробовал и знаю...
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
