Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Вниз

Подсветка.   Найти похожие ветки 

 
Morfey   (2003-03-01 11:22) [0]

Поскажите как менять цвет (быстро) для определённых слов в
RichEdit.
P.S. Как менять цвет для выделенного текста я знаю :)


 
Song   (2003-03-01 11:29) [1]

Выделяй их по очереди :)


 
Morfey   (2003-03-01 11:30) [2]

Долго!!!


 
Song   (2003-03-01 11:35) [3]

Стало быть "определённых" много?


 
Morfey   (2003-03-01 11:37) [4]

много ли групп тег в HTML?


 
Song   (2003-03-01 11:43) [5]

procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor);
var
i, iDop: Integer;
s: string;
Col: TColor;
isTag, isDop: Boolean;
begin
iDop := 0;
isDop := False;
isTag := False;
Col := TextCol;
RichEdit.SetFocus;

for i := 0 to Length(RichEdit.Text) do
begin
RichEdit.SelStart := i;
RichEdit.SelLength := 1;
s := RichEdit.SelText;

if (s = "<") or (s = "{") then isTag := True;

if isTag then
if (s = """) then
if not isDop then
begin
iDop := 1;
isDop := True;
end
else
isDop := False;

if isTag then
if isDop then
begin
if iDop <> 1 then Col := DopCol;
end
else
Col := TagCol
else
Col := TextCol;

RichEdit.SelAttributes.Color := Col;
iDop := 0;
if (s = ">") or (s = "}") then isTag := False;
end;
RichEdit.SelLength := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.BeginUpdate;
HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
RichEdit1.Lines.EndUpdate;
end;


 
Morfey   (2003-03-01 11:45) [6]

Спасибу


 
Morfey   (2003-03-01 13:07) [7]

А как сделать что бы курсор оставался на месте а не перемещался в конец текста


 
Song   (2003-03-01 16:38) [8]

Подумать головой.


 
Morfey   (2003-03-01 16:50) [9]

Нет всё равно это очень долго, надо чтоб как в делфи, подсвечивались слова, в процессе редактирования.


 
Ketmar   (2003-03-01 17:58) [10]

>Morfey © (01.03.03 16:50)
synedit.

Satanas Nobiscum! 01-Mar-XXXVIII A.S.


 
Morfey   (2003-03-01 20:14) [11]

Вау, класс то что надо, спасибо!!!


 
George   (2003-03-02 12:02) [12]

Воспользуйся компонентом RxRichEdit.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.043 c
3-39224
{{{KOTOS}}}
2003-02-23 12:01
2003.03.13
Почему при открытии БД PARADOX по сети появляется ошибка


1-39369
Lion
2003-02-27 23:21
2003.03.13
QReport перенос строки


1-39413
MetalFan
2003-03-03 13:11
2003.03.13
событие в другом юните.


3-39216
Glory
2003-02-20 14:40
2003.03.13
Файлы FoxPro в Delphi


1-39409
Вопрос
2003-03-03 11:11
2003.03.13
Excel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский