Главная страница
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.022 c
1-87435
anton2v
2003-02-18 12:16
2003.02.27
RadioButton ?


3-87257
Aleksandr
2003-02-11 14:39
2003.02.27
Почему у BDGrid, подключенной к ClientDataSet, тормоза на скроле?


3-87242
Andriano
2003-02-07 14:13
2003.02.27
Очень удаленные клиенты


3-87352
Timur_2002
2003-02-11 12:20
2003.02.27
Проблемы с AutoIncrement в Access (BDE)


3-87350
Oleksiy
2003-02-10 15:09
2003.02.27
ODAC & FastReport