Текущий архив: 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.018 c