Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.27;
Скачать: CL | DM;

Вниз

Помогите как сделать подсветку синтаксиса ........   Найти похожие ветки 

 
Alexsey Orlov ©   (2003-02-17 06:07) [0]


private
...
function CurrText: TTextAttributes;
public
...
end;
....
var
...
SINT:Integer;
LenD:integer;
SIN_TEXT:array[0..15] of Char;
...
procedure TForm1.RichChange(Sender: TObject);
begin
SIN_TEXT:="SAR";
SINT:=AnsiPos(SIN_TEXT,Rich.Text);
LenD:=StrLen(SIN_TEXT);
Rich.SelStart:=SINT-1;
Rich.SelLength:=LenD;
with Rich.SelAttributes do
begin
if Sint>0 then
CurrText.Style := CurrText.Style + [fsBold];
end;
end;

работает но когда я пишу SAR он подсвечивает и выделяет ето слово а когда пишу дальше следующее слово оно пишется поверх выделенного SAR помогите как лечить?


 
Cr@sh ©   (2003-02-17 06:13) [1]

Вечером в инет заходи, я те компонент дам. А щас не мучайся.
Че раньше-то не спросил?!



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

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.02 c
3-87276
kerkonst
2003-02-08 21:09
2003.02.27
Вывод в xxxReport в несколько колонок


1-87414
Артём К
2003-02-14 12:29
2003.02.27
Как сдвинуть значения массива на один элемент


1-87365
Альф
2003-02-17 12:18
2003.02.27
А почему иконки получаются корявые ???


1-87496
Анрей Фомичев
2003-02-15 21:59
2003.02.27
Работа с Таймером


3-87322
alexander_ua
2003-02-10 14:44
2003.02.27
Распределенная БД