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

Вниз

RichEdit   Найти похожие ветки 

 
Шишкин Илья ©   (2004-04-13 21:47) [0]

Необходимо сделать в RichEdit"е подсветку символов "<" и ">" например красным цветом в реальном времени. Кто-нибудь знает как это можно реализовать?


 
Rouse_ ©   (2004-04-13 21:55) [1]

Парсер (к примеру примитивно через Pos) + SelStart + SelLength + SelAttributes.Color


 
тихий вовочка ©   (2004-04-13 22:24) [2]

В Промт пытаешься устроиться? Это они такое бредовое тестовое задание дают. Если очень надо пришлю исходники


 
Yanis ©   (2004-04-13 23:08) [3]

Пришли мне если не жалко!
Буду рад увидив их у себя.


 
panov ©   (2004-04-13 23:29) [4]

А какие тут проблемы?

 posStart := re.FindText("<",0,Length(re.Text),[]);
 while posStart<>-1 do
 begin
   re.SelStart := posStart;
   re.SelLength := 1;
   re.SelAttributes.Color := clRed;
   posStart := re.FindText("<",posStart+1,Length(re.Text),[]);
 end;

 posStart := re.FindText(">",0,Length(re.Text),[]);
 while posStart<>-1 do
 begin
   re.SelStart := posStart;
   re.SelLength := 1;
   re.SelAttributes.Color := clRed;
   posStart := re.FindText(">",posStart+1,Length(re.Text),[]);
 end;


 
Шишкин Илья ©   (2004-04-14 23:08) [5]

Я сам делал точно так же. Только меня такой вариант не устраивает. Надо выделять скобки в реальном времени. То есть при вводе скобки, она сразу же должна стать красного цвета.


 
Шишкин Илья ©   (2004-04-16 13:37) [6]

Мне кто-нибудь поможет?


 
Владислав ©   (2004-04-16 13:39) [7]

Может чем OnKeyPress спасет?


 
panov ©   (2004-04-16 14:40) [8]

Блин, а попробовать сложно?

procedure TForm1.reKeyPress(Sender: TObject; var Key: Char);
begin
 if key in ["<",">"]
   then re.SelAttributes.Color := clRed
   else re.SelAttributes.Color := DefaultColor;
end;


 
Владислав ©   (2004-04-16 14:43) [9]

> panov ©   (16.04.04 14:40) [8]

А мне то на кой пробовать? :)
У меня такой задачи нет :)


 
panov ©   (2004-04-16 15:04) [10]

>Владислав ©   (16.04.04 14:43) [9]

Ясно ведь, что это автору.



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

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

Наверх




Память: 0.46 MB
Время: 0.033 c
14-1081437031
E1
2004-04-08 19:10
2004.05.02
интересный IRC бот :)


1-1081920624
an-na2002
2004-04-14 09:30
2004.05.02
Проблема с TStringList


14-1081455993
_Sh_
2004-04-09 00:26
2004.05.02
Помогите с CLX-компонентами


3-1080889758
ВадимВС
2004-04-02 11:09
2004.05.02
Ошибка BDE для PDOXUSRS.NET под Win-2000


1-1081929826
SergP
2004-04-14 12:03
2004.05.02
ZLib. Как распаковать строку?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский